代码如下，就是教程里的，没有做任何改动
Option Compare Database
Private Sub cmdClose_Click()
DoCmd.Close acForm, "frmYg_sg_Add"
End Sub
Private Sub cmdSave_Click()
Dim rst As Object
Dim strSQL As String
Dim MaxID As String
Dim currentID As String
Dim strFrm As String
If IsNull(Me.txtygxm) Then
MsgBox "请输入员工姓名!", vbCritical, "提示"
Me.txtygxm.SetFocus
Exit Sub
End If
MaxID = DMax("[ygID]", "tblCodeyg")
currentID = "Y" & Format(Val(Right$(MaxID, 2) + 1), "00")
strSQL = "select * from tblCodeyg"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.AddNew
rst!ygID = currentID
rst!ygxm = Me.txtygxm
rst.Update
rst.Close
Set rst = Nothing
Me.txtygxm = Null
strFrm = Form_frmYg_sg_Main!frmChild.SourceObject
Form_frmYg_sg_Main!frmChild.SourceObject = strFrm
MsgBox "您录入的数据保存已成功！", vbInformation, "消息"
End Sub
