منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم اخواتي الكرام هل توجد طريق لي تنفيذ كواد كل نهاية سنه علي سبيل المثلا
علي فرض ان نحنو في سنه 2020
انا عايز الكواد يتم تنفيذه في 2021
وهكذ يتم نفيذه كل نهاية سنه
وإليكم المرافق لي تطبيق المثل عليه

جزاكم الله خير لي ولكم

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

أهلا بك أخي الكريم . ضع هذا الكود في حدث الـ 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

بالتوفيق .

اخي الكريم الكواد الثاني اي يتم وضع
وكود الاول هل يتم نسخه اي قاعدة البيانات كل نهاية سنه
يعني انا استخدم قاعدة بيانات اكسل

(04-03-20, 12:17 AM)Ahmed_Mansoor كتب : [ -> ]ممكن سؤال اين يتم حفظ التاريخ عايز في حالة تعلب في تاريخ يظهر المسج يظهر التاريخ القاديمة وتاريخ الجديد في المسج حتي يتم تعديل التاريخ عن طريف المسج بوكس

أهلا بك أخي الكريم , شاهد الشرح في مثالك المرفق .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmed20

Ahmed_Mansoor

ahmed20

ahmed20

Ahmed_Mansoor