[محمد العبيدي]

تفضل اخي

PHP كود :

Dim zToDayDate As String

VBA.Calendar = vbCalHijri

zToDayDate = Date

Form3.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Currnt_DB_Path & ";Persist Security Info=False "
Form3.Adodc1.RecordSource = "SELECT * FROM al WHERE (DateDiff('d','" & zToDayDate & "',[تاريخ اخر موعد للرد]) Between 5 AND 0) AND [يحتاج  لرد]='نعم'"
Form3.Adodc1.Refresh

If Form3.Adodc1.Recordset.RecordCount > 0 Then
   Set Form3.DataGrid1.DataSource = Form3.Adodc1
   Form3.Show
Else
   Set Form3.DataGrid1.DataSource = Nothing
End If