Code:
Private Sub cmdSaveRec_Click()
If (Me.MemberID = "" Or IsNull(Me.MemberID)) Or _
(Me.AppendDate = "" Or IsNull(Me.AppendDate)) Then MsgBox "MemberID is required!", vbCritical, "Validation Msg"
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
Me.MemberID.SetFocus
End If
End Sub
Comment