كود الحفظ بشرط

[عمر طاهر]

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

ممكن كود لزر الخروج

يقوم بحفظ السجلات المعبئة وتجاهل أو حذف الفارغة ...؟

[د.كاف يار]

29 دقائق مضت, عمر طاهر said:

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

ممكن كود لزر الخروج

يقوم بحفظ السجلات المعبئة وتجاهل أو حذف الفارغة ...؟

تفضل

If MsgBox("هل تريد حفظ التغيرات ؟", vbCritical + vbYesNo, "تنبيه") = vbNO Then
	Cancel = True
	SendKeys "{ESC}"
Else
	DoCmd.RunCommand acCmdSaveRecord
Exit Sub
End If

 

[عمر طاهر]

47 دقائق مضت, د.كاف يار said:

تفضل

If MsgBox("هل تريد حفظ التغيرات ؟", vbCritical + vbYesNo, "تنبيه") = vbNO Then
	Cancel = True
	SendKeys "{ESC}"
Else
	DoCmd.RunCommand acCmdSaveRecord
Exit Sub
End If

 

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

لكن القصد كان أنه بعد اغلاق النموذج والذهاب للجدول أجد جميع السجلات حتى الفارغة !!!

(أريد أن أجد في الجدول فقط التي فيها بيانات)

وشكر مقدم

[د.كاف يار]

6 دقائق مضت, عمر طاهر said:

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

لكن القصد كان أنه بعد اغلاق النموذج والذهاب للجدول أجد جميع السجلات حتى الفارغة !!!

(أريد أن أجد في الجدول فقط التي فيها بيانات)

وشكر مقدم

للأن سؤالك غير واضح 

الافضل ترفق نسخة من برنامجك لكي يتم التعديل عليه

شكرا لك

[عمر طاهر]

6 دقائق مضت, د.كاف يار said:

للأن سؤالك غير واضح 

الافضل ترفق نسخة من برنامجك لكي يتم التعديل عليه

شكرا لك

في المرفق

اذا قمت بادراج مناقلة جديدة وخرجت لاحظ انخ يقوم باحتساب الفراغ انه سجل

MyStore1.rar

[د.كاف يار]

4 دقائق مضت, عمر طاهر said:

في المرفق

اذا قمت بادراج مناقلة جديدة وخرجت لاحظ انخ يقوم باحتساب الفراغ انه سجل

MyStore1.rar 203.79 kB · 1 download

في اي نموذج توجد المشكلة ؟؟ ماهو اسم النموذج

[عمر طاهر]

ras

 

[د.كاف يار]

الخطأ في هذا الجزء

 

الحقل most

لقد تم تعيين قيمة الحقل حين فقدان التركيز عليه الى النص "ادخل المستودع"

بكذا تكون فتحت سجل جديد الأفضل انك تلغيها و تجعلها رسالة 

[د.كاف يار]

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

تجنب وضع الأحداث عند التركيز 

تفضل هذا التعديل

 

2MyStore1.zip

[عمر طاهر]

مشكور للطفك

لكن أدرجت صورة  

فيها السجل المطلوب حذفه او عدم حفظه مؤشر بالاحمر

[Eng.Qassim]

اعتقد المشكلة ايضا عند حدث فتح النموذج

Private Sub Form_Open(Cancel As Integer)

'DoCmd.GoToRecord , , acNewRec
Me.ass.SetFocus

End Sub

 

22 minutes ago, عمر طاهر said:

مشكور للطفك

لكن أدرجت صورة  

فيها السجل المطلوب حذفه او عدم حفظه مؤشر بالاحمر

جربت سجل جديد ولم يحذفه

[عمر طاهر]

انا مشكلتي في حفظ السجل الفارغ عند الخروج 

[د.كاف يار]

تفضل هذا التعديل

 

3MyStore1.zip

[Eng.Qassim]

1 minute ago, عمر طاهر said:

انا مشكلتي في حفظ السجل الفارغ عند الخروج 

بالتأكيد .. عند الخروج من النموذج الفارغ سوف ينتقل الى رقم جديد ويحفظ السجل الفارغ لان انت معطي ايعاز عند الفتح يذهب لسجل جديد

[د.كاف يار]

الان, Eng.Qassim said:

بالتأكيد .. عند الخروج من النموذج الفارغ سوف ينتقل الى رقم جديد ويحفظ السجل الفارغ لان انت معطي ايعاز عند الفتح يذهب لسجل جديد

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

اذا الغاء و التراجع عن التعديل لابد يكون من آخر نموذج الى على شكل رسالة

[عمر طاهر]

• مشكورين جميعا 
• ممنون لطفكم 
• جزاكم الله خيرا