+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : طلب كواد تنفيذه كل نهاية سنه (/showthread.php?tid=33631)
طلب كواد تنفيذه كل نهاية سنه - ahmed20 - 03-03-20
سلام عليكم اخواتي الكرام هل توجد طريق لي تنفيذ كواد كل نهاية سنه علي سبيل المثلا
علي فرض ان نحنو في سنه 2020
انا عايز الكواد يتم تنفيذه في 2021
وهكذ يتم نفيذه كل نهاية سنه
وإليكم المرافق لي تطبيق المثل عليه
جزاكم الله خير لي ولكم
RE: طلب كواد تنفيذه كل نهاية سنه - Ahmed_Mansoor - 04-03-20
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم . ضع هذا الكود في حدث الـ 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
بالتوفيق .
RE: طلب كواد تنفيذه كل نهاية سنه - ahmed20 - 05-03-20
اخي الكريم الكواد الثاني اي يتم وضع
وكود الاول هل يتم نسخه اي قاعدة البيانات كل نهاية سنه
يعني انا استخدم قاعدة بيانات اكسل
RE: طلب كواد تنفيذه كل نهاية سنه - ahmed20 - 13-03-20
(04-03-20, 12:17 AM)Ahmed_Mansoor كتب : ممكن سؤال اين يتم حفظ التاريخ عايز في حالة تعلب في تاريخ يظهر المسج يظهر التاريخ القاديمة وتاريخ الجديد في المسج حتي يتم تعديل التاريخ عن طريف المسج بوكس
RE: طلب كواد تنفيذه كل نهاية سنه - Ahmed_Mansoor - 14-03-20
أهلا بك أخي الكريم , شاهد الشرح في مثالك المرفق .