اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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  والكفيلة باعادة رقم اليوم الاسبوعي

 

بالتوفيق

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

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