السلام عليكم ورحمة الله وبركاته..
تحية طيبة لكم جميعا..
السؤال :
عندي مربع قائمة مثلا اسمه A
والمربع القائمة هذا فيه ارقام شهور السنة من 1 الى 12
اريد اذا يكون مثلا التاريخ الحالي هو 01/11/2008 فانه يتم تلقائيا عند فتح النموذج التظليل على شهر 11
واذا صار التاريخ الحالي مثلا 01/12/2008 فانه يتم تلقائيا عند فتح النموذج التظليل على شهر 12 وهكذا .
بالنسبة لبقية الشهور.
دمتم في امان الله..
تحياتي..
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
أخي في حدث Form_Load ضع الكود التالي .. وكما تلاحظ فإن إسم مربع القائمة عندي هو MonthListBox وتستطيع تغييره بما هو عندك
Dim MonthNo As Integer MonthNo = CInt(Format(Date, "m")) - 1 MonthListBox.Selected(MonthNo) = True
العجيب أنني حاولت إستخدام Month Function عوضا عن إستخدام Format Function فأعطاني خطأ
فقلت لعلي أخطأت في كتابة الكود فبحثت في المساعدة ونسخت نفس الكود الموجود في مثال الوظيفة الموجود في المساعدة وأعطاني خطأ والكود كالتالي
Dim MyDate, MyMonth MyDate = #February 12, 1969# ' Assign a date. MyMonth = Month(MyDate) ' MyMonth contains 2.
فمن يعرف السبب فليساعدني
وجزاكم الله خيرا
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
شكرا جزيلا من القلب اخي العزيز...
وبالتوفيق والنجاح بمشيئة الله تعالى..
تحياتي.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…