mhmadfarooq قام بنشر أغسطس 16, 2019 مشاركة قام بنشر أغسطس 16, 2019 :السلام عليكم لدي قاعدة البيانات التالية مع نموذج بحث :المطلوب عدم عرض النتائج البحث الا عند ادخال عناصر البحث, اي عدم عرض السجلات عند تحميل النموذج ....ارجو المساعدة وشكراً search.zip رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر أغسطس 16, 2019 مشاركة قام بنشر أغسطس 16, 2019 اخى mhmadfarooq كلمة السر ايه او اعد الارفاق بدون كلمة سر عموما فى حدث on load للنموذج الرئيسى ضع تابع22.visible=false وفى حدث عند الضغط على زر البحث ضع فى آخر الكود تابع22.visible=true لعله يفيد رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر أغسطس 16, 2019 مشاركة قام بنشر أغسطس 16, 2019 في الاستعلام2 في المعاير اسم الطبيب غير الى Like [Forms]![بحث]![d1] رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أغسطس 16, 2019 مشاركة قام بنشر أغسطس 16, 2019 تفضل ...... برنامج الأبحاث PICOoo.accdb رابط هذا التعليق شارك More sharing options...
mhmadfarooq قام بنشر أغسطس 16, 2019 الكاتب مشاركة قام بنشر أغسطس 16, 2019 4 hours ago, essam rabea said: اخى mhmadfarooq كلمة السر ايه او اعد الارفاق بدون كلمة سر عموما فى حدث on load للنموذج الرئيسى ضع تابع22.visible=false وفى حدث عند الضغط على زر البحث ضع فى آخر الكود تابع22.visible=true لعله يفيد عذرا تم رفع القاعدة مع كلمة مرور... القاعدة بدون كلمة مرور اخي الكريم, هدفي من الموضوع هو ان قاعدة البيانات هذه سيصل حجمها خلال شهور الى الاف السجلات وتحميل هذه السجلات يأخذ وقتاً في النموذج , لذلك اريد طريقة لعدم اظهار السجلات الا عند البحث المخصص, وطريقتك باخفاء التابع سيبقي السلات تحمل بالخلفي على مااعتقد اي اراء اخرى وشكراً للجميع search.zip رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 16, 2019 مشاركة قام بنشر أغسطس 16, 2019 (معدل) السلام عليكم و رحمة الله و بركاته اخي الكريم حسب فهمي لطلبك أنك تريد ان يظهر النموذج خالي من البيانات عند فتح النموذج اذا كان فعلا وصفي متوافق مع طلبك اتبع الآتي في حدث عن الفتح فقط ضع التالي On Error Resume Next Me.Form.DataEntry = True Me.Form.FilterOn = False Me.Form.Requery Me.FilterOn = False Me.Requery و في ازرار البحث ضع التالي مع اضافة الحقول التي ترغب بها و فقط المعطيات On Error Resume Next dim 1 ,x2 x1= "اسم الحقل في الجدول" x2= "اسم الحقل في النموذج" Dim varFilter As Variant varFilter = Null If Not IsNull([x2]) Then varFilter = (varFilter + " AND ") & "[x1] LIKE '*" & [x2] & "*'" End If With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With و اي استفسار انا في خدمتك و خدمة جمييع الاعضاء الكرام تم تعديل أغسطس 16, 2019 بواسطه د.كاف يار رابط هذا التعليق شارك More sharing options...
mhmadfarooq قام بنشر أغسطس 16, 2019 الكاتب مشاركة قام بنشر أغسطس 16, 2019 16 minutes ago, د.كاف يار said: السلام عليكم و رحمة الله و بركاته اخي الكريم حسب فهمي لطلبك أنك تريد ان يظهر النموذج خالي من البيانات عند فتح النموذج اذا كان فعلا وصفي متوافق مع طلبك اتبع الآتي في حدث عن الفتح فقط ضع التالي On Error Resume Next Me.Form.DataEntry = True Me.Form.FilterOn = False Me.Form.Requery Me.FilterOn = False Me.Requery و في ازرار البحث ضع التالي مع اضافة الحقول التي ترغب بها و فقط المعطيات On Error Resume Next dim 1 ,x2 x1= "اسم الحقل في الجدول" x2= "اسم الحقل في النموذج" Dim varFilter As Variant varFilter = Null If Not IsNull([x2]) Then varFilter = (varFilter + " AND ") & "[x1] LIKE '*" & [x2] & "*'" End If With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With و اي استفسار انا في خدمتك و خدمة جمييع الاعضاء الكرام شكر ا لك صديقي على الرد: مااريد بحسب المرفق الا يظهر اي سجل في التابع عند فتح النموذج, فقط عند ضغط زر البحث search_2.zip رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 16, 2019 مشاركة قام بنشر أغسطس 16, 2019 تفضل التعديل اخي الكريم برنامج الأبحاث PICO.accdb 1 1 رابط هذا التعليق شارك More sharing options...
mhmadfarooq قام بنشر أغسطس 16, 2019 الكاتب مشاركة قام بنشر أغسطس 16, 2019 شكرا لك اخي العزيز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.