VB加access如何实现自动生成产品编号？

VB加access如何实现自动生成产品编号？我用的是DATA数据连接，想在TEXT中自动生成累加编号，如“00000”  “00001”。
请问具体代码是什么？说详细点，谢谢！

解决方案 »

  1.   

    Option Explicit
    Dim sum As IntegerPrivate Sub Command1_Click()
        sum = sum + 1
        Text1 = Format(sum, "00000")
    End SubPrivate Sub Form_Load()
        'sum = 0
        Text1 = Format(sum, "00000")
    End Sub
      

  2.   

    access好象可以设置自动编号的啊
      

  3.   

    自动编号是可以，但不知道为什么在数据库中是按00001，00002显示，但到窗体控件中却显示为
    1，2了。请高手指点一下
    zdingyun() 你的方法没判断数据库中编号的最大值，每次都是从00001开始。
      

  4.   

    你需在窗体加栽初始化时由数据表中取得编号的最大值.这种查询属简单的SQL语句就能完成.数据表中该字段建议设置为文本.