اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

هل بالامكان عمل رسالة تذكيرية تظهر اول كل شهر رسالة تظهر كل اول شهر يعنى يوم 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 باسم حقل التاريخ عندك

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

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

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

  • Like 3
رابط هذا التعليق
شارك

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:

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

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • المتواجدين الان   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information