إضافة على تعديل كود الحاق سجل به حقل فارغ

[AboSaad17]

السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بالخير 
 في نموذج أكسس لدي هذا الكود لحفظ ( ترحيل ) سجل الى جدول أخر  وهو يعمل بشكل صحيح >>>>

ولكن أريد في حالة ان الحقل [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
 

[ابو ياسين المشولي]

اضف هذا قبل  الا لحاق

If IsNull(age) Then
 MsgBox " فـضـلاً قم بتعبيه الحقل      ", vbInformation, "تنبية  : خـطـاء "
age.SetFocus
Undo
Exit Sub
Else
End If

 

[AboSaad17]

ألف شكر استاذ أبو ياسين 
جزاك الله كل خير ... نور الله بصائرك 

تم تعديل فبراير 22, 2018 بواسطه AboSaad17

[ابو ياسين المشولي]

1 ساعه مضت, AboSaad17 said:

ألف شكر استاذ أبو ياسين 
جزاك الله كل خير ... نور الله بصائرك 

بارك الله فيك ونور الله بصرك