السلام عليكم ورحمة الله وبركاته
ممكن اجد طريقة لاسترجاع بيانات تم حذفها بجملة sql واضافة بيانات اخر بجملة ادخال وتم اغلاق قعدة البيانت بطريقه صحيحة البيانات كثيره جددا ومهمه جدا
هذا هز الكود
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM ptForm;"
DoCmd.SetWarnings TrueDoCmd.SetWarnings True
Dim wrkJet As Workspace
Dim dbs As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase(FileIn, False, False, ";PWD=")
With DBEngine(0)(0)
.Execute "INSERT INTO ptForm SELECT * FROM " & FileIn & ".ptForm;"
End With
جزاكم الله كل الخير