تقييم الموضوع :
  • 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
مشكور يا غالي الله يعطيك العافيه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تعديل عمل تاريخين بطريقة عكسية dos2020 0 130 11-05-17, 03:22 AM
آخر رد: dos2020
  [vb6.0] طلب تعديل بكود tempman 2 491 01-02-17, 06:53 PM
آخر رد: tempman
  تعديل على كود بحث عن رقم محدد haniblack 6 382 01-11-16, 09:17 AM
آخر رد: haniblack
  تعديل على حقول الجدول 2 haniblack 9 466 16-10-16, 12:42 PM
آخر رد: haniblack
  اريد تعديل قيمة هيكس في عددة عناوين wolf1120 6 609 18-09-16, 01:13 PM
آخر رد: wolf1120
  ارجو المساعده في تعديل قاعدة البيانات abadi7455 2 428 28-10-15, 04:02 PM
آخر رد: abadi7455
  [vb6.0] ارجو المساعده تعديل ع الاسم الرجاء الوفيه 8 2,376 10-04-15, 01:44 PM
آخر رد: ahmedabdelaliem
  [كود] طلب تعديل على كود فـ ـيـ ـصـ ـل 1 401 17-08-14, 12:50 PM
آخر رد: king2512010
  [سؤال] * طلبي بسيط جدا لم له خلفية فالاستعلام (الفلترة) جزاكم الله الجنة sniper-jawadino 3 836 02-04-14, 11:11 PM
آخر رد: sniper-jawadino

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


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