الرجاء المشاركه في الموضوع
http://www.arabteam2000.com/vb/showthread....&threadid=29902
فتح قاعد بيانات من قاعدة أخرى
مغلق
السلام عليكم ورحمة الله وبركاته
أخي العزيز
http://www.arabteam2000.com/vb/showthread....?threadid=16008
========
مشكور اخي فيصل ويعطيك الف عافيه
واسف علي ازعاجك
انا دخلت علي الرابط ولكن لم يعمل معي الكود
انا استخدمت هذا الكود
Dim wrkJet As Workspace
Dim AbA As Database
Set wrkJet = DBEngine.Workspaces(0)
Set AbA = wrkJet.OpenDatabase("c:My Documentsaa.mdb", _
False, False, _
";PWD=123")
ولم يفتح معي البرنامج المطلوب
ارجوا ان تساعدني جزاك الله خير
وشكرا
السلام عليكم
لهل الدرجه السؤال صعب
ما اعتقد صعب علي شباب المنتدى الاشاوس
ملاحظة : اريد فتح البرنامج وليس نقل جول او عمل رابط
وشكرا
يالصراف خذ هذا التعديل بالمجلد وأحفظه في My Documents
كنت أود أن أشرح الكود بالتفصيل لكن الوقت داهمني.
أوعدك أنت والزملاء بأن أفرده بمشارك مستقلة لأنه يحتاج إلى تأمين أكثر
جرب هذا الكود في قاعدة البيانات لكن لا تعتمده نهائيا ( تصبيرة على قولهم )
السلام عليكم ورحمة الله وبركاته
أخي العزيز
ارفقت لك الملف بعد التعديل
ولكني اعتب عليك بانك لم تقرأ شروط الكتابه
اخي العزيز لاتحاول فتح مشاركه اخرى في نفس الموضوع وانما يكفيك ان تكتب كلمة ( للرفع ) فقط ليظهر موضوعوك في المقدمه ليراه الاخوه ومن ثم يقومون بالرد عليك .
========
اشكرك اخي Gaham علي الرد
شغلت المثال ولكن لم يفتح معي البرنامج
وانا في انتظار الرد الموسع لموضوعك والله يعطيك العافيه
اخي فيصل الحربي
انا اسف ولم اقصد اني اخالف التعليمات وانا قرات التعليمات ولم الاحظ كلمة الرفع
وإن شاء الله للمرات الجايه وهذا وعد
اما بالنسبة للموضوع فتحت المثال المرفق ولم يعمل معي اي لم يفتح لي البرنامج aa انا اريد ان يفتح لي قاعده وليس لجلب جدول او عمل لنك
واشكرك مره اخري يا طويل العمر
جزاك الله كل خير
أعتذر قاعدة البانات التي أرسلتها لك في تنسيق( 2000 )
خذها الآن في تنسيق ( 97 )
كما أخبرتك في الرد السابق؛ ضعها بمجلدها في مجلد my documents
سوف تفتح قاعدة البانات للكن لن تظهر على السطح بل تبقى مفتوحة وعلى فكرة ستبقى قاعدة البانات الأساسية مفتوحة ( أي غير مؤمنة ) حتى لو أقفلت قاعدة البيانات الفرعية لأن طلبك هو فتح قاعدة البانات، وهذا ما نبهت عليه في السابق بأن الكود يحتاج إلى تأمين أكثر بإضافة كود إغلاق لقاعدة البانات بعد التعامل مع بياناتها ( أعني الأساسية )
تنبيه آخر: قمت بعمل الكود في في مجلد الوحدة النمطية وألحقت معه كود إنشاء رقم سري لقاعدة البانات عن طريق الكود وأيضا تغيير القرقم السري عن طريق الكود ( وهذا كله يحتاج إلى شرح مسهب )
اخي العزيز Gaham
مشكور علي الاهتمام
البرنامج الثاني pass1 لا يفتح معي انا اريد ان افتح pass1 من خلال pass2
انا في انتظارك
جربته أكثر من مرة وماشي على أحسن حال يمكن أفهم طلبك عبر محادثة صوتية أتعرف بها عليك وأفهم طلبك?
للرفع
هذة هي الدالة عزيزي الصراف وآسف على التأخير
اشكرك اخي Gaham
لقد نسيت الرقم السري للقاعده الثانيه
وشكرا
اخى الكريم اذا اردت ان تفتح قاعدة بيانات اخرى عبر قاعدة البيانات التى انت شغال عليها
استخدم امر shell
Sub OpenDB() Shell "MSACCESS.exe c:MyDB.mdb", vbNormalFocus End Sub
ادخل هذا الامر هذا قبل end sub
DoCmd.Quit acExit
حتى يتم قفل قاعدة البيانات الاولى
ارجو ان يفيدك
وشكرا
السلام عليكم
اخي Gaham مرحبا
انا في انتظار ردك علي وانتظار المثال مع الرقم السري
اخي سالم شكرا علي ردك لي
ولكن القاعده الثانيه محميه برقم سري ونفرض ان الرقم هو 123 كيف يتم فتح القاعده الثانيه بوجود الرقم السري
ولكم جزيل الشكر
للرفع
ارجوا من الجميع حل المسألة وذلك لضرورة الموضوع
وشكرا
وجزاكم الله خير الجزاء
اعيد السؤال
اريد ان افتح قاعده مأمنه برقم سري من خلال قاعده ثانيه
اي ان قاعده اسمها aa مأمنه برقم سري وهوا 123
والقاعده الثانيه اسمها bb اريد من خلال bb ان اشغل قاعده الثانيه وهي aa
ولكم جزيل الشكر جميعا
للرفع
الرجاء من الجميع المشاركه
للرفع
للرفع
الرجاء المشاركه جزاكم الله خير الجزاء
هذا الموضوع مغلق.