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

[alexandrien]

أرجو من الأخوة أن يساعدوني في حل هذه المشكلة

لدي جدول يحتوي على حقل تاريخ

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

[الموسى1423]

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

Like "*/*/1417"

[رياض الراوي]

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

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

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

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

تم تعديل فبراير 14, 2010 بواسطه رياض الراوي

[رياض الراوي]

وهنا معيار آخر يمكن استخدامه والحاجة تحدد المعيار

Like "*" & [سنة] And Like "*/" & [شهر] & "/*"

[ابوخليل]

السلام عليكم

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

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

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

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

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

تم تعديل فبراير 15, 2010 بواسطه أبو الأنس

[رياض الراوي]

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

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

Me.Detai.Visible

بالسطر

Me.تفصيل.Visible

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

مع الشكر لك

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