عدم حفظ النموذج

[أبو أحمد]

السلام عليكم ورحمة الله

الاساتذة الكرام  / في قاعدة البيانات لدي اريد عند حفظ النموذج وبه حقل فارغ لا تتم عملية الحفظ الا بعد تسجيل بيان بداخله ليقبل الحفظ 

والا يتوقف عن الحفظ

فما هو الكود الذي يمكن وضعه عند الضغط على زر حفظ لتظهر رسالة "ان الحقل .... فارغ ويجب تسجيل بياناته"

جزاكم اللله خيرا 

[mourad2012]

If IsNull([YourFeild]) Then
Eval ("MsgBox('حقول بحاجة لتعبئة:" & vbCrLf & vbCrLf & _
"1. اكتب اسم الحقل هنا" & vbCrLf & _
"@يجب تعبئة الحقل المذكور@@', " & _
vbInformation + vbOKOnly & ", 'حقول مطلوبة')")
        Exit Sub
    Else

End If

 

[أبو أحمد]

جزاكم الله خيرا 

ولكن هل يمكن تعديله مرة ثانية بعذ اذنكم لو سمحتم 

If IsNull([YourFeild]) Then

Eval ("MsgBox('حقول بحاجة لتعبئة:" & vbCrLf & vbCrLf & _

"@@@', " & _

vbInformation + vbOKOnly & ", 'حقل مطلوب')")

Me. ([YourFeild]).SetFocus

        Exit Sub

    Else

 End If