Private Sub cmdSave_Click()
Dim rst As Object
Dim strSQL As String
Dim currentID As String
If IsNull(Me.txtygxm) Then
MsgBox "员工姓名不允许空缺,请录入相关数据!", vbCritical, "提示"
Me.txtygxm.SetFocus
Exit Sub
End If
currentID = Form_frmyg_sg_list.Form.ygID
strSQL = "select * from tblCodeyg where ygID=' " & currentID & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst
rst.Edit
rst!ygxm = Me.txtygxm
rst.Update
rst.Close
Set rst = Nothing
DoEvents
strFrm = Form_frmyg_sg_main!frmChild.SourceObject
Form_frmyg_sg_main!frmChild.SourceObject = srtfrm
MsgBox "你提交的数据已更新成功!", vbInformation, "消息"
DoCmd.Close acForm, "frmyg_sg_edit"
End Sub
这是录入的VBA代码
