رسالة تظهر كل اول شهر

[abouelhassan]

السلام عليكم اخوان الافاضل

بارك الله فيكم اخوانى الاعزاء

هل بالامكان عمل رسالة تذكيرية تظهر اول كل شهر رسالة تظهر كل اول شهر يعنى يوم 1 و2و3و4و5كل شهر وتختفى بدون تدخل 

فقط ستكون رسالة تذكرية وتختفى ثم لا تظهر الا يوم 1و2و3و4و5 الشهر الذى يليه وهكذا

بارك الله فيكم اخوانى الافاضل 

احترامى وتقديرى

Date-1 (3_4).accdb

[ابوخليل]

عليكم السلام

Dim i As Byte
i = Day(Date)
If i = 1 Or i = 2 Or i = 3 Or i = 4 Then
MsgBox "ضع ما تريد توضيحه هنا"
End If

Day(Date)  يرجع رقم اليوم من التاريخ الافتراضي 

يمكنك استبدال Date باسم حقل التاريخ عندك

واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

[abouelhassan]

زادك الله من فضله وكرمه وال بيتك اخى حبيبى استاذى @ابوخليل

والله رائع رائع تسلم ايدك اخى

[Eng.Qassim]

الفرق بين المحترف والمبتدء مثلي هو زيادة عدد اسطر الكود التي ليس لها داعي ☺️

لكنها مفيدة في التعود على الحلقات التكرارية

مشاركة مع استاذي ابو خليل

Private Sub Form_Load()
Dim i As Integer
Dim myDate As Date
myDate = DateSerial(Year(Date), Month(Date), Day(Date))
i = Day(Date)
For i = 1 To 5
    If myDate = DateSerial(Year(Date), Month(Date), i) Then
        MsgBox "مرحبا"
    End If
Next
End Sub

 

[abouelhassan]

بارك الله فيك اخى استاذى Eng.Qassim

مشكور حبيبى اخى الكريم 

[abouelhassan]

28 دقائق مضت, ابوخليل said:

عليكم السلام

Dim i As Byte
i = Day(Date)
If i = 1 Or i = 2 Or i = 3 Or i = 4 Then
MsgBox "ضع ما تريد توضيحه هنا"
End If

Day(Date)  يرجع رقم اليوم من التاريخ الافتراضي 

يمكنك استبدال Date باسم حقل التاريخ عندك

واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

استاذى الحبيب وجدت كود لاستاذى الحبيب @jjafferr ربنا يبارك له ويحفظه اخى الكريم

    Dim Msg, Style, Title, Response, PauseTime
    Dim Sh_Msgbox As Object

    PauseTime = 5  'Seconds
    Msg = "هل تريد الاستمرار"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان"
    
    Set Sh_Msgbox = CreateObject("WScript.Shell")
    
    Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title, Style)
    If Response = vbYes Then
        MsgBox "تم اختيار نعم"
    Else
        MsgBox "تم اختيار لا ، او انتهى الوقت"
    End If

End Sub

كود يعمل على اختفاء الرسالة اتو بعد 5 دقائق 

اردت ان اوظفه مع الكود بتاع حضرتك مع بعض يعنى بس بيظهر لى الرسالتين مع بعض

Dim i As Byte
i = Day(Date)
If i = 1 Or i = 2 Or i = 3 Or i = 14 Then
Dim Msg, Style, Title, Response, PauseTime
    Dim Sh_Msgbox As Object
    PauseTime = 5  'Seconds
    Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان"
     Set Sh_Msgbox = CreateObject("WScript.Shell")
     Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title)
MsgBox "الوقت انتهى"
End If

هل تتكرم استاذى للوقوف على موضع الخطأ اكون شاكر فضلك

احترامى وتقديرى لك اخى

[Eng.Qassim]

40 دقائق مضت, abouelhassan said:

بس بيظهر لى الرسالتين مع بعض

هل تقصد هكذا

Dim i As Byte
i = Day(Date)
If i = 1 Or i = 2 Or i = 3 Or i = 14 Then
Dim Msg, Style, Title, Response, PauseTime
    Dim Sh_Msgbox As Object
    PauseTime = 5  'Seconds
    Msg = "الشاشة ستغلق تلقائيا بعد 5 ثوان "
     Title = "الوقت انتهى"
     Set Sh_Msgbox = CreateObject("WScript.Shell")
     Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title)
End If

 

[abouelhassan]

13 دقائق مضت, Eng.Qassim said:

هل تقصد هكذا

Dim i As Byte
i = Day(Date)
If i = 1 Or i = 2 Or i = 3 Or i = 14 Then
Dim Msg, Style, Title, Response, PauseTime
    Dim Sh_Msgbox As Object
    PauseTime = 5  'Seconds
    Msg = "الشاشة ستغلق تلقائيا بعد 5 ثوان "
     Title = "الوقت انتهى"
     Set Sh_Msgbox = CreateObject("WScript.Shell")
     Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title)
End If

 

احسنت اخى الكريم سلمت يداك 

بارك الله فيك تقبل احترامى وخالص الدعاء من اخيك

[ابوبسمله]

6 ساعات مضت, ابوخليل said:

عليكم السلام

Dim i As Byte
i = Day(Date)
If i = 1 Or i = 2 Or i = 3 Or i = 4 Then
MsgBox "ضع ما تريد توضيحه هنا"
End If

Day(Date)  يرجع رقم اليوم من التاريخ الافتراضي 

يمكنك استبدال Date باسم حقل التاريخ عندك

واضبط الحدث عند تحميل النموذج مثلا او اي حدث تراه مناسبا

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

بحب البساطه بتاعتك 🌹

5 ساعات مضت, Eng.Qassim said:

الفرق بين المحترف والمبتدء مثلي هو زيادة عدد اسطر الكود التي ليس لها داعي ☺️

لكنها مفيدة في التعود على الحلقات التكرارية

مشاركة مع استاذي ابو خليل

روعه كروعتك اخى ومهندسنا العزيز قاسم جزاك الله خيرا 💐