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

الرجاء إعادة تنزيل الملف المرفق ..

تحياتي ..

روح للجدول وفي خصائص الحقل شي اسمح مطلوب

ضع خاصبة مطلوب = نعم

بهذا يتطلب ادخال أي شي في الحقل

وكما قال اخي فد الدوسري الملف معطوب واكيد لما تنزله مرة ثانية راح يفيدك اكثر مني في هذا المجال .

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

If IsNull(Me![yesno]) Or Me![yesno] = "" Then
MsgBox "áÇíãßä ÊÑß åÐÇ ÇáÍÞá ÝÇÑÛÇ ÈÏæä ÈíÇäÇÊ ..... !!!!", _
    vbCritical + vbOKOnly, _
    "ÊÍÐíÑ"
Cancel = -1
End If

ملحوظة المسج بوكس الكلام مش واضح فيها ممكن تغيره لأي رساله أخرى .

أو جرب الأول الكود قبل التغيير .

مرحباً بعودتك أستاذنا أشرف خليل والله لك وحشه

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

أهلا ومرحبا بعودة الاستاذ الفاضل أشرف خليل

ارفق قاعدة البيانات السابقة لإجراء التعديلات بعد إذنكم ولكم جزيل الشكر

أخوكم

احمد

Copy of new_courses.rar

أخي هل يمكن تحديد النماذج التي تريد تطبيق الكود عليها؟

أم أنك تريد ذلك في جميع النماذج.

أخى الكريم biskra

شكرا لك على سرعة ردك على رسالتى جزاكم الله خيرا

انا اريد تطبيق ذلك على كل النماذج ولكنى لا اريد أن اثقل عليك يا اخى الكريم .

فيكفى تطبيق الطريقة على نموذج واحد وانا إن شاء الله سوف اكررها على باقى النماذج

جزاكم الله خيرا

اخوك

احمد

لقد عدلت النموذج المرتبط بمحاضر جديد حاول ترك حقلا فارغا أو كامل الحقول فارغة ثم قم بالضغط على زر العودة للشاشة الرئيسية و سوف تظهر لك الرسالة و لن يغلق النموذج حتى تتم تعبئة كل الحقول.

الكود مرتبط بزر العودة للشاشة الرئيسية في حدث عند النقر .

Copy of new_courses.rar

أخىBISKRA

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

انا أعرف يا اخى الكريم أنى أثقل عليك بكثرة السؤال ولكنى بعد إذك أريد طريقة للتطبيق على الحقول ذاتها أى أنه لا يخرج من الحقل رقم المحاضر إلا إذا سجل فيه القيمة أو ضغط على المفتاح ESC للخروج من الشاشة وعدم تسجيل سطر فارغ فى الجدول المبنى عليه النموذج .

جزاكم الله خيرا يا اخى

اخوك

احمد

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

بحيث أنه عند اٍدخال البيانات في حقل ما سوف تظهر لك رسالة تنبيه تحدد لك اٍسم الحقل الذي لم تدخل فيه البيانات المطلوبة.

اٍتبع ما يلي:

1 اٍنشأ مديول جديد و قم بنسخ الكود التالي فيه:

Public Function RequiredData(ByVal TheForm As Form) As Boolean


    Dim Ctl As Control
    Dim Num As Integer
    
    On Error GoTo Err_RequiredData
    
    RequiredData = False
    Num = 0
    For Each Ctl In TheForm
        If Ctl.ControlType = acTextBox Then
            If Ctl = "" Or IsNull(Ctl) Then
                Num = 1
                Exit For
            End If
        End If
    Next Ctl
    If Num = 1 Then
        MsgBox "البيانات مطلوبة في حقل " & Ctl.Name & "" & vbCr & _
        "يرجى التأكد من اٍدخال المعلومات في هذا الحقل", _
        vbInformation, "...بيانات مطلوبة"
        RequiredData = True
    Else
        RequiredData = False
    End If

Exit_RequiredData:

    On Error Resume Next
        If Not (Ctl Is Nothing) Then
            Set Ctl = Nothing
        End If
    Exit Function

Err_RequiredData:

    Select Case Err
        Case 0
            Resume Next
        Case Else
            MsgBox "Error: " & Err.Number & vbCrLf & vbCrLf & Err.Description, _
            vbInformation
    End Select

End Function

قم بحفظ هذا المديول باسم Module1

2 اٍذهب الى النموذج الذي تريد أن تكون اٍدخال البيانات في كل حقوله مطلوبة, في وضع التصميم له و في حدث قبل التحديث أنسخ الكود التالي:

 If RequiredData(Me) Then Cancel = -1

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

أرفق لك مثالا على ذلك للمساعدة.

Copy.rar

أخى الكريم biskra

جزاكم الله خيرا على ردكم السريع على رسالتى ووفقكم الله لما فيه خير الأمة وبارك الله لنا فيك وأزادك من العلم لخدمة المسلمين والمنتدى .

أخوك

احمد