Private Sub cmdSave_Click()
Dim rst As Object
Dim rstSQL As String
Dim MaxID As String
Dim currentID As String
Dim rstFrm 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
DoEvents
strFrm = Form_frmYg_sg_Main!frmChild.SourceObject
Form_frmYg_sg_Main!frmChild.SourceObject = strFrm
MsgBox "您录入的数据保存已成功!", vbInformation, "消息"
End Sub
