تعديل كود حفظ المعلومات عند اخفاء واظهار الحقل

[بلال اليامين]

السلام عليكم

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

أريد التعديل على كود حفظ المعلومات عند يتم اخفاء حقل تاريخ الميلاد  لم يكن اجباري ادخال

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

الافواج (1) (2).accdb

[ابو عارف]

وعليكم السلام

لاحظ تغير في سطر سابع

 Dim msg1 As String
    Dim ctl As Control
    Dim birthDateControl As Control

    Set birthDateControl = Me.m

    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            If (IsNull(ctl) Or ctl = "") And ctl.Visible = True Then
            Debug.Print ctl.Name
                If msg1 = "" Then
                    msg1 = "لا يمكن الاستمرار توجد حقول فارغه " & vbNewLine & ctl.Name
                End If
            End If
        End If
    Next ctl

    If birthDateControl.Visible = True And (IsNull(birthDateControl) Or birthDateControl = "") Then
        msg1 = "لا يمكن حفظ البيانات، تاريخ الميلاد فارغ." & vbNewLine
    End If

    If msg1 = "" Then
        DoCmd.RunCommand acCmdSaveRecord
        MsgBox "تـمـت عـمـلـيـة تعـديــل المـعـلـومـات بنجـــــاح", vbMsgBoxRight, " "
        DoCmd.GoToRecord , , acNewRec
    Else
        MsgBox msg1 & vbNewLine & "الرجاء اكمل المعلومات", vbMsgBoxRight, "بلدية سطيف"
    End If

 

تم تعديل أغسطس 16 بواسطه ابو عارف

[بلال اليامين]

السلام عليكم

استاذ مازال المشكل عند اخفاء الحقل 

استاذ بارك فيك 

[بلال اليامين]

استاذ اخطأ في وضع الكود 

ولقد تم اصلاحه