ابو جودي

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

جرب الكود ده ورد على بالنتيجة لة تكرمت 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

up

شوف اخى الحبيب التعديل لا علاقة له بهذه المشكلة من الاساس ولكن اذا فتحت التصميم تبعك انظر الى مصدر بيانات التيكست بوكس تبع رفم النموذج انت جعلته =[Forms]![عملية انتاج]![رقم النموذج] ولماذا اصلا لم تجعله رقم النمودح جرب

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

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

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

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

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

الاستاذان الجليلان استاذ @essam rabea والاستاذ @Barna كل الشكر والتقدير لكما ولكن اصلا القاعدة تعطينى عند الفتح unrecognized format فضلا وكرما فلتعلموا اننى من عشاق الجكمة التى يقول لا تعطنى سمكة ولكم علمنى كيف اقوم باصطيادها

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

اتفضل Test.accdb

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

انا جمعت كل ما احبه ان يكون هنا

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

هو سبقنى