خطا في الكود

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

السلام عليكم

Private Sub BeforeUpdate_Click()
On Error GoTo Error_ErrorZ
If IsNull(Me.Text12.Value) Or IsNull(Me.Text12.Value) Or IsNull(Me.Text13.Value) Or IsNull(Me.Text14.Value) Or IsNull(Me.Text15.Value) Or IsNull(Me.Text16.Value) _
Or IsNull(Me.Text17.Value) Or IsNull(Me.Text18.Value) Or IsNull(Me.Text19.Value) Then
MsgBox "هذه الحقول مطلوبة"
Me.Undo
End If
End Sub
MsgBox "تم حفظ بيانات"
End Sub

الموظفين.rar

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

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

الكود موجود في النموذج الرئيسي (نموذج2) وهذه العناصر غير موجود به

كما ان Me.Text12.Value مكرر

كما انه لا يوجد Error_ErrorZ:

كما ان تقسيم الكود على سطرين خطأ

كما ان السطرين الاخيرين زيادة عن الكود

MsgBox "تم حفظ بيانات"
End Sub

الكود بعد التعديل

Private Sub BeforeUpdate_Click()
On Error GoTo Error_ErrorZ
If IsNull(Me.الصفحة1!Text12.Value) Or IsNull(Me.الصفحة1!Text13.Value) & _
" Or IsNull(Me.الصفحة1!Text14.Value) Or IsNull(Me.الصفحة1!Text15.Value) Or IsNull(Me.الصفحة1!Text16.Value)" Then
MsgBox "هذه الحقول مطلوبة"
Me.Undo
End If

Error_ErrorZ:

End Sub

الموظفين_3.rar

تحياتي