ساهر السامر قام بنشر يناير 31, 2014 قام بنشر يناير 31, 2014 (معدل) السلام عليكم اخواني هل من الممكن كتابة كود لتشغيل استعلام حذف لقاعدة بيانات من قاعدة أخرى بمعنى عندي قاعدتين الأولى أريد تشغيل فيها استعلام حذف لجدول قاعدة البيانات الثانية طبعا اريدها عن طريق كود حيث أن القاعدتين غير مرتبطتين ( لا يمكن ربطهما ) أرجوا الإفادة تم تعديل يناير 31, 2014 بواسطه ساهر السامر
ابوخليل قام بنشر فبراير 1, 2014 قام بنشر فبراير 1, 2014 بل ممكن ولكن هل تريد حذف البيانات من الجدول ام حذف الجدول نفسه ؟
ساهر السامر قام بنشر فبراير 1, 2014 الكاتب قام بنشر فبراير 1, 2014 لا القاعدة الأولى هي القاعدة الأساسية و التي تحوي على كل البيانات القاعدة الثانية هي قاعدة لنقل البيانات ( قاعدة خارجية ) المطلوب هو عند كل مرة اقوم بنقل البيانات للقاعدة الخارجية يتم تشغيل استعلامات الحذف في القاعدة الخارجية لمحو البيانات السابقة و إضافة البيانات الجديدة
ابوخليل قام بنشر فبراير 1, 2014 قام بنشر فبراير 1, 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 = اسم الجدول في القاعدة الخارجية ضع قاعدة البيانات بجانب القاعدة الافتراضية او غير المسار ان اردت في الامتداد اعلاه
ساهر السامر قام بنشر فبراير 1, 2014 الكاتب قام بنشر فبراير 1, 2014 جزاك الله أخي كل خير فعلاً هذا الذي أريده بس ممكن تعدلي الكود بحيث أقوم بتحديد المسار يعني القاعدة الخارجية لا يوجد لها مسار محدد ( بحيث أستطيع تحديد مسارها )
ساهر السامر قام بنشر فبراير 1, 2014 الكاتب قام بنشر فبراير 1, 2014 طلب أخر قمت بكتابة الكود لزر اختصار من الكيبورد ليقوم بفتح تقرير لكن هذا الكود لم يعمل بسبب ان النموذج يحوي على نموذجين ( راس و تفاصيل ) فالكود يعمل في حال كان الرأس هو المفعللكن عندما أقوم بالإدخال في التفاصيل لا يعمل هذا الإختصار و اضطر لاستخدام الماوس فهل يمكنك مساعدتي بهذه المشكلةو لك كل الاحترام و التقدير
ساهر السامر قام بنشر فبراير 3, 2014 الكاتب قام بنشر فبراير 3, 2014 (معدل) السلام عليكم اخواني لقد قمت بتعديل الكود الي وضعه الأخ أبو خليل و من بعد اذنه طبعا بحيث يقبل الملف المحدد ضمن الحقل المسمى txtpath وهذا الحقل يحوي أي مسار يحدده المستخدم دون ارتباطه بمسار القاعدة الأساسية تم تعديل فبراير 3, 2014 بواسطه ساهر السامر
ساهر السامر قام بنشر فبراير 3, 2014 الكاتب قام بنشر فبراير 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.