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

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


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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

 

بالتوفيق

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

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

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

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

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

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

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

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

جرب

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

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

 

بالتوفيق

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information