طلب المساعدة في هذا الكود

مغلق

بدأه alharbi في 19 يونيو 2003 · 2 رد · 534 مشاهدة · في مراجعة المواضيع

مشاركة: واتساب X فيسبوك تيليجرام

#119 يونيو 2003 في 23:50 صاحب الموضوع

بعد جزيل الشكر للاعضاء والمشاركين في هذا المنتدى

في فورم ادخال البيانات بعض الحقول ليس من الضروره تعبأتها

ولكن يجب التنبيه على مدخل البيانات بأن هذا الحقل فارغ هل يريد تعبأته ام لا ويكون له حق الاختيار

في جميع الحقول حدث عند الخروج يفيد بان الحقل فارغ ولايمكن تركه فارغا

اما في الحقل الاخير رسالة تفيد بان الحقل فارغ وله حق الاختيار بتعبئته او تركة

الحقول الاولى لاتظهر الرسالة الى اذا كان الحقل فارغ

المطلوب هو كيف وضع كود للرسالة في الحقل الاخير لاتظهر اذا تم تعبئة الحقل كما في الحقول الاخرى

المثال مرفق ارجو التكرم بالاطلاع ومساعدتنا في ذالك وللجميع جزيل الشكر

db1.rar

#220 يونيو 2003 في 06:05

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

أخي العزيز

غير الكود في مربع نص نهايتها بما يلي :

Private Sub نهايتها_Exit(Cancel As Integer)
Dim a As Integer
If IsNull(Me![نهايتها]) Then
a = MsgBox("حقل نهايتها فارغ هل تريد المتابعة", vbYesNo + vbDefaultButton2 + vbExclamation + vbMsgBoxRight, "تنبية")
    If a = vbYes Then
        Cancel = True
    Exit Sub
    End If
End If
 DoCmd.GoToControl "إغلاق نموذج"
End Sub