تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كواد تنفيذه كل نهاية سنه
#1
سلام عليكم اخواتي الكرام هل توجد طريق لي تنفيذ كواد كل نهاية سنه علي سبيل المثلا
علي فرض ان نحنو في سنه 2020
انا عايز الكواد يتم تنفيذه في 2021
وهكذ يتم نفيذه كل نهاية سنه 
وإليكم المرافق لي تطبيق المثل عليه
جزاكم الله خير لي ولكم 


الملفات المرفقة
.rar   Desktop-2.rar (الحجم : 4.66 ك ب / التحميلات : 8)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم . ضع هذا الكود في حدث الـ Form_Load :

PHP كود :
Dim SavedYear As Integer

SavedYear 
Val(GetSetting("SalesPro""Dates""SavedYear"))

Calendar vbCalGreg

If SavedYear <= 0 Then
   
   
'حفظ رقم السنة الحالية إذا لم يتم حفظ رقم السنة الحالية بعد في الريجستري
   SaveSetting "SalesPro", "Dates", "SavedYear", Year(Date)

Else

   If Year(Date) > SavedYear Then
      
      If MsgBox("سنة جديدة, إضغط على '
نعم' إذا أردت حفظ رقم السنة الجديدة", vbInformation + vbYesNo, "تنبيه") = vbYes Then
         SaveSetting "SalesPro", "Dates", "SavedYear", Year(Date)
      End If
      
   ElseIf Year(Date) < SavedYear Then
      
      MsgBox "تأكد من صحة التاريخ", vbExclamation, "تنبيه"
      
   End If
   
End If 

بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: Microformt , ahmed20 , عبد العزيز البسكري
#3
اخي الكريم الكواد الثاني اي يتم وضع
وكود الاول هل يتم نسخه اي قاعدة البيانات كل نهاية سنه
يعني انا استخدم قاعدة بيانات اكسل
الرد
تم الشكر بواسطة:
#4
(04-03-20, 12:17 AM)Ahmed_Mansoor كتب : ممكن سؤال اين يتم حفظ التاريخ  عايز في حالة تعلب في تاريخ يظهر  المسج يظهر التاريخ القاديمة وتاريخ الجديد في المسج حتي يتم تعديل التاريخ عن طريف المسج بوكس
الرد
تم الشكر بواسطة:
#5
أهلا بك أخي الكريم , شاهد الشرح في مثالك المرفق .


الملفات المرفقة
.rar   Desktop-3.rar (الحجم : 5.18 ك ب / التحميلات : 9)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: ahmed20



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


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