طلبك غريب نوعا
لان الشهر الكامل اكمل واجمل
وهذا يعني ان اجابة اخونا الوزير نموذجية ولو كان العمل لي لاخذت بها
ما علينا
اعمل ثلاث حقول في النموذج txt3 ، txt2 ، txt1
وفي حدث بعد التحديث للحقل txt1 الصق هذا الكود
Dim kdate As Date
kdate = 15 & "/" & txt1 & "/" & Format(Date(), "yyyy")
txt2 = txt1 & "_" & "01"
txt3 = txt1 & "_" & Format(DateSerial(Year(kdate), Month(kdate) + 1, 0), "dd")
txt1 هو الحقل الذي ستكتب فيه رقم الشهر
مع الاخذ بالاعتبار ان النتيجة ستكون محصورة في السنة الحالية
db1.rar