سؤال مهم هل يمكن تنفيذ اى كود فى تاريخ معين مثلا يوم 10 من كل شهر

[abouelhassan]

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

خطر ببالى فكرة احتاج لتنفيذها الى اجابة هذا السؤال

هل يمكن تنفيذ كود فى يوم 10 من كل شهر تلقائيا

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

[ابوبسمله]

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

 If DateSerial(Year(Date), Month(Date), 10) = Date Then MsgBox "yes"

بالتوفيق

[abouelhassan]

31 دقائق مضت, احمد الفلاحجي said:

وعليكم السلام

اتفضل ان شاء الله يكون ما تريد

 If DateSerial(Year(Date), Month(Date), 10) = Date Then MsgBox "yes"

بالتوفيق

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

السؤال المهم هنا

لدى فورمين

الفورم الاول هو frmlogin

الفورم الثانى frmTarhell به كود فى حدث Private Sub tarhel_AfterUpdate()

وكود Private Sub Command6_GotFocus()

عايز اضع فى الفورم الاول لوج اين فى حدث Form_Load

ان فى يوم 10 شهريا نفذ الكودين تلقائيا

فقمت بكتابة الجملة التى تفضلت حضرتك وكتبتها

اضافة الى Call واسم الكودين ولكن لم يتم التنفيذ 

كتبت التالى

 If DateSerial(YEAR(Date), Month(Date), 11) = Date Then MsgBox "yes"
 Call Form_frmTarhell_tarhel_AfterUpdate
 Call Form_frmTarhell_Command6_GotFocus

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

تم تعديل مايو 11, 2022 بواسطه abouelhassan

[ابوبسمله]

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

السؤال المهم هنا

لدى فورمين

الفورم الاول هو frmlogin

الفورم الثانى frmTarhell به كود فى حدث Private Sub tarhel_AfterUpdate()

وكود Private Sub Command6_GotFocus()

العفو والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

يجب تغيير الاحداث لكى تناديها من اماكن اخرى هتشيل كلمه Private  وتسيبها او تكتب public

ثم اتبع شرح اخى ومعلمى العزيز جعفر ببساطه

بالتوفيق

 

[abouelhassan]

اشكرك استاذى بارك الله فيك اخى احمد الفلاحجي والشكر موصول لاخى فى الله استاذى جعفر غفر الله لكم يارب وبارك فيكم

نفذت كل الكلام بالضبط

غيرت الكود الى

Public Sub Command6_GotFocus()
Public Sub tarhel_AfterUpdate()
وفى الفورم المطلوب تشغيل الكودين للتأكد غيرت رقم 10 الى 11 لان تاريخ اليوم هو11/5
Private Sub Form_Load()
 If DateSerial(YEAR(Date), Month(Date), 11) = Date Then MsgBox "yes"
 Call Form_frmTarhell.tarhel_AfterUpdate
 Call Form_frmTarhell.Command6_GotFocus
End Sub

لم يتم تنفيذ الكودين اخى هل انا اخطأت فى شئ احترام من اخيك

بارك الله فيك اخى الكريم

تم تعديل مايو 11, 2022 بواسطه abouelhassan

[ابوبسمله]

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

Public Sub Command6_GotFocus()
Public Sub tarhel_AfterUpdate()

اين هذه الاحداث فى فورم ايه ؟ يتم تغييرها بالفورم الذى تتبع له

اى بالفورم

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

Form_frmTarhell0

ثم

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

 Call Form_frmTarhell0.tarhel_AfterUpdate
 Call Form_frmTarhell0.Command6_GotFocus

بالتوفيق

[abouelhassan]

سأحاول استاذى واوافيك بما حدث لو تكرمت علي اخى الكريم

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

تم تعديل مايو 11, 2022 بواسطه abouelhassan

[ابوبسمله]

1 دقيقه مضت, abouelhassan said:

سأحاول استاذى واوافيك بما حدث لو تكلامت علي اخى الكريم

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

مهو احنا عاوزينك تحاول وتحاول علشان تتعلم معانا وتعتمد ع نفسك اخى العزيز وانا بنتعلم معاكم

بالتوفيق

[jjafferr]

السلام عليكم 🙂

 

ملاحظة:

يجب تغيير صيغة الامر If ، وتجعل تنفيذ الاوامر بداخلها ، هكذا :

Private Sub Form_Load()

If DateSerial(YEAR(Date), Month(Date), 11) = Date Then
   Call Form_frmTarhell.tarhel_AfterUpdate
   Call Form_frmTarhell.Command6_GotFocus
end if

End Sub

.

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

 

جعفر

[abouelhassan]

11 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

ملاحظة:

يجب تغيير صيغة الامر If ، وتجعل تنفيذ الاوامر بداخلها ، هكذا :

Private Sub Form_Load()

If DateSerial(YEAR(Date), Month(Date), 11) = Date Then
   Call Form_frmTarhell.tarhel_AfterUpdate
   Call Form_frmTarhell.Command6_GotFocus
end if

End Sub

.

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

 

جعفر

اسعد الله اوقاتك اخى الكريم بكل خير استاذى حبيبىjjafferr بارك الله فيك اخى الكريم تسلم ايدك اخى فى الله

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

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

احترامى

 

TESTCODE.accdb

تم تعديل مايو 12, 2022 بواسطه abouelhassan

