فتح النموذج في يوم محدد

[عمر احمد000]

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

الساده الاعضاء المحترمين بعد اذن حضراتكم محتاج كود لفتح النموذج يوم الاحد من كل اسبوع 

شكرا لحضراتكم

[أبو آدم]

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

انشئ وحدة نمطية جديدة انسخ اليها

Public Function RunForm()


Dim RunSunDayForm As String

RunSunDayForm = Format(Now(), "dddd")
    If RunSunDayForm = ("SunDay") Then

'Call your codehere
DoCmd.OpenForm "form2"

End If

End Function

Form2 هم اسم النموذج الذي نريد ان يفتح كل يوم احد 

ثم وفي حدث عند التحميل للنموذج الافتتاحي ( او نموذج رئيسي ) انسخ 

Private Sub Form_Load()
Call RunForm
End Sub

 

[رمهان]

4 ساعات مضت, عمر احمد000 said:

الساده الاعضاء المحترمين بعد اذن حضراتكم محتاج كود لفتح النموذج يوم الاحد من كل اسبوع 

متى واين يتم الفتح ؟ عند بدء البرنامج ؟ او كشرط عند النقر على زر ؟ او اثناء العمل والبرنامج مفتوح ؟

[عمر احمد000]

الاستاذ/ه رمهان 

عند فتح النموذج واثناء البرنامج وهوا شغال في نفس اليوم المراد فتحه

[رمهان]

2 ساعات مضت, عمر احمد000 said:

الاستاذ/ه رمهان 

عند فتح النموذج واثناء البرنامج وهوا شغال في نفس اليوم المراد فتحه

ممكن تحدد اكثر ؟ بشرح او ما هو عمل هذا النموذج لكي تفهم الصورة اكثر !

واذا كان عند فتح البرنامج فمشاركة الاستاذ ابو ادم تفي بالغرض 

او هات مرفق وبه المطلوب

 

بالتوفيق

[عمر احمد000]

الاستاذ/ ه ريهان 

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

اشكر حضرتك علي اهتمام في الرد

ده كود لفتح النموذج اول يوم في الشهر 

If day(Date) = 1 Then DoCmd.OpenForm "frm1", acNormal

انا اريد تغير هذا الكود بدل مايفتح اول الشهر يفتح يوم الاحد من كل اسبوع 

[رمهان]

جرب

If weekday(Date) = 1 Then DoCmd.OpenForm "frm1", acNormal

اي فقط استبدل الدالة day  بالدالة weekday  والكفيلة باعادة رقم اليوم الاسبوعي

 

بالتوفيق