[abadi7455]

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

الله يعطيك العافيه ي شباب ابي تعديل بسيط على كود سواه لي الاخ احمد

وفكرته رساله تضهر عند تشغيل البرنامج ان في معامله تحتاج لرد

الاستاذ احمد ما قصر سواه لي ولكن الرساله تضهر قبل موعد الرد بخمسه ايام فقط

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

يعني التذكير يكون طيبلة خمسة ايام

ليس مره واحده فقط قبل خمسه ايام

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

[url=http://www.up-00.com/][/url]
وهذا الكود

كود :

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 & "',[تاريخ اخر موعد للرد])=5 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

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

تفضل اخي

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 


[abadi7455]

مشكور يا غالي الله يعطيك العافيه