如何编写自动编号?
询问,在一个窗体的员工编号TEXT文本框中,如何编程 可以获得自动的编号,希望Text文本框中初始值为:YG0000 如果每增加一个员工,就自动加 1,
如示:YG0002,YG0003,。。。而在相应的Access数据库中也作相应的改变
数据库中的表是:
类型 编号
员工编号 YG0000 (根据添加自动加1改变)
配件编号 PJ0000
。。。 。。。
。。。 。。。
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
Dim id As String
Set rs = New ADODB.Recordset
rs.Open "select max(cast(right(id,4) as float)) from biao", conn, 1, 1
MsgBox "GR" & Format(rs.Fields(0) + 1, "0000")
id = "GR" & Format(rs.Fields(0) + 1, "0000")
conn.Execute "insert biao values('" & id & "')"
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "provider=sqloledb;database=dujun;uid=sa;data source=jhd001;pwd="
conn.Open
End Sub