تأجيل التاريخ مع التأثر على السجلات التالية

[محمد احمد لطفى]

بسم الله الرحمن الرحيم 

عند الضغط على زرار تأجيل 
يفتح رسالة كم يوم سيؤجل 
مثلا نضع 30 يأجل التاريخ فى السجل و السجلات التالية 

وجزاكم الله خيرا

test30.rar

[محمد احمد لطفى]

هل من مساعدة

[Shivan Rekany]

3 ساعات مضت, محمد احمد لطفى said:

بسم الله الرحمن الرحيم 

عند الضغط على زرار تأجيل 
يفتح رسالة كم يوم سيؤجل 
مثلا نضع 30 يأجل التاريخ فى السجل و السجلات التالية 

وجزاكم الله خيرا

test30.rar

اتفضل ما تريد بعد تعديل
 

test30.rar

[محمد احمد لطفى]

1 hour ago, Shivan Rekany said:

اتفضل ما تريد بعد تعديل
 

test30.rar

هل يمكن عمل هذا المربع الحوارى  عن طريق
form 

أم لا

[Shivan Rekany]

17 ساعات مضت, محمد احمد لطفى said:

هل يمكن عمل هذا المربع الحوارى  عن طريق
form 

أم لا

ممكن توضح اكتر 
هل تريد ان بيفتح فورم اخر وتدخل ايام التاجيل او اي 
هل انا فهمت بالصحيح 

[محمد احمد لطفى]

صحيح

تغيير هذا الى فورم


عند الضغط على كنسل يظهر خطأ

[Shivan Rekany]

2 ساعات مضت, محمد احمد لطفى said:

صحيح

تغيير هذا الى فورم


عند الضغط على كنسل يظهر خطأ

اي تكدر
ولكن اذا تريد ما يظهر ذاك الرسالة
اكتب هذا قبل الكود
On Error Resume Next
مع تحياتي

[محمد احمد لطفى]

اذا اجلت مرة 

On Error Resume Next

واذا كنسلت مرة اخرى يكرر نفس الامر الاول 

 

أما هذا الكود فهو افضل 
On Error GoTo g:
g: Exit Sub

هل ينفع عمل رسالة التاجيل نموذج بدلا من 

[Shivan Rekany]

17 دقائق مضت, محمد احمد لطفى said:

اذا اجلت مرة 

On Error Resume Next

واذا كنسلت مرة اخرى يكرر نفس الامر الاول 

 

أما هذا الكود فهو افضل 
On Error GoTo g:
g: Exit Sub

هل ينفع عمل رسالة التاجيل نموذج بدلا من 

 

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

On Error Resume Next
 STR_TITLE = "ÔÇÔÉ ÇÖÇÝÉ ÇíÇã"
 STR_PROMPT = "ÃÏÎá ÚÏÏ ÇáÇíÇã ááÊÃÌíá"
X = InputBox(STR_PROMPT, STR_TITLE)
If X > 0 Then
Me.TimerInterval = 1
End If

 

[محمد احمد لطفى]

جزاك الله خيرا يتبقى الرسالة

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

[Shivan Rekany]

14 ساعات مضت, محمد احمد لطفى said:

جزاك الله خيرا يتبقى الرسالة

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

اتفضل ما تريد

 

test30.rar

[محمد احمد لطفى]

جزاك الله خيرا