[ahmedabdelaliem]

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

اخي شوف الكود ده هو حل المشكلة

PHP كود :

Dim rsR As New ADODB.Recordset
With rsR
cn.CursorLocation = adUseClient
.Open "select * from pers where datentrer Between #" & DateSerial(Year(Text187.Text), Month(Text187.Text), 1) & "# and #" & DateSerial(Year(Text187.Text), Month(Text187.Text) + 1, 0) & "#", cn, adOpenKeyset, adLockReadOnly
If .RecordCount > 0 Then
Set DataGrid1.DataSource = rsR
Else
MsgBox "no"
Exit Sub
End If
End With 


ويوجد بالمرفقات الكود مضاف مع الداتا جريد لعمل البحث اللازم حاول تغير الشهور وسوف ترى النتيجة تمام ان شاء الله
بالتوفيق