اضافة كود لزر تحديث

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

السلام عليكم 

اريد اضافة كود لزر تحديث وتجدون في المرفقات الشرح

7.accdb

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

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

مرحبا اخي الكريم

اكمل باقي الحقول المراد الـاكد منها في السطر الاول على  النحو التالي

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

تحياتي

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

السلام عليكم

اخي اريد عند الضغط على زر تحديث تفرع الحقول

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

18 دقائق مضت, بلال اليامين said:

اخي اريد عند الضغط على زر تحديث تفرع الحقول

اضف هذا الامر

    Me.صفحة1.SetFocus
    DoCmd.GoToRecord , , acNewRec

تحياتي

[الصديق الشيخي 2017]

كود زر التعديل في النموذج