اذهب الي المحتوي
أوفيسنا

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


mhmadfarooq

الردود الموصى بها

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

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

:المطلوب

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

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

search.zip

رابط هذا التعليق
شارك

اخى mhmadfarooq

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

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

تابع22.visible=false

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

تابع22.visible=true

لعله يفيد

رابط هذا التعليق
شارك

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 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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information