كود تشغيل استعلام من قاعدة أخرى

[ساهر السامر]

السلام عليكم اخواني 

 

هل من الممكن كتابة كود لتشغيل استعلام حذف لقاعدة بيانات من قاعدة أخرى 

بمعنى عندي قاعدتين الأولى أريد تشغيل فيها استعلام حذف لجدول قاعدة البيانات الثانية

طبعا اريدها عن طريق كود 

حيث أن القاعدتين غير مرتبطتين ( لا يمكن ربطهما )

 

أرجوا الإفادة 

تم تعديل يناير 31, 2014 بواسطه ساهر السامر

[ساهر السامر]

هل طلبي مستحيل

[ابوخليل]

بل ممكن ولكن هل تريد حذف البيانات من الجدول ام حذف الجدول نفسه ؟

[ساهر السامر]

لا القاعدة الأولى هي القاعدة الأساسية و التي تحوي على كل البيانات

القاعدة الثانية هي قاعدة لنقل البيانات ( قاعدة خارجية ) 

المطلوب هو عند كل مرة اقوم بنقل البيانات للقاعدة الخارجية 

يتم تشغيل استعلامات الحذف في القاعدة الخارجية لمحو البيانات السابقة و إضافة البيانات الجديدة

[ابوخليل]

تفضل هذا لحذف بيانات جدول خارجي

 Dim dbs As Database
    Set dbs = OpenDatabase(CurrentProject.path & "\data1.mdb")
    ' Delete in tbl1 .
    dbs.Execute "DELETE tbl1.* FROM tbl1"
    dbs.Close

data1.mdb  = القاعدة الخارجية

tbl1 = اسم الجدول في القاعدة الخارجية

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

[ساهر السامر]

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

 

فعلاً هذا الذي أريده بس ممكن تعدلي الكود بحيث أقوم بتحديد المسار 

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

[ساهر السامر]

طلب أخر 
قمت بكتابة الكود لزر اختصار من الكيبورد ليقوم بفتح تقرير لكن 
هذا الكود لم يعمل بسبب ان النموذج يحوي على نموذجين ( راس و تفاصيل ) فالكود يعمل في حال كان الرأس هو المفعل
لكن عندما أقوم بالإدخال في التفاصيل لا يعمل هذا الإختصار و اضطر لاستخدام الماوس فهل يمكنك مساعدتي بهذه المشكلة
و لك كل الاحترام و التقدير

[ساهر السامر]

؟؟

[ساهر السامر]

السلام عليكم اخواني 

لقد قمت بتعديل الكود الي وضعه الأخ أبو خليل و من بعد اذنه طبعا

بحيث يقبل الملف المحدد ضمن الحقل المسمى txtpath  وهذا الحقل يحوي أي مسار يحدده المستخدم دون ارتباطه بمسار القاعدة الأساسية

تم تعديل فبراير 3, 2014 بواسطه ساهر السامر

[ساهر السامر]

Dim dbs As database
Dim strDbName As String
strDbName = Me.txtPath
   (Set dbs = OpenDatabase(strDbName
    ' Delete in tbl11 .
      dbs.Execute "DELETE tbl11.* FROM tbl11"
    dbs.Close