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

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

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

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

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

test30.rar

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

هل من مساعدة

[Shivan Rekany]

  في 29‏/1‏/2017 at 13:34, محمد احمد لطفى said:

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

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

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

test30.rarFetching info...

Expand  

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

test30.rar

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

  في 29‏/1‏/2017 at 17:10, Shivan Rekany said:

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

test30.rarFetching info...

Expand  

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

أم لا

[Shivan Rekany]

  في 29‏/1‏/2017 at 19:12, محمد احمد لطفى said:

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

أم لا

Expand  

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

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

صحيح

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


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

[Shivan Rekany]

  في 30‏/1‏/2017 at 13:26, محمد احمد لطفى said:

صحيح

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


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

Expand  

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

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

اذا اجلت مرة 

On Error Resume Next

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

 

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

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

[Shivan Rekany]

  في 30‏/1‏/2017 at 16:39, محمد احمد لطفى said:

اذا اجلت مرة 

On Error Resume Next

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

 

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

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

 

Expand  

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

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]

  في 30‏/1‏/2017 at 19:51, محمد احمد لطفى said:

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

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

Expand  

اتفضل ما تريد

 

test30.rar

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

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