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

اخي الكريم

انظر في توقيعي ستجد مثال على كيفية التعامل مع التاريخ

تحياتي

شكراً يا اخي

صراحة حوالت كثيراً مع الكود والكن ما ضبط معي ممكن تضيف كود علي مشروعي ؟ لو سمحت

شكراً............................

Select * From Tab Where (Date() - dat) <= 30

شكراً

Private Sub ChqDateA()
On Error Resume Next
Dim TempTx
Dim DayCon
'''
ListView1.ListItems.Clear
'''
Data1.Recordset.MoveFirst
TempTx = Data1.Recordset![DateEx]
'''
Do While Not Data1.Recordset.EOF
'''
DayCon = DateDiff("d", Data1.Recordset![DateEx], Text1.Text)
'''
If CDate(Data1.Recordset![DateEx]) >= CDate(Date) And CDate(DayCon) >= "-30" Then
'''
TempTx = Data1.Recordset![DateEx]
With ListView1.ListItems
With .Add(, , Data1.Recordset![Name])
.ListSubItems.Add , , TempTx
.ListSubItems.Add , , DayCon
End With
End With
'''
End If
Data1.Recordset.MoveNext
Loop
Data1.Refresh
End Sub

شكراً اخي

صراحة حولت كثيراً و لكن اخر ما وصلت الي الحل بهذا الكو.

ممكن تساعد ني في تصحيح بعد اللاخطاء ؟

شكراً......................

أخي الكريم ، الموضوع سهل جداً ،

لكن حتي لا نطيل الحديث ، أنظر المرفق ،

حيث المثال يتحدث عن الموظفين الذين يتم إحالتهم علي المعاش هذه السنة

وبنفس الفكرة أصنع ما تريد

شكراً

Simble.rar

شكراً يا اخي

ممكن حصل مشكلة في الملف المثال مش كامل يحتوي علا ملف واحد فقط DB.mdb.

شكراً................................

اقتباس

شكراً يا اخي

ممكن حصل مشكلة في الملف المثال مش كامل يحتوي علا ملف واحد فقط DB.mdb.

شكراً........

أخي الكريم الملف يحتوي علي إستعلام View أنظر الية

شكراً