• 0
Lamyaa

التحقق من استكمال الحقول في النموذج الفرعي

سؤال

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

 

استخدم هذه الكود للتحقق من تعبئة البيانات في الحقول المطلوبة .. وذلك بتغيير خاصية Tag (العلامة) للحقل المراد بوضع كلمة مطلوب مثلاً

    Dim Ct As control
        For Each Ct In Me
            If Ct.Tag = "ãØáæÈ" Then
            If Not IsNull(Ct) Or Ct <> "" Then
                Ct.BackColor = vbWhite
                End If
            If IsNull(Ct) Or Ct = "" Then
            MsgBox "íÑÌì ÇÓÊßãÇá ÌãíÚ ÇáÍÞæá ÇáãØáæÈÉ ÇÖÛØ ãæÇÝÞ ááÇäÊÞÇá ááÍÞá ÇáãØáæÈ", vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÃ"
               Ct.SetFocus
               Ct.BackColor = VBred
               Exit Sub
                End If
            End If
        Next Ct

وهو يعمل بشكل رائع ..

ولكن السؤال هنا .. كيف يمكن أن أحول هذا الكود ليتحقق من تعبئة حقل موجود في نموذج فرعي

subform.accdb

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 1

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

تفضل اخي الكريم التعديل المطلوب

Private Sub ÃãÑ15_Click()
    Dim Ct As Control, ctlsbf As Control
        For Each Ct In Me
            If Ct.Tag = "ãØáæÈ" Then
           
            
            If Not IsNull(Ct) Or Ct <> "" Then
                Ct.BackColor = vbWhite
                End If
            If IsNull(Ct) Or Ct = "" Then
            MsgBox "íÑÌì ÇÓÊßãÇá ÌãíÚ ÇáÍÞæá ÇáãØáæÈÉ ÇÖÛØ ãæÇÝÞ ááÇäÊÞÇá ááÍÞá ÇáãØáæÈ", vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÃ"
               Ct.SetFocus
               Ct.BackColor = &HC1C1FF
               Exit Sub
                End If
            End If
                            
                            If Ct.ControlType = acSubform Then
                             
                                For Each ctlsbf In Ct.Form.Controls
                                   
                                    If Not IsNull(ctlsbf) Then
                                   
                                               ctlsbf.BackColor = vbWhite
                                    End If
                                        If IsNull(ctlsbf) Then
                                            MsgBox "íÑÌì ÇÓÊßãÇá ÌãíÚ ÇáÍÞæá ÇáãØáæÈÉ ÇÖÛØ ãæÇÝÞ ááÇäÊÞÇá ááÍÞá ÇáãØáæÈ", vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÃ"
                                            ctlsbf.SetFocus
                                            ctlsbf.BackColor = &HC1C1FF
                                           Exit Sub
                                           End If
                               
                            
                            Next ctlsbf
                            End If
        Next Ct


 


End Sub

 

subform.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
45 دقيقة مضت , إياد بيك said:

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

تفضل اخي الكريم التعديل المطلوب

Private Sub ÃãÑ15_Click()
    Dim Ct As Control, ctlsbf As Control
        For Each Ct In Me
            If Ct.Tag = "ãØáæÈ" Then
           
            
            If Not IsNull(Ct) Or Ct <> "" Then
                Ct.BackColor = vbWhite
                End If
            If IsNull(Ct) Or Ct = "" Then
            MsgBox "íÑÌì ÇÓÊßãÇá ÌãíÚ ÇáÍÞæá ÇáãØáæÈÉ ÇÖÛØ ãæÇÝÞ ááÇäÊÞÇá ááÍÞá ÇáãØáæÈ", vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÃ"
               Ct.SetFocus
               Ct.BackColor = &HC1C1FF
               Exit Sub
                End If
            End If
                            
                            If Ct.ControlType = acSubform Then
                             
                                For Each ctlsbf In Ct.Form.Controls
                                   
                                    If Not IsNull(ctlsbf) Then
                                   
                                               ctlsbf.BackColor = vbWhite
                                    End If
                                        If IsNull(ctlsbf) Then
                                            MsgBox "íÑÌì ÇÓÊßãÇá ÌãíÚ ÇáÍÞæá ÇáãØáæÈÉ ÇÖÛØ ãæÇÝÞ ááÇäÊÞÇá ááÍÞá ÇáãØáæÈ", vbMsgBoxRight + vbMsgBoxRtlReading, "ÎØÃ"
                                            ctlsbf.SetFocus
                                            ctlsbf.BackColor = &HC1C1FF
                                           Exit Sub
                                           End If
                               
                            
                            Next ctlsbf
                            End If
        Next Ct


 


End Sub

 

subform.rar

جزيل الشكر والتقدير لك

بالفعل هو ما أردت

 

بارك الله فيك ووفقك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .