سامحوني اشارك معكم
اخي الكريم
خلي هذا الكود بدل ذلك
Private Sub Combo24_BeforeUpdate(Cancel As Integer)
If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then
me.combo24.setfocus
MsgBox "غير مصرح لك"
End If
End Sub
ممكن تشرح اكثر
يعني تريد تزيد رقم 1 على اي شي اي حقل وفي اي وقت بالظبط
مع تقدير