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

طريقة تحديد البحث من خلال الاستعلام


alexandrien

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

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

لا أعتقد أن المعيار الذي قدمه الأخ الموسى مشكوراً يحقق المطلوب لأنه يحدد العام فقط.

وارفق مثال فيه محاولة للحل

بحث عن شهر وسنة.rar

تم تعديل بواسطه رياض الراوي
رابط هذا التعليق
شارك

السلام عليكم

مشكور اخي رياض

وزيادة الخير خير من غير استعلام

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

فإذا اراد الشهر والسنة فقط يكتب رقم الشهر والشرطة المائلة والسنة

Private Sub find_date_Change()

Dim ctc As String * 1

Dim sts As String * 1

ctc = """"

sts = "*"

Me.find_date.Tag = Me.find_date.Text

Me.RecordSource = "SELECT * FROM tbl1 WHERE tbl1.date1 LIKE " & ctc & sts & (Nz(Me.find_date.Tag)) & sts & ctc & ""

If Me.RecordsetClone.RecordCount = 0 Then

Me.Detail.Visible = False

Me.RecordSource = ""

Else

Me.Detail.Visible = True

End If

Me.find_date = Me.find_date.Tag

Me.find_date.SetFocus

SendKeys "{f2}"

End Sub

تم تعديل بواسطه أبو الأنس
رابط هذا التعليق
شارك

أهلاً أخي ابو خليل:

أشكرك على الكود وقد طبقته في مثال حيث لم يعمل معي إلا بعد تغيير

Me.Detai.Visible

بالسطر

Me.تفصيل.Visible

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

مع الشكر لك

بحث عن شهر وسنة.rar

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information