نعم ام لا ...... عاجل

السلام عليكم

يمكن وضع إختبارات لناتج الرساله كالآتي

userbutton = MsgBox("The age pig from 18 year is not", 3 + 32 + 0)
If userbutton = 6 Then  ' تم إختيار نعم
If userbutton = 7 Then Exit Sub 'تم إختيار لا
If userbutton = 2 Then GoTo aa 'تم إختيار إلغاء الأمر


End If
End If
'يمكنك وضع هذه الشروط بعبارة select caseأو بطرق إخرة  وأنا وضعتها هنا بشكل سريع
'أنا لا أرى أن هناك داعي لوضع زر إلعاء الأمر ولكن قد يكون لديك رأي آخر في ذلك

إليك هذا الكود الثاني ..

ضع الكود في حدث عند الخروج من حقل العمر ...

If (Me.العمر) > 18 Then

If MsgBox("يتجاوز عمر الطالب " & vbCrLf _

& [ الاسم ] & vbCrLf _

& " سن الثامنة عشر " & vbCrLf & "هل تريد الأستمرار" & vbCrLf _

& "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _

+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then

Else

Me.Undo

DoCmd.GoToRecord , , acNewRec

DoCmd.GoToControl ("[رقم معرف]")

End If

End If

مع ملاحظة التعديل المطلوب ..

وشكراً

شكرا للاخ ابو عبد الملك والاخ فتى الوادي على ردهم وتفضلهم

ارجو من الاخ فتى الوادي ان توضح لي صيغة الرساله حيث جربتها ولم تعمل وحبذا لو كتبت اسماء الحقول انجليزي لكي لا تتفكك الدوال

الأخ شمس الوادي

أنا لا أعرف هل أنت تدخل البيانات في حقل العمر على شكل تاريخ أم رقم مثل 34 وقد أخذت الإحتمال الثاني وإليك الكود :

  Dim UseButton As Integer
Const dgdef = 4
If TxtOld > 18 Then
UseButton = MsgBox(" سنة هل تريد الإستمرار 18 العمر أكبر من", vbMsgBoxRight + dgdef, "تنبيه")
If UseButton = 7 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End If

أنسخ لكود كما هو وفي خاصية مربع النص الذي تدخل فيه العمر والذي اسميته txtOld خاصية " بعد التحديث " الصق وجرب وإذا وجدت صعوبة أخبرنا0

لك تحياتي

if (me.age) < 18 then

If MsgBox ("يتجاوز عمر الطالب " & vbCrLf & [ name] & vbCrLf _

& " سن الثامنة عشر " & vbCrLf & "هل تريد الأستمرار" & vbCrLf _

& "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _

+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then

Else

Me.Undo

DoCmd.GoToRecord , , acNewRec

DoCmd.GoToControl ("[iDNUM]")

End If

End If

شكرا فتى الوادي ومن ساهم في الرد من الاخوة شاكرا ومقدرا تعاونكم