询问，在一个窗体的员工编号TEXT文本框中，如何编程 可以获得自动的编号，
希望Text文本框中初始值为：YG0000 如果每增加一个员工，就自动加 1，
如示：YG0002，YG0003，。。。而在相应的Access数据库中也作相应的改变
数据库中的表是：
类型 编号
员工编号 YG0000 （根据添加自动加1改变）
配件编号 PJ0000
。。。 。。。
。。。 。。。

"YG" & Format(rs.RecordCount, "0000")

rs 是 RecordSet 对象

能具体说一下吗？不是很懂

你已经对程序编程了吗？和数据库建立连接了吗？那就应该有一个记录游标对象用以浏览数据库记录。

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

Private Function get_bh() As String
    Dim bh As String
    Dim bhi As Integer
    bhi = 0
    Adodc2.RecordSource = "select * from ck order by number"
    Adodc2.Refresh
    If Adodc2.Recordset.RecordCount = 0 Then
       get_bh = "YJ0001"
       Exit Function
    End If
    Adodc3.RecordSource = "select number from ck where number = '" + "YJ0001" + "' order by number"
    Adodc3.Refresh
    If Adodc3.Recordset.RecordCount > 0 Then
       Adodc2.Recordset.MoveLast
       bh = "YJ" + Format(CInt(Right(Trim(Adodc3.Recordset.Fields("number")), 4)) + 1, "0000")
       While bhi = 0
           Adodc3.RecordSource = "select number from ck where number = '" + bh + "'"
           Adodc3.Refresh
           If Adodc3.Recordset.RecordCount = 0 Then
              bhi = 1
              get_bh = bh
              Exit Function
           Else
              bh = "YJ" + Format(CInt(Right(Trim(bh), 4)) + 1, "0000")
           End If
       Wend
    Else
       get_bh = "YJ" + "0001"
    End If
End Function

自己改一下就可以了