تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل بسيط
#1
السلام عليكم ورحمة الله وبركاته

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

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

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

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

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

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

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

[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
الرد }}}}
تم الشكر بواسطة:
#2
تفضل اخي
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 
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , abadi7455 , hamada salah90
#3
مشكور يا غالي الله يعطيك العافيه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على كود بحث عن رقم محدد haniblack 6 123 01-11-16, 09:17 AM
آخر رد: haniblack
  تعديل على حقول الجدول 2 haniblack 9 159 16-10-16, 12:42 PM
آخر رد: haniblack
  اريد تعديل قيمة هيكس في عددة عناوين wolf1120 6 233 18-09-16, 01:13 PM
آخر رد: wolf1120
  ارجو المساعده في تعديل قاعدة البيانات abadi7455 2 227 28-10-15, 04:02 PM
آخر رد: abadi7455
  [vb6.0] ارجو المساعده تعديل ع الاسم الرجاء الوفيه 8 1,937 10-04-15, 01:44 PM
آخر رد: ahmedabdelaliem
  [كود] طلب تعديل على كود فـ ـيـ ـصـ ـل 1 304 17-08-14, 12:50 PM
آخر رد: king2512010
  [سؤال] * طلبي بسيط جدا لم له خلفية فالاستعلام (الفلترة) جزاكم الله الجنة sniper-jawadino 3 611 02-04-14, 11:11 PM
آخر رد: sniper-jawadino

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم