السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بالخير
في نموذج أكسس لدي هذا الكود لحفظ ( ترحيل ) سجل الى جدول أخر وهو يعمل بشكل صحيح >>>>
ولكن أريد في حالة ان الحقل [Age] فارغ >>> يتوقف عمل الكود وتظهر رسالة " قم بتعبئة الحقل [age]"
-----------------------------------------------
Private Sub arch2_Click()
On Error GoTo Err_arch2_Click
DoCmd.Beep
If MsgBox(" ÓíÊã ÇáÍÝÙ " & vbCrLf & "", vbYesNo, " ÍÝÙ ÇáÓÌá ") = vbYes Then
Dim strSQL As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "archive2"
DoCmd.SetWarnings True
Beep
MsgBox " Êã ÇáÍÝÙ ", vbInformation, " ÍÝÙ ÇáÓÌá "
Me.Refresh
End If
Exit_arch2_Click:
Exit Sub
Err_arch2_Click:
MsgBox Err.Description
Resume Exit_arch2_Click
End Sub