[ابوبسمله]

منور معلمى العزيز @jjafferr وجزاك الله خيرا 💐

منذ ساعه, abouelhassan said:

مراجعة الكود والوقوف على سبب عدم التنفيذ اكون شاكر فضلك اخى الكريم

يعمل بشكل جيد وراجعته

فتح النموذج frmTarhell اول حاجه ثم النموذج Index

ثم الضغط ع زر الترحيل بالنموذج الاول ويتم التنفيذ وعندك تاريخ واحد مطابق للشروط 6/4/2022 ويتم تحديث الحقل iBillStatus الى مرحل

هى دى خطوات العمل ع المثال المرفق منك

بالتوفيق

[abouelhassan]

منذ ساعه, احمد الفلاحجي said:

منور معلمى العزيز @jjafferr وجزاك الله خيرا 💐

يعمل بشكل جيد وراجعته

فتح النموذج frmTarhell اول حاجه ثم النموذج Index

ثم الضغط ع زر الترحيل بالنموذج الاول ويتم التنفيذ وعندك تاريخ واحد مطابق للشروط 6/4/2022 ويتم تحديث الحقل iBillStatus الى مرحل

هى دى خطوات العمل ع المثال المرفق منك

بالتوفيق

استاذى الحبيب اشكرك اخى الكريم ما أريده أن يعمل الكود على تفعيل الكود الموجود بفورم ترحيل tarhel يوم محدد فى الشهر اوتو 

الكود يعمل يدويا تمام إذا انا قمت بفتح الفورم يظهر التاريخ وبالضغط على كلمة ترحيل تتحدث الحالة إلى مرحل اريد تنفيذ هذا تلقائيا 

اتمنى من حضرتك مراجعة الكود للوقوف على الخطأ مشكور اخى الكريم

 

[ابوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

1 ساعه مضت, abouelhassan said:

مراجعة الكود للوقوف على الخطأ

الكود شغال تمام مثل ما قلتلك

ولكن طريقه التنفيذ اللى هتختلف سيتم الوضع باكمله فالنموذج frmTarhell  فحدث عند الفتح

الفكره كلها بتعتمد انت عاوز ايه وعاوز يتنفذ امته وتبدا تنسق امور وترتب الاحداث بتاعتك بس

افتح الملف المرفق ثم افتح الجدول اولا سوف تجد الحقل iBillStatus  فارغ

قم بفتح النموذج frmTarhell فقط ومتعملش حاجه انظر للجدول سوف تجد بان الحقل iBillStatus  تم تحديث الحاله للسجلات التى تنطبق عليها شروط التاريخ

عاوز تخليهم فالزر عادى انقل الكود لحدث عند النقر مش عند التركيز  عاوز تخليه زى ماهو مفيش مشكله

بالتوفيق

TESTCODE.accdb

[abouelhassan]

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

تمام اخى الكريم بس انا احتاج طريقة لعدم فتح فورم ترحيل خالص

لذلك قمت بوضع الاكواد فى فورم index الفورم الرئيسى لدى بحيث عندما يفتح وفى التاريخ المضبوط مثلا10 فى الشهر

يتم تنفيذ الكود الموجود بفورم tarhel تلقائيا 

احتاج ضبط هذه النقطة اخى الكريم برجاء التكرم بالاطلاع والتعديل اخى الكريم

قمت بوضع هذا الكود فى حدث load فى فورم index

Private Sub Form_Load()
If DateSerial(YEAR(Date), Month(Date), 12) = Date Then
    DoCmd.OpenForm "frmTarhell"
End If
End Sub

ويعمل تمام ويقوم بفتح الفورم tarhell

بس عايز جملة توضع تغلق الفورم حاولت ان اكتبها هكذا

DoCmd.closeForm "frmTarhell"

بس لم يغلق الفورم

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

تم تعديل مايو 12, 2022 بواسطه abouelhassan

[ابوبسمله]

وفيك بارك الله

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

نا احتاج طريقة لعدم فتح فورم ترحيل خالص

لذلك قمت بوضع الاكواد فى فورم index الفورم الرئيسى لدى بحيث عندما يفتح وفى التاريخ المضبوط مثلا10 فى الشهر

يتم تنفيذ الكود الموجود بفورم tarhel تلقائيا 

مفيش مشكله اتفضل

Public Sub Command6_Click()
'        Me.Text0 = DateSerial(2020, 3, 1)
'        Me.Text2 = DateSerial(YEAR(Date), Month(Date), 1) - 1
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iBillStatus = ""مرحل""  WHERE (((tbl_Items.iDate) Between DateSerial(2020, 3, 1) And DateSerial(YEAR(Date()), Month(Date()), 1) - 1));"
DoCmd.SetWarnings True
End Sub

بالتوفيق

TESTCODE (2).accdb

[abouelhassan]

تسلم ايدك تسلم عينك يارب استاذى فعلا ممتاز ممتاز ممتاز كل الكلام لا يوافيك حقك

هذا المطلوب بالضبط اخى

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

تقبل احترامى وتقديرى والشكر لاخى استاذى جعفر كل الشكر

[ابوبسمله]

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

هذا المطلوب بالضبط اخى

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

تقبل احترامى وتقديرى والشكر لاخى استاذى جعفر كل الشكر

الحمد لله الذى بنعمته تتم الصالحات

والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

بالتوفيق