المساعدة في ادخال كود

[zoed2]

السلام عليكم ممكن المساعدة في ايجاد حل حول عدم حفظ السجل  اذا كان الاختيار في الحقل (بصمة غير مقروءة) الا بعد اختيار السبب وفي حالة كان الاختيار في الحقل (بصمة مقروءة ) يحفظ السجل عادي 

المثال في المرفقات

ولكم الامر مع الشكر والتقدر

 

البصمة.rar

[AlwaZeeR]

Dim msg
Select Case B
Case Is = "مقروءة"
DoCmd.GoToRecord , "", acNext
Case Else
msg = MsgBox("يجب ادخال سبب عدم قراءة البصمة للناخب", vbYes, " ")
S.SetFocus
End Select

ضع الكود في حدث عند النقر لزر الأمر خاصتك

::

تحياتي

[zoed2]

كل الشكر و الاحترام استاذ

 

alwazeer