الغاء الحفظ التلقائى وكود للمسح

[حمادة عثمان]

اريد للنموذج ان لا يحفظ تلقائيا وانما يحفظ عند الضغط هلى حفظ

واريد اضافة زرار لللمسح

3.rar

[حمادة عثمان]

اين انت يا جعفر

[محمد أبوعبدالله]

السلام عليكم

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then
     Me.Undo
    End If
    DoCmd.SetWarnings True
End Sub

تحياتي

[حمادة عثمان]

20 hours ago, محمد ابوعبد الله said:

السلام عليكم

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then
     Me.Undo
    End If
    DoCmd.SetWarnings True
End Sub

تحياتي

الكود دة بيتحط قبل التحديث للنموذج

انا عندى زرار للحفظ فماذا افعل

[رمهان]

49 دقائق مضت, حمادة عثمان said:

الكود دة بيتحط قبل التحديث للنموذج

انا عندى زرار للحفظ فماذا افعل

جرب .. ضع الحدث زي ماهو ثم ضع زر به امر حفظ وشوف هل تم الحفظ ام ان المشاركة لما تريد بالتمام ... انت جرب اولا ؟

وهذا تعدسيل بسيط وبعد اذن ابو عبدالله

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then
cancel=-1
     Me.Undo
    End If
    DoCmd.SetWarnings True
End Sub

بالتوفيق

[النجاشي]

23 ساعات مضت, حمادة عثمان said:

اريد للنموذج ان لا يحفظ تلقائيا وانما يحفظ عند الضغط هلى حفظ

واريد اضافة زرار لللمسح

3.rar

بعد اذن اخي رمهان .محمد ابو عبدالله .

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

تحياتي لكمhttps://www.google.com/url?sa=t&source=web&rct=j&url=https://www.officena.net/ib/topic/77081-%D8%A7%D9%87%D8%AF%D9%8A%D9%83%D9%85-%D9%87%D8%B0%D8%A7-%D8%A7%D9%84%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D9%84%D9%85%D8%AA%D9%88%D8%A7%D8%B6%D8%B9-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%AF%D9%8A%D9%88%D9%86%D9%8A/&ved=0ahUKEwj934OT-8zTAhWDuBoKHWvrAT0QFggbMAA&usg=AFQjCNFI7yomhXhf-W_9mAv0udiULYYJxA

تم تعديل مايو 9, 2017 بواسطه ابو زاهر

[رمهان]

26 دقائق مضت, ابو زاهر said:

بعد اذن اخي رمهان .محمد ابو عبدالله .

حياك الله واسال الله العظيم الكريم ان يشفي ابنك وهو سميع قريب كريم مجيب

 

[النجاشي]

19 دقائق مضت, رمهان said:

حياك الله واسال الله العظيم الكريم ان يشفي ابنك وهو سميع قريب كريم مجيب

 

 الله يحيك اللهم امين جزاك الله خير اخي رمهان من طيبك ربنا يتقبل دعوتك واشكرك اخي من كل قلبي ان شاء الله لنا لقاء بعد العيد اذا الله احيانا ارتب اموري حاليا للسفر 

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

[محمد أبوعبدالله]

1 ساعه مضت, رمهان said:

حياك الله واسال الله العظيم الكريم ان يشفي ابنك وهو سميع قريب كريم مجيب

 

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

[النجاشي]

5 ساعات مضت, محمد ابوعبد الله said:

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

اسأل الله العظيم رب العرش العظيم ان يشفيه

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