حذف نموذج برمجيا من قاعدة آخرى

[مسفر]

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

[ابوخليل]

Dim objdb As Access.Application
Set objdb = GetObject("C:\db2.mdb")
objdb.DoCmd.DeleteObject acForm, "formName"
objdb.Application.Quit
Set objdb = Nothing

 

[مسفر]

الله يعطيك العافية يا بو خليل أنا جربت الكود أعلاه لكن لم يحذف النموذج وسأعود وأجرب وأعرف السبب وإن لم أعرف سأعود إليك وإن كانت هنالك ملاحظة يجب تنفيذها فأخبرني بها 

[ابوخليل]

انا جربته يعمل 100%  ‘ وتم على قاعدة بيانات على صيغة mdb

C:\db2.mdb  هو اسم وموقع قاعدة البيانات البعيدة

formName  هو اسم النموذج في قاعدة البيانات البعيدة

 

[مسفر]

انا جربته في البداية وتم الامر على قاعد بيانات في القرص دي في مجلد لكن لما رجعت وجربت مره ثانية ما نفع اقتصرت اسم القاعدة وموقعها مثل ما تفضلت ولا نفع معي بعد انا استخدمه للتحديث في برامجي عن بعد 

 

لكن شكرا لسعة صدرك بارك الله فيك 

[ابوخليل]

29 دقائق مضت, مسفر said:

انا جربته في البداية وتم الامر على قاعد بيانات في القرص دي في مجلد

وجربت مره ثانية ما نفع

لايوجد في (الاكواد البرمجية)  مرة تم ومرة ما نفع

تم : يعني الكود صحيح وشغال

ما نفع :  ليس لها محل

هات مثالك الذي تعمل عليه  حتى أبين لك مكان الخلل

[مسفر]

هل الكود هذا فيه خطأ 

Dim objAcc As Access.Application
Set objAcc = GetObject("D:\Mo\mdn.accdb")
objAcc.DoCmd.DeleteObject acForm, "saudd"
objAcc.Application.Quit
Set objAcc = Nothing

 

[ابوخليل]

احتمال الخطأ وارد ، لانك لم ترفق ادواتك التي تعمل عليها

واعتقد ان الخطأ في الامتداد غير صحيح او في اسم النموذج

تم التعديل بحيث لا يدع مجالا للخطأ ، لاني ارفقت الادوات التي كان من المفترض ان ترفقها

فك الضغط عن المرفق في اي مكان واتركهما جانب بعض ،  وتصفح القاعدتين  قبل التنفيذ لتطلع على النماذج

ثم نفذ من القاعدة a

Dim objdb As Access.Application
Set objdb = GetObject(CurrentProject.Path & "\B.accdb")
objdb.DoCmd.DeleteObject acForm, "frm11"
objdb.Application.Quit
Set objdb = Nothing

 

a.rar

[مسفر]

الله يعطيك العافية أبو خليل جزاك الله خير 

تم الحذف بالنسبة للامتداد واسم القاعدة تمام متاكد منه مية بالمية 

حطيت القاعدة جنب القاعدة فحذفها النموذج والماكرو والوحدة النمطية اللي انا حددتهم لك مني كل الشكر والتقدير والاحترام 

 

ولكن سؤال هل أستطيع وضع نموذج داخل البرنامج يستطيع حذف نموذج أخر ووخده نمطية وماكروا او استعلام أو جدول من داخل القاعدة نفسها اذا كذا يكون اسهل لي من هذا كله 

[ابوخليل]

DoCmd.DeleteObject acForm, "form1"
DoCmd.DeleteObject acQuery, "Query1"

 

[مسفر]

الله يرحم والديك قل آمين 

جزاك الله خير الجزاء ورزقك الله من حيث لا تحتسب