补充一下，是以下代码中的编号无法自动生成并更新
End If
Me.Refresh
If Acchelp_StrDataIsExist("tblCodeyg", "ygxm", Me.ygxm) = True Then
MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
Me.ygxm.SetFocus
Exit Sub
End If
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
Set rst = CurrentDb.OpenRecordset("tblCodeyg", dbOpenDynaset)
rst.AddNew
rst("ygId") = acchelp_autoid("Y",2, "tblCodeyg", "ygId")
rst("ygxm") = Me.ygxm
rst.Update
rst.Close
这个是我自己改的不自导错在哪里编号不更生成并更新
End If
Me.Refresh
If Acchelp_StrDataIsExist("tbl_ 客户表", "客户名称", Me.客户名称) = True Then
MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
Me.客户名称.SetFocus
Exit Sub
End If
If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
Set rst = CurrentDb.OpenRecordset("tbl_ 客户表", dbOpenDynaset)
rst.AddNew
rst("编号") = acchelp_autoid("O", 2, "tbl_ 客户表", "编号")
rst("客户名称") = Me.客户名称
rst.Update
rst.Close
我的结果改好代码后，第一次输入可以保存第二次不能保存。但是编码都是以32结尾所以不能更新编号。
