ابو جودي

تجربة يتم فتح التطبيق من القاعدة باسم Run My App.mde تجربة الحماية.zip

وحتى تعم الفائدة المرفق النهائى بعد التعديلات الصحيحة Autolink Table.zip

جزااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــرا نعم القلوب عند بعضها احبكم فى الله

تم حل المشكلة بفضل الله تعالى اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى كان الخطأ فى هذا السطر Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb") وتم التعديل على الكود كالاتى ونجحت العملية بفضل الله تعالى Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb", False, False, ";PWD=0")

جزاكم الله خيــــــــرا اخى الحبيب و استاذى الجليل ومعلمى القدير الاستاذ @أبو عبدالله الحلوانى خطأ فى هذا السطر Set chkDb = OpenDatabase(Application.CurrentProject.Path & "\Btbl.accdb") رسالة الخطأ run-time error '3031': not a valid passowrd.

اخى الحبيب و استأذى الجليل أستاذ @kaser906 جزاكم الله خيرا بالرغم من البحث فى المنتدى مطولا ورؤية الكثير من الأمثلة الا اننى لم استطع التعديل على المرفق ولكن سوف أحاول مرة أخرى

ملاحظة الربط يتم اليا بدون اى مشاكل ان لم تكن قاعدة الجداول مأمنه بكلمة مرور

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

السلام عليكم ورحمة الله تعالى وبركاته جارى العمل انتظر قليلا وابشر

السلام عليكم ورحمة الله وبركاته اريد التعديل على الموديول فى القاعدة المرفقة حتى يقبل الربط اليا مع قاعدة الجدول الخلفية Btbl.accdb المحمية بكلمة مرور ملاحظة كلمة مرور القاعدة الخلفية للجداول هى 0 Auto ReLink.zip

استاذ @محمد التميمي نسيت اقول لك شئ ممكن تغير المعيار داخل الاستعلام بهذا IIf([TempVars]![x] Is Not Null;[TempVars]![x];[Table].[Occupation])

صباح النور وعطور الزهور نعم الفكرة الثانية اجمل الحمد لله الذى هدانى لها وما كنت لاهتدى لولا ان هدانى الله عز وجل اليها وبخصوص الفكرة الاولى اعتذر ان كانت موجوده لديك جزاكم الله خيرا على دعواتكم الطيبة

الحمد للع الذى تتم بنعمته الصالحات اتفضل فكرة رقم 2 1817242942_New2.accdb

جزاكم الله خيرا هناك فكرة اخرى تدور ببالى الان ان وفقنى الله عزوجل فى تطبيقها سوف ارفقها فورا ان شاء الله

فكرة بسرعة New.accdb

ممكن تنتظر اجرب شئ ان شاء الله موعدنا بعد صلاة العشاء ان كان فى العمر بقية

طيب اجعل معيار المدينة فى الاستعلام كالاتى IIf([TempVars]![x] Is Not Null;[TempVars]![x];[Customers].[city])

اعتذر نسبت التطرق الى هذه الجزئية لو القيمة خالية يفتح الاستعلام بكامل البيانات بدون فرز وتصفية نستخدم الكود الاتي فى معيار الاستعلام بدلا من المعيار السابق فى اقرب وقت ارفع القاعدة ان شاء الله اواجه مشكلة لا استطيع ارفاق اى ملفات الان ... ارجو المعذرة Like "*" & [TempVars]![x] & "*"

بالرغم من قدم تاريخ الموضوع وكان من الاولى فتح موضوع جديد ولكن ان شاء الله ابشر بالخير قم بانشاء موديول جديد وضع به هذه الاكواد Public Function OpenQry(QryNm As String, MyValue As Variant) TempVars.Add "x", MyValue.Value DoCmd.SetWarnings False DoCmd.OpenQuery (QryNm) DoCmd.SetWarnings True End Function على ان يتم استدعاءه من خلال السطر التالى من النموذج من خلال زر امر او من خلال اى حدث حسبما ترغب وتريد Call OpenQry("fi", Me!txtMyValue) ولابد من عمل مربع نص فى النموذج باسم txtMyValue وبهذه الطريقة سوف يتم فتح الاستعلام بتمرير القيمة المعلمة برمجيا اليه من خلال مربع النص وان كان هناك اكثر من استعلام يتم فقط تغير اسم الاستعلام بالسطر الاتى Call OpenQry("اسم الاستعلام", Me!اسم مربع النص فى النموذج والذى يحوى القيمة المعلمة) واخر خطوة وضع هذا السطر فى الاستعلام فى المعيار للحقل المطلوب تمرير القيمة المعلمة اليه [TempVars]![x]

مرفق النسخة الاجنبية اللى هو 123

طيب ممكن ترفق البرنامج علشان اعدلك زى ما انت عايز ان شاء الله وياريت لو كامل بكون مشكور علشان اتعلم منه بخصوص المسار انا ممكن اعمل لك فكرة كل ما تنقل البرنامج بالصور فى نفس المكان ومن غير ما نعمل جدول للمسارات الصور تشتغل عادى ايه رايك ؟

يعنى ايه مجموعة حسب النوع ؟ وهل يفرق معاك المسار اصلا لان انا ما بحب احمل على قاعدة البيانات بكتابة المسار اصلا ؟ ممكن تفهمنى انت عاوز ايه اصلا ..

طيب انا اسف تقريبا انا ما قدرت افهم الموضوع جرب المرفق الاتى ان شاء الله يكون تمام ImportExcel 3.zip

يا هلا هلا هلا والله ومليون هلا استاذى الجليل ومعلمى القدير و والدى الحبيب الطيب الكريم استاذ @ابوخليل حياكم الله وبياكم اشتاقت نفسى كثيرا للقياكم وبرغم انقطاعى عنكم الا انكم دائما وابدا فى بالى ودائما ادعوا الله لكم انتم وكل اساتذتى واخوانى