تعديل كود حفظ البيانات في النموذج

[رابح1999]

السلام عليكم

اريد عند الضغط على زر حفظ البيانات يظهر اسماء الحقول التي هي بالون الاحمر

المستخدمين.accdb

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

تفضل اخر الكريم

    If Len(Me.Text2 & "") = 0 Or Len(Me.Text4 & "") = 0 Then
    MsgBox "حقل مطلوب"
    DoCmd.GoToControl "Text2"
    Else
    
        Dim ctrl As Control
        For Each ctrl In Me.Controls
        If ctrl.Tag = "R" Then
        If IsNull(ctrl) Then
        NoteImg.Left = ctrl.Left
        NoteImg.Top = ctrl.Top + ctrl.Height
        NoteImg.Visible = True
        Exit Sub
        End If
        End If
        Next
        ' Saving Code Goes Here
        MsgBox "Record Saved", , "Naser Masarwa"
End If

المستخدمين.rar

تحياتي

[رابح1999]

اخي اريد عند ملء البيانات يظهر في رسالة التنبيه الاسم والرقم عند حفظ البيانات

مثل (تما حفظ بيانات بلال بلال رقم 1238 بنجاح)

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

تفضل اخي الكريم

        MsgBox "تم حفظ بيانات" & "   " & Me.Text4 & "   رقم" & "  " & Me.Text2 & " بنجاح", vbInformation

المستخدمين.rar

تحياتي