Elsayed Bn Gemy قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 السلام عليكم ورحمة الله تعالى وبركاته نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام كيفية استرجاع الجداول المحذوفة يمكن استرجاع الجداول المحذوفة فى قاعدة بينات اكسس ولكن بثلاث شروط 1 - لم يتم اغلاق قاعدة البانات بعد حذف الجدولا 2 - لم يتم ضغطها 3 - تم حذف الجدول باستخدام واجهة مستخدم اكسس ضع هذا الكود فى وحدة نمطيه Function UnDeleteTable(Optional sName As String) Dim db As DAO.DATABASE Dim tdf As DAO.TableDef Dim sTable As String Dim sSQL As String Dim sMsg As String If IsMissing(sName) Then sName = "RestoredTable" If Len(sName) = 0 Then sName = "RestoredTable" Set db = CurrentDb() For Each tdf In db.TableDefs If Left(tdf.Name, 4) = "~tmp" Then sTable = tdf.Name sSQL = "SELECT [" & sTable & "].* INTO " & sName sSQL = sSQL & " FROM [" & sTable & "];" db.Execute sSQL sMsg = "A deleted table has been restored as " & sName MsgBox sMsg, vbOKOnly, "Restored" GoTo Exit_Undelete End If Next MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found" Exit_Undelete: Set db = Nothing Exit Function Err_Undelete: MsgBox Err.Description Resume Exit_Undelete End Function ويمكنك استدعائها فقط بهذا الكود UndeleteTable("MyTable") لااعلم مدى اهمية ذلك بالنسبة لكم اخوانى الكرام ولكن ما كنت احبسه عنكم قم بتصميم قاعدة بينات للتجربة وانشء الجداول واضف بسجلاتك ثم قم بمسها واستدعها من خلاا الكود 3 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 راعى الغنم اخ جميل واستاذ عزيز جدا جدا على قلوبنا ونسيت التوقيع عالم مارد تسلم ايدك رابط هذا التعليق شارك More sharing options...
Elsayed Bn Gemy قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 راعى الغنم اخ جميل واستاذ عزيز جدا جدا على قلوبنا ونسيت التوقيع عالم مارد تسلم ايدك شكرا لك اخى محمد وشرف لى انك اول من رد على المشاركة رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 24, 2015 مشاركة قام بنشر مايو 24, 2015 السلام عليكم ورحمة الله تعالى وبركاته نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام الله يكرمك ويعلي مراتبك ويزيدك من افضاله ونعمه التي لا تحصى اعجز عن شكر اطرائك ومدحك لي وانا اقل مما تفضلت به ولا استطيع ان اجازيك ولكن اجعل جزائك من الله سبحانه فهو القادر على مجازاتك.. اعتذر عن تاخري في الرد لأنقطاع النت لدي وشكرا مرة اخرى ع مقالك الجميل... رابط هذا التعليق شارك More sharing options...
راعي الغنم قام بنشر مايو 24, 2015 مشاركة قام بنشر مايو 24, 2015 راعى الغنم اخ جميل واستاذ عزيز جدا جدا على قلوبنا ونسيت التوقيع عالم مارد تسلم ايدك انت تعلم ما بقلبي لك من معزة خاصة ايضا فشكرا لك ع ثنائك لي وجزاك الله عني كل خير.. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان