自动添加记录

呵呵呵！

成功了，修改后的代码全文如下：

Private Sub Command5_Click()
    Dim maxno As String
    Dim tempno As String
    Dim test As String
    Dim sql As String
    Dim i2 As Long
    DoCmd.Echo False, ""
    DoCmd.SetWarnings False
    maxno = Nz(DMax("[编号]", "编号帐", "left([编号],(len([编号])-3))=FORM.[代码] "), 0)   '找到最后记录的编号
    If maxno = "0" Then
     MsgBox "您输入的量具名在当前编号帐中不存在" & Chr(13) & Chr(10) & "请核实后再重新输入"
    Else
     i2 = Val(Right(maxno, 3))
     For j = 1 To i2
      tempno = Form.[代码] & Format(j, "000")
      test = Nz(DLookup("[编号]", "编号帐", "[编号]='" & tempno & "'"), 0)
      If test = "0" Then
        sql = "insert into 编号帐 (编号,量具名,规格,精度,生产厂,制造编号,备注) values ('" & _
          tempno & _
          "','管理','',0.000,'','','') "
        DoCmd.RunSQL sql

      Else
      End If
     Next j
    End If
    DoCmd.SetWarnings True
    DoCmd.Echo True, ""
End Sub

感谢回帖者。