السلام عليكم
أريد معرفة كيفية حذف الجداول كل جدول على حده ( بعني لا يتم حدف الجداول مرة واحده .. بل كل جدول يتم حذفه بعد رسالة تحذير موافق أو لا ) .. ثم أستيراد جداول معينة ..
كيف يتم عمل ذلك بالكود ؟!
والسلام
حذف وأستيراد الجداول
مغلق
يمكنك حذف الجداول عن طريق هذا الكود :
If MsgBox("are you sure you want delete table", vbYesNo + vbQuestion, "alert") = vbYes Then
DoCmd.DeleteObject acTable, "table1"
Else
Exit Sub
End Ifالسلام عليكم
جربت الكود وهو ممتاز .. لكن إذا كان الجدول مرتبط بعلاقة أو أكثر فإنه لا يقوم بالحذف وطلع رسالة بذلك .. ؟ فهل لذلك حل ؟؟!!
قمت بالتوصل لهذا الكود الآن وهو لاستيراد الجداول من قاعده اخرى ...
DoCmd.TransferDatabase acImport, "Microsoft Access", _ "D:Documents and SettingsAmeer AtifMy Documentsdb1.mdb", acTable, "table_dbsource", _ "table_dbcurrent"
للعلم اخي الكريم ...
اسم الجدول في القاعده التي يتم الاستيراد منها هو table_dbsource
اسم الجدول في القاعده التي نستورد اليها هو table_dbcurrent
----------------------------------------
بالنسبه للرسالة التي تظهر نتيجه وجود علاقه بالجدول الذي يتم حذفه .. يمكن التغلب عليها عن طريق هذا السطر
DoCmd.SetWarnings , False
السلام عليكم
مقصدي من هذا كله هو : حذف جميع الجداول اللي في القاعدة ( أ ) .. وأستيراد جميع الجداول اللي في القاعدة ( ب ) .. فهل يمكن وضع هذا بكود واحد !!
المثال مرفق
وسلامتك
هذا الموضوع مغلق.