مساعدة في استعلام بحث

[mhmadfarooq]

:السلام عليكم

لدي قاعدة البيانات التالية مع نموذج بحث

:المطلوب

عدم عرض النتائج البحث الا عند ادخال عناصر البحث, اي عدم عرض السجلات عند تحميل النموذج

....ارجو المساعدة وشكراً

search.zip

[essam rabea]

اخى mhmadfarooq

كلمة السر ايه او اعد الارفاق بدون كلمة سر

عموما فى حدث on load للنموذج الرئيسى ضع 

تابع22.visible=false

وفى حدث عند الضغط على زر البحث ضع فى آخر الكود

تابع22.visible=true

لعله يفيد

[kha9009lid]

في الاستعلام2 في المعاير اسم الطبيب

غير الى

Like [Forms]![بحث]![d1]

 

[kanory]

تفضل ......

 

برنامج الأبحاث PICOoo.accdb

[mhmadfarooq]

4 hours ago, essam rabea said:

اخى mhmadfarooq

كلمة السر ايه او اعد الارفاق بدون كلمة سر

عموما فى حدث on load للنموذج الرئيسى ضع 

تابع22.visible=false

وفى حدث عند الضغط على زر البحث ضع فى آخر الكود

تابع22.visible=true

لعله يفيد

عذرا تم رفع القاعدة مع كلمة مرور...

القاعدة بدون كلمة مرور

اخي الكريم, هدفي من الموضوع هو ان قاعدة البيانات هذه سيصل حجمها خلال شهور الى الاف السجلات وتحميل هذه السجلات يأخذ وقتاً في النموذج , لذلك اريد طريقة لعدم اظهار السجلات الا عند البحث المخصص, وطريقتك باخفاء التابع سيبقي السلات تحمل بالخلفي على مااعتقد

اي اراء اخرى 

وشكراً للجميع

search.zip

[د.كاف يار]

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

اخي الكريم حسب فهمي لطلبك أنك تريد ان يظهر النموذج خالي من البيانات عند فتح النموذج

اذا كان فعلا وصفي متوافق مع طلبك اتبع الآتي

 

في حدث عن الفتح فقط ضع التالي

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 بواسطه د.كاف يار

[mhmadfarooq]

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

[د.كاف يار]

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

برنامج الأبحاث PICO.accdb

[mhmadfarooq]

شكرا لك اخي العزيز