ابو جودي

بافكر اضيف شئ على نموذج الاتصال مكان لكتابة الاى بي واسم المجلد ويتم حفظ البيانات ويتم استدعائها فكر معايا يا استاذ @محمد احمد لطفى

اتفضل دوس كليك يمين Test.accdb وهنا فكرة أخرى

وجزاكم ان شاء الله خيرى الدنيا والاخرة ان شاء الله -------------------------------------------------------------------------------------------------- لا فضل لى اصلا فى اى شئ هذا فضل الله تعالى ... سبحانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم

الحمد لله رب العالمين نجحت ونجح الاتصال بس ممكن طلب ممكن اعرف إصدار الويندوز عندك ....... والنواه بتاعته 32 بيت او 64 بيت ممكن اعرف إصدار الاوفيس عندك ....... والنواه بتاعته 32 بيت او 64 بيت واليك التعديل الاخيــــــــــــر Connect To Network (1).accdb

اتفضل يا استاذ @محمد احمد لطفى Connect To Network.accdb

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

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

جزاكم الله عنى كل خيـــــر

لا تيأس واستعن بالله عزوجل

وانا مع الادة الجديدة نفس المشكلة اللغة تمام اصلا وتم التجربة على قاعدة جديدة اصلا

انا فهمت قصدك لكن بصراحة مش عارف

الله اكبــــــر فعلا اشتغل طيب الحمد لله رب العالمين طيب ممكن اطلب منك طلب ممكن تتكرم على وترفع المرفق اللى انت عملته اللى اشتغل معاك بالبيانات اللى انت عملتها زى ما عملتها بالضبط

وانا لا املك الامكانيات اللازمة للتجربة كذلك

طبعا تعدل البيانات دى حسب ما عندك ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123"

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

جرب الكود ده ورد على بالنتيجة لة تكرمت Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing

لا يا استاذى الجليل ومعلمى القدير انه يقصد القائمة الخاصة التى تفتح على النموذج الشاشة الرئيسية اعتقد انه يريد عكس السهم الصغير بجوار كملة النماذج الى الجهة الاخرى لتفتح القائمة التى تحتوى على ( ادخال المواد , عملية انتاج , النموذج الثالث) ايضا الى الجهة الاخرى

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

هات مرفقك لانى لم افهم ؟

شكرا لدعمكم المعنوى لى استاذى الجليل ومعلمى القدير

جزاكم الله خيرا تم اضافة طريقة ثانية الى المشاركة الاصلية باستخدام دالة >>----> TempVars

ويندوز 7 64

وانا ايضا

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

السلام عليكم ورحمة الله تعالى وبركاته اولا وللامانة وإحقاقا للحق وحتى يأخذ كل ذى حق حقه الفضل بعد رب العباد سبحانه وتعالى يعود الى استاذى الجليل ومعلمى القدير صاحب اللمسات الرمهانية والغالى على قلبى واخى الحبيب الاستاذ @رمهان والذى بت افتقده كثيرا وافتقد لمساته وانتظرها دائما بلهفة مشتاق الشرح نظريا للطريقة الرمهانية وهو كالاتى ننشئ الاستعلام كما نريد بالحقول التى نريد فى مكان المعيار للحقل المطلوب نكتب مثلا >>----> [Insert value] كما فى الصورة الاتيه يمكنكم تغيير المعيار [Insert value] مع مراعاة تغييره بالكود الذى سيأتى بعد قليل ونقوم باغلاق الاستعلام ونسميه على سبيل المثال >>----> qryJudy يمكنكم تغيير الاسم مع مراعاة تغييره بالكود الذى سيأتى بعد قليل نذهب الى النموذج الذى نريد فتح الاستعلام من خلاله ونريد تمرير قيمة المعيار من احد كائناته الى الاستعلام الذى انشأناه نقوم بعمل زر امر ونسند اليه الكود الاتى DoCmd.SetParameter "[Insert value]", [رقم النموذج] DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True نلاحظ فى السطر الاول من الكود DoCmd.SetParameter >>----> هذا الجزء من الكود هو الذى يختص بتعيين القيمة المعلمة والتى نريد تمريرها الى المعيار فى الاستعلام [Insert value] >>----> هذا اسم المعيار كما كتبناه فى الاستعلام تمام [رقم النموذج] >>----> هذا اسم الكائن على النموذج الذى نريد تمرير قيمته الى المعيار فى الاستعلام السطر الثانى من الكود DoCmd.SetWarnings False >>----> لايقاف رسائل الاكسس الافتراضية و التى تأتى لتأكيد تشغيل الاستعلام السطر الثالث من الكود DoCmd.OpenQuery "qryJudy" >>----> تشغيل الاستعلام ونكتب اسم الاستعلام كما انشئناه تماما السطر الرابع من الكود DoCmd.SetWarnings True >>----> ارجاع الوضع الافتراضى للاكسس بتشغيل رسائل الاستعلام مرة اخرى المثال المرفق هو بناء على طلب اخونا الحبيب الاستاذ @محمد القدسي الكود تم وضعه على زر امر بعنوان >>----> Run Query داخل نموذج باسم >>----> عملية انتاج طريقة أخرى ممكن استبدال المعيار داخل الاستعلام بالمعيار الاتى [TempVars]![x] وكذلك يتم استبدال الكود على زر الامر بالكود الاتى TempVars.Add "x",[رقم النموذج].Value DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True فتح النموذج بنافذة اخرى.accdb