طلب للتعديل على كود (بداية ونهاية الشهر بناءا على قيمه (رقم)

[عمر ضاحى]

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

بعد اذن حضراتكم 

طلب للتعديل على كود (بداية ونهاية الشهر بناءا على قيمه حقل (رقم) 

 

 

الكود 

If Me.txtMonthNo >= 12 Then
MsgBox "ان الاشهر السنه هي 12 شهر لا يمكن ان يكون اكثر من هذا", vbCritical, "خطأ"
Me.txtMonthNo = 12
Exit Sub
Else
Me.txtMonthNo = Me.txtMonthNo + 1
Me.txtdate1 = DateSerial(Year(Date), Month(txtMonthNo), 1)
Me.txtdate2 = DateSerial(Year(Date), Month(txtMonthNo) + 1, 0)
Me.Requery
End If
End Sub

 

ForDate.accdbFetching info...

تم تعديل مارس 6, 2022 بواسطه عمر ضاحى
اضافة ملف مرفق

[Moosak]

تفضل أخي عمر .. هذا هو الكود مع إضافة روتين منفصل لحساب أول وآخر الشهر ( تم التعديل على الكود الخاص بك ) 🙂 :

Private Sub cmdTMNOMins_Click()
If Me.txtMonthNo <= 1 Then
MsgBox "ان اقل شهر فى  السنه هو شهر 1 (يناير) لا يمكن ان يكون اقل من هذا", vbCritical, "خطأ"
Me.txtMonthNo = 1
Exit Sub
Else
Me.txtMonthNo = Me.txtMonthNo - 1
firstAndLastDay Me.txtMonthNo
End If
End Sub

Private Sub cmdTMNOPlas_Click()
If Me.txtMonthNo >= 12 Then
MsgBox "ان الاشهر السنه هي 12 شهر لا يمكن ان يكون اكثر من هذا", vbCritical, "خطأ"
Me.txtMonthNo = 12
Exit Sub
Else
Me.txtMonthNo = Me.txtMonthNo + 1
firstAndLastDay Me.txtMonthNo
End If
End Sub

Private Sub firstAndLastDay(MonthNum As Integer)
Me.txtdate1 = DateSerial(Year(Date), MonthNum, 1)
Me.txtdate2 = DateSerial(Year(Date), MonthNum + 1, 0)
End Sub

 

المرفق:

ForDate.accdbFetching info...

[jjafferr]

  في 6‏/3‏/2022 at 10:43, Moosak said:

هذا هو الكود مع إضافة روتين منفصل

Expand  

السلام عليكم اخوي موسى 🙂

 

انا ، وعلشان الوضوح اني انادي دالة :

بدل
firstAndLastDay Me.txtMonthNo


استعمل
call firstAndLastDay (Me.txtMonthNo)

 

حعفر

[Moosak]

  في 6‏/3‏/2022 at 11:25, jjafferr said:

السلام عليكم اخوي موسى 🙂

 

انا ، وعلشان الوضوح اني انادي دالة

Expand  

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

جزاك الله خيراً .. وإحساناً .. وأجرا ..🌹😊

هل الصياغة السابقة تؤثر على الأداء ؟

[jjafferr]

انت ما سامع ان العين تعشق قبل القلب 🙂

لهذا السبب ، انا كمبرمج بدل ان اقرأ تفاصيل كل سطر في الكود ، هناك دلالات تخلي الحاسة السابعة تشتغل ، وبنظرة سريعة اقدر اميز كود عن كود ، لذا هاي احدها اللي تخليني على الطاير اعرف معناها 🙂

 

لا تؤثر على الاداء 🙂

 

جعفر

[عمر ضاحى]

  في 6‏/3‏/2022 at 10:43, Moosak said:

تفضل أخي عمر .. هذا هو الكود مع إضافة روتين منفصل لحساب أول وآخر الشهر ( تم التعديل على الكود الخاص بك ) 🙂 :

Private Sub cmdTMNOMins_Click()
If Me.txtMonthNo <= 1 Then
MsgBox "ان اقل شهر فى  السنه هو شهر 1 (يناير) لا يمكن ان يكون اقل من هذا", vbCritical, "خطأ"
Me.txtMonthNo = 1
Exit Sub
Else
Me.txtMonthNo = Me.txtMonthNo - 1
firstAndLastDay Me.txtMonthNo
End If
End Sub

Private Sub cmdTMNOPlas_Click()
If Me.txtMonthNo >= 12 Then
MsgBox "ان الاشهر السنه هي 12 شهر لا يمكن ان يكون اكثر من هذا", vbCritical, "خطأ"
Me.txtMonthNo = 12
Exit Sub
Else
Me.txtMonthNo = Me.txtMonthNo + 1
firstAndLastDay Me.txtMonthNo
End If
End Sub

Private Sub firstAndLastDay(MonthNum As Integer)
Me.txtdate1 = DateSerial(Year(Date), MonthNum, 1)
Me.txtdate2 = DateSerial(Year(Date), MonthNum + 1, 0)
End Sub

 

المرفق:

ForDate.accdb 460 kB · 3 downloads

Expand  

باشكر حضرتك على الحل 

وجزاك الله عنا كل خير

  في 6‏/3‏/2022 at 11:25, jjafferr said:

السلام عليكم اخوي موسى 🙂

 

انا ، وعلشان الوضوح اني انادي دالة :

بدل
firstAndLastDay Me.txtMonthNo


استعمل
call firstAndLastDay (Me.txtMonthNo)

 

حعفر

Expand  

هذا شرف لى مرور حضرتك هنا

بارك الله لك على الاضافه

[Moosak]

  في 6‏/3‏/2022 at 12:00, jjafferr said:

انت ما سامع ان العين تعشق قبل القلب 🙂

Expand  

ولعله الحب من أول نظرة عامل عمايله معاك 😂

  في 6‏/3‏/2022 at 13:00, عمر ضاحى said:

باشكر حضرتك على الحل 

وجزاك الله عنا كل خير

Expand  

العفو حبيبنا .. 🌹

اللهم آمين وإياكم .. 🤲