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