ahmed sherif قام بنشر أكتوبر 10, 2020 مشاركة قام بنشر أكتوبر 10, 2020 السلام عليكم اريد انشاء نموذج بحث مدرج داخل نموذج البحث نمذج اخر لكن به نماذج فرعية اريد مجرد كتابة الاسم داخل مربع البحث يظهر تحديث تلقائgstorm.rarى للحرف الذى كتابتة داخل النموذج الفرعى مرفق الملف رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أكتوبر 10, 2020 مشاركة قام بنشر أكتوبر 10, 2020 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم وهذا تعديل حسب المرفق الخاص بك 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 تحياتي رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر أكتوبر 10, 2020 مشاركة قام بنشر أكتوبر 10, 2020 (معدل) السلام عليكم ورحمة الله وبركاته مساهمة مع أستاذنا @محمد أبوعبدالله انظر الي هذا المرفق بالمشاركة التالية لعله يفيدك بشئ تم تعديل أكتوبر 10, 2020 بواسطه أبو عبدالله الحلوانى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان