البحث بأى كلمة داخل نموذج غرعى

[ahmed sherif]

السلام عليكم اريد انشاء نموذج بحث مدرج داخل نموذج البحث نمذج اخر لكن به نماذج فرعية اريد مجرد كتابة الاسم داخل مربع البحث يظهر تحديث تلقائgstorm.rarى للحرف الذى كتابتة داخل النموذج الفرعى مرفق الملف

[محمد أبوعبدالله]

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

تفضل اخي الكريم

وهذا تعديل حسب المرفق الخاص بك

Private Sub ffind_Change()
Dim strFilter As String, strSearch As String

                    If Nz(Me.ffind.Text) = "" Then
                    Me.[التخصص]![الحهات الطبية Subform].Form.Filter = ""
                    Me.[التخصص]![الحهات الطبية Subform].Form.FilterOn = False

                    Me.[التخصص]![الادخال Subform].Form.Filter = ""
                    Me.[التخصص]![الادخال Subform].Form.FilterOn = False

Else
                     strSearch = Replace(Me.ffind.Text, "'", "''")
                     strFilter = strFilter & "الجهة LIKE '*" & strSearch & "*'"
                            
End If

                     If strFilter <> "" Then
                     Me.[التخصص]![الحهات الطبية Subform].Form.Filter = strFilter
                     Me.[التخصص]![الحهات الطبية Subform].Form.FilterOn = True
                     
                     Me.[التخصص]![الادخال Subform].Form.Filter = strFilter
                     Me.[التخصص]![الادخال Subform].Form.FilterOn = True
Else
                     Me.[التخصص]![الحهات الطبية Subform].Form.Filter = ""
                     Me.[التخصص]![الحهات الطبية Subform].Form.FilterOn = False
                     
                     Me.[التخصص]![الادخال Subform].Form.Filter = ""
                     Me.[التخصص]![الادخال Subform].Form.FilterOn = False
End If

                    Me.ffind.SetFocus
                    Me.ffind.SelStart = Len(Me.ffind.Text)
     
              
End Sub
Private Sub ffind_KeyUp(KeyCode As Integer, Shift As Integer)

        If KeyCode = 32 Then
        Me.ffind.Value = Me.ffind.Text & Chr$(32)
        Me.ffind.SelStart = Len(ffind.Text)
        
End If
End Sub

gstorm.rar

تحياتي

[أبو عبدالله الحلوانى]

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

مساهمة مع أستاذنا @محمد أبوعبدالله

انظر الي هذا المرفق بالمشاركة التالية لعله يفيدك بشئ

 

تم تعديل أكتوبر 10, 2020 بواسطه أبو عبدالله الحلوانى