+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : تعديل بسيط (/showthread.php?tid=13736)
تعديل بسيط - abadi7455 - 06-11-15
السلام عليكم ورحمة الله وبركاته
الله يعطيك العافيه ي شباب ابي تعديل بسيط على كود سواه لي الاخ احمد
وفكرته رساله تضهر عند تشغيل البرنامج ان في معامله تحتاج لرد
الاستاذ احمد ما قصر سواه لي ولكن الرساله تضهر قبل موعد الرد بخمسه ايام فقط
انا ابي الرساله تذكير كل يوم لمدة خمسه ايام اذا راح موعد الرد تختفي يختفي الموعد ويبقي بس اللي محتاجه رد
يعني التذكير يكون طيبلة خمسة ايام
ليس مره واحده فقط قبل خمسه ايام
وممكن طريقة توسيط الاعمدة في الجدول
[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 IfRE: تعديل بسيط - محمد العبيدي - 06-11-15
تفضل اخي
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
RE: تعديل بسيط - abadi7455 - 07-11-15
مشكور يا غالي الله يعطيك العافيه