خطأ في الكود

[بلال اليامين]

السلام عليكم

ان الكود الذي في زر تحديث  يقوم بحفظ البيانات وهي لم يتم حجز جميع الحقول المطلوبة

اريد عند لم يتم حجز جميع الحقول لم يتم حفظ البيانات

7.accdb

[محمد أبوعبدالله]

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

اضف السطر التالي للكود

Me.Undo

ليكون الكود كاملاً كالتالي

Private Sub أمر25_Click()
Call NoEmptyTexts
If ii = 1 Then
Exit Sub
DoCmd.CancelEvent
Me.Undo
Else
Me.Refresh
MsgBox " تمت عمليةاضافة موظف جديد ( " & صفحة1.Form.اللقب1 & ")  بنجاح  ", vbInformation + vbOKOnly, "تنبيه"
End If
DoCmd.GoToRecord , الموظف, acNewRec
DoCmd.CancelEvent
End Sub

تحياتي

[بلال اليامين]

السلام عليكم

اخي مازال الكود الذي في زر تحديث  يقوم بحفظ البيانات وهي لم يتم حجز جميع الحقول المطلوبة

[بلال اليامين]

السلام عليكم

اخي مازال الكود الذي في زر تحديث  يقوم بحفظ البيانات وهي لم يتم حجز جميع الحقول المطلوبة

[محمد أبوعبدالله]

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

اخي الكريم

غير خاصية الحقول التي تريد الزام تعبئتها الى مطلوب / Required  الى نعم

كما في الصورة

تحياتي