الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عمل عدة جمل شرطية بوحدة نمطية

مغلق
بدأه snmdody في 16 يونيو 2005 · 1 رد · 1,107 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أريد أن اضع الجمل الشرطية الموضحة أدناه في وحدة نمطية حتى أتمكن من إستخدامها داخل أي نموذج لتحقق من الشروط ، فهل هذا ممكن ؟

If IsNull([Class]) Or ([Class]) = "" Then
MsgBox "يجب إختيار درجة التسكين من القائمة", vbOKOnly + vbCritical, "تحذير"
Class.SetFocus
Exit Sub
End If
    
If IsNull([PassengerName]) Or ([PassengerName]) = "" Then
MsgBox "يجب إدخال إسم المسافر كاملا", vbOKOnly + vbCritical, "تحذير"
PassengerName.SetFocus
Exit Sub
End If
    
If IsNull([Nationality]) Or ([Nationality]) = "" Then
MsgBox "يجب إختيار الجنسية من القائمة", vbOKOnly + vbCritical, "تحذير"
Nationality.SetFocus
Exit Sub
End If

مشكورين وما تقصروا اكيد

#2

أنا حاولت كتابة الكود الموضح أدناه في وحدة نمطية .. وسؤالي هو ، هل طريقة كتابة الإجراء صحيحة ، وأرجو كذلك إعلامي بطريقة إستدعاء الإجراء من داخل نموذج .

Public Sub DoStatistic()
On Error Resume Next
If IsNull([TicketType]) Or ([TicketType]) = "" Then
MsgBox "يجب إختيار نوع التذكرة من القائمة", vbOKOnly + vbCritical, "تحذير"
TicketType.SetFocus
Exit Sub
End If

If IsNull([Class]) Or ([Class]) = "" Then
MsgBox "يجب إختيار درجة التسكين من القائمة", vbOKOnly + vbCritical, "تحذير"
Class.SetFocus
Exit Sub
End If
End sub

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…