ادراج كود

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

السلام عليكم

اريد  ادراج هذا الكود في الزر  اسمه تحديث 

Private Sub NoEmptyTexts()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Or ctl = "" Then
ii = 1
MsgBox "الرجاء ملءجميع الحقول المطلوبة المشار اليها في نافذ حجز المعلومات تعني اجبارية ولايمكن تخطيها و الا لن تتم عملية حفظ أو تخزين المعلومات"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
Else
ii = 2
End If
End If
Next ctl
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

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

7.rar

[ابو عارف]

وعليكم السلام

تفضل

7.rar

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

اخي بارك الله فيك شكرا هذا هو طلبي