自动编号

时　间:2008-03-15 20:48:57
作　者:YuanFang   ID：1471  城市：聊城
摘　要:利用ADO自动编号
正　文:

Private Sub 按钮_Click()
On Error GoTo Err_按钮_Click

    DoCmd.GoToRecord , , acNewRec
       Dim STemp As String '定义字符型变量
    Dim rs As ADODB.Recordset '定义数据集变量
    Set rs = New ADODB.Recordset ' 为定义的数据集变量分配空间
    STemp = "Select * From 要添加数据的表" '为打开数据表"查询语句"字符变量赋值
  rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '打开“要添加数据的表”数据表
  Select Case rs.RecordCount
         Case 0 To 9
                 Me![要添加数据的表 ID] = "要添加数据的表000" & rs.RecordCount + 1   
         Case 10 To 99
                     Me![要添加数据的表 ID] = "要添加数据的表00" & rs.RecordCount + 1
         Case 100 To 999
                         Me![要添加数据的表 ID] = "要添加数据的表0" & rs.RecordCount + 1
         Case 1000 To 9999
                         Me![要添加数据的表 ID] = "要添加数据的表" & rs.RecordCount + 1
       
  End Select
   
    Set rs = Nothing

Exit_按钮_Click:
    Exit Sub

Err_按钮_Click:
    MsgBox Err.Description
    Resume Exit_按钮_Click
   
End Sub