السلام عليكم
أريد أن يتم ادراج التاريخ في الحقل ad إلى تاريخ بداية الشهر الذي تم اختياره من مربع تحرير وسرد mon
ارجاع التأريخ إلى بداية الشهر بناء على معلومة من مربع تحرير وسرد
مغلقمُجاب
أحسنت .. جزيت خيرا
أعتقدت أن الإجابة مبنية على كود برمجي وبالمراجعة تبين أن القيم ترجع إلى جدول مسجل فيه البيانات .
إذا المطلوب هو عند اختيار الشهر من الكمبوس عندها تظهر قيمة الحقل ad آليا بداية الشهر الذي تم اختياره فإذا تم اختيار شهر صفر والآن سنة 1434 فتظهر النتيجة 1434/02/01 وفي السنة القادمة إذا اخترت شهر صفر تظهر النتيجة 1435/02/01 وهكذا ..
إني أنتظر الإجابة ...
السلام عليكم
هذا تعديل ليتم كتابة رقم الشهر وليس اسمه
Private Sub mon_AfterUpdate()
Dim MyArr As Variant, i As Integer
VBA.Calendar = vbCalHijri
MyArr = Array("محرم", "صفر", "ربيع الأول", "ربيع الثاني", "جمادى الأولى", "جمادى الثانية", "رجب", "شعبان", "رمضان", "شوال", "ذو القعدة", "ذو الحجة")
For i = LBound(MyArr) To UBound(MyArr)
Select Case mon.Value:
Case Is = MyArr(i)
ad = " 1 / " & i + 1 & " / " & Format(Date, "yyyy"): Exit For
Case Else
ad = Null
End Select
Next
End Sub
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
أحسنت أخي .. فعلا هذا هو المطلوب .
هذا الموضوع مغلق.