اغلاق بدون حفظ

[وسيم الحمادة]

في حال كتبت في اضافة عقد كلمتين وضغطت على 

حفظ واغلاق يظهر رسالة حفظ ام لا 

اذا اخترت لا يروح يحفظ وانت ماطالب حفظ

ممكن السبب والمساعدة تكرم

طابة 2.rar

[Shivan Rekany]

1 hour ago, وسيم الحمادة said:

حفظ واغلاق يظهر رسالة حفظ ام لا 

اذا اخترت لا يروح يحفظ وانت ماطالب حفظ

اضف 

Me.Undo

في الكود  بعد سطر 
Else
 

طابة 2.rar

[وسيم الحمادة]

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

ولكن سؤال في نفس الموضوع في نفس المرفق 

في حال ضغطت على حفظ وجديد واخترت 

لا يجب الاغلاق والعودة للصفحة السابقة

مكتوب 

Else
Me.Undo
DoCmd.Close
DoCmd.OpenForm "ادارة_خدمة_العملاء", acNormal
End If

ولكن لايغلق ويعود

 

طابة 2.rar

[Shivan Rekany]

سؤالك ليس واضحة لي

هناك

1 hour ago, وسيم الحمادة said:

في حال ضغطت على حفظ وجديد واخترت 

لا يجب الاغلاق والعودة للصفحة السابقة

 

حضرتك تسأل عن زر حفظ وجديد

وهنا كتبت جزء من كود زر اغلاق وحفظ

1 hour ago, وسيم الحمادة said:

Else
Me.Undo
DoCmd.Close
DoCmd.OpenForm "ادارة_خدمة_العملاء", acNormal
End If

هذا هو كود للزر حفظ وجديد
 

Private Sub Command172_Click()
On Error Resume Next
Dim a
a = MsgBox("هل تريد الاضافة", vbExclamation + vbDefaultButton1 + vbMsgBoxRight + vbYesNo, "تنبيه")
If a = vbYes Then
DoCmd.GoToRecord , , acNewRec
[اسم_المشروع].SetFocus
Else
Me.Undo
'DoCmd.GoToRecord , , acNewRec
End If
End Sub

وهذا هو كود حفظ واغلاق
 

Private Sub Command173_Click()
On Error Resume Next
a = MsgBox("هل تريد الحفظ", vbExclamation + vbDefaultButton1 + vbMsgBoxRight + vbYesNo, "تنبيه")
If a = vbYes Then
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "ادارة_خدمة_العملاء", acNormal
Else
Me.Undo
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "ادارة_خدمة_العملاء", acNormal
End If
End Sub

الان وضح لي ماذا تريد ان نعمل لك

[وسيم الحمادة]

اخي الكريم

حفظ وجديد

يظهر لك نعم او لا

نعم

يحفظ لك اللي كتبته ويروح لادخال جديد

لا يعود لنفس المدخل اللي ادخلته لربماكتبت شيء خطا

--------------------

الكود الثاني لااحتاج منه شيء

وشكرا جزيلا لك

[ابو ياسين المشولي]

الغي هذا

DoCmd.GoToRecord , , acNewRec

[Shivan Rekany]

3 hours ago, وسيم الحمادة said:

حفظ وجديد

لانك تريد ان يحفظه ويروح الى سجل جديد والا ما كان سميته باسم حفظ وجديد
لذا اذا تريد ان يحفظ فقط يجب عليك ان تحذف سطر اللي بيروح الى سجل جديد كما قال استاذ @ابو ياسين المشولي

[ابو ياسين المشولي]

58 دقائق مضت, Shivan Rekany said:

لانك تريد ان يحفظه ويروح الى سجل جديد والا ما كان سميته باسم حفظ وجديد
لذا اذا تريد ان يحفظ فقط يجب عليك ان تحذف سطر اللي بيروح الى سجل جديد كما قال استاذ @ابو ياسين المشولي

صدقت اخي Shivan Rekany

الاسم يدل على المسمى ولكن اخونا عمل  الاسم غير والقصد غير

[وسيم الحمادة]

مشكوررييين جميعا وكلامكم صحيح والله يجزاكم كل خير