اعادة بيانات تم مسحها

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

من خلال زرار Go سيتم مسح خليتن من النموذج الرئيسى و لكن من خلال نفس الزار أريد استرجاع البيانات 

هل يمكن عمل Undo لها 

أم هل يمكن تخزينهم بشكل مؤقت لاعادتهم 

فى حالة تخزين البيانات فهى لن تخزن دائما 

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

test2023-1.mdb

[Ezril]

متوفر وموجود ولا فائده منه ولكن الافضل جدول مؤقت او قاعده (حاويه) مؤقته فقط ربط FE دائم فريد ليس متعدد الربط (ربط مر واحده فقط)  لانه بعد وقت بدو يرجع!  وهيك بتتعب اذا كان بالخطأ؟!> انه رجع؟! خلها قاعدة والحاق مع اضافة ازالة حذف نهائي 

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

الزرار سوف يمسح البيانات 

 

و لكن للأمان اذا تم الضغط خطأ على الزرار اريد استرجاع البيانات 

فى انتظار حل 

جزاك الله خير 

[Ezril]

والاسترجاع عند برقم! بجدول!  واذا كرر بزر احتمال يحذف!! او اقدم!!  

جرب جدول الحاق عند الحفظ وعدل على بيانات وجرب عرض بيانات المضافة لانه سجل اما جدول كامل!!!   باك آب افضل 

[kkhalifa1960]

تفضل استاذ @محمد احمد لطفى هذا زر أمر  لتأكيد الحذف أو التراجع .

Private Sub cmd_delet_Click()
 If MsgBox("((هل تريد حذف السجل )) " & " " & DLookup("Building_Name", "OwnerBuildingName_AddNew", "[Building_Name]=sr99"), vbYesNo) = vbYes Then
  

    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete OwnerBuildingName_AddNew.[Building_Name] FROM OwnerBuildingName_AddNew WHERE ([Building_Name]=sr99)"
    DoCmd.SetWarnings True
    Me.Requery
    MsgBox "تم حذف السجل بنجاح"
Else
Undo
MsgBox "تم التراجع عن حذف السجل"
Me.m1.SetFocus
End If
End Sub

 

تم تعديل مايو 4, 2023 بواسطه kkhalifa1960

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

أستاذ @kkhalifa1960

مش عارف أطبق الكود

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

[Eng.Qassim]

الظاهر من السؤال ..انك تريد اعادتهم في نفس اللحظة ..

اسهل حل هو عمل مربعي نص مخفيين يحملو القيمة الممسوحة

test2023-1.rar

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

أستاذى @Eng.Qassim

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

ما أبحث عنه أنه هناك طريقة ( يمكن تخزينهم بشكل مؤقت لاعادتهم كقيمة مؤقته أو جدول مؤقت )

مثل 

TempVars

اقتباس

 

 

[kanory]

في 5‏/5‏/2023 at 00:23, محمد احمد لطفى said:

من خلال زرار Go سيتم مسح خليتن من النموذج الرئيسى و لكن من خلال نفس الزار أريد استرجاع البيانات 

هل يمكن عمل Undo لها 

أم هل يمكن تخزينهم بشكل مؤقت لاعادتهم 

فى حالة تخزين البيانات فهى لن تخزن دائما 

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

 

استخدم هذه الشيفرة اخي @محمد احمد لطفى

        Forms![TEST1]![Date_M] = Null
        Forms![TEST1]![NumberEnd] = Null
    If MsgBox("هل تريد اعادة البيانات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
       Forms![TEST1].Undo
    End If

 

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

جزاكم الله خيراً جميع الحلول صحيحة