ابو جودي

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

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

مفيش ابداعات ولا شئ انا استخدمت التاج والدوران على العناصر على النموذج من خلال التاج الاتى للعناصر المراد عدم تفعيلها او تعطيلها >--->> lock وهذه الاكواد يا سيدى انت تأمر اولا اضفت المتغير ده من النوع بايت ليأخذ القيم (0,1) الى راح ابين بعد قليل ليه Private Mylock As Byte وعند التحميل للنموذح اضفت الكود الاتى لأسند الى المتغير قيمة 0 Private Sub Form_Load() Mylock = 0 End Sub وهناك عغلى النموذج زر امر اسمه >--->> أمر11 واضفت الكود الى زر الامر Select Case Mylock Case Is = 0 Me.أمر11.Caption = "تفعيل" Mylock = 1 Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then If ctl.Tag = "lock" Then ctl.Enabled = False End If End If Next ctl Exit Sub Case Is = 1 Me.أمر11.Caption = "تعطيل" Mylock = 0 For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then If ctl.Tag = "lock" Then ctl.Enabled = True End If End If Next ctl Exit Sub End Select شرح الكود اذا كان المتغير = 0 اعادة تسمية زر الامر الى تفعيل تغير قيمة المتغير فتكون=1 الدوران على كل العناصر على النموذج ان كانت تيكست بوكس او كومبو بوكس او ليست بوكس وكان التاج لكل منهم هو >--->> lock يتم تنفيذ الامر التالى على كل تلك العناصر دفعة واحدة .Enabled = False والعكس عندما يتغير قيمة المتغير واسم زر الامر يغنى كودين على زر امر واحد بدل من زرين امر

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

ليس كروعتكم اساتذتى منكم اتعلم حتى كيف افكر لكم كل الشكر والتقدير واسال الله تعالى لكم البركة فى العمر والعمل والاهل والولد وان يغفر لكم ويتقبل اعمالكم ان شاء الله امين امين امين

اتفضل الجديد طبعا زى ما انت اخترت Lab 2019 -4.zip

اما النموذج الجديد بالفكرة الجديدة اما الشرح

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

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

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

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

طيب قبل اى شئ لا فضل لى فى اى شئ وانا اقل من اقل طالب علم قد تلتقى به اما بخصوص الطلب الاخير ارجو منك الاول يا استاذ @jo_2010 تجربة المرفق الاتى لانى لم يملأنى الرضا عن سابقه وقمت بتنفيذ الطلب الاخير بعد التجربة ان شاء الله ان حاذت رضاكم يا استاذ يوسف ان شاء الله تعالى احقق طلبكم الاول بالشرح لكل تفصيلة خطوة بخطوة Lab 2019 -3.zip

طيب معلش انا اسف عطلت بعض الاكواد علشان اعرف افتح الملف ونيست ارجعها جرب يا افندم Lab 2019- 2.zip

اى نموذج تقصد ؟! انا جربت الان وكل شئ تمام جرب تضع الكود 9

مكتبة اكواد ودوال الأكسس.accdb VBALibrary.accdb

حل مشكلة اختفاء ورقة الخصائص الشرح الاتى نقلا عن الاستاذ الفاضل معلمى الاستاذ @Shivan Rekany اتيت اليكم بالشرح نقلا عنه لمن يريده تفصيلا ولكن هدانى الله الى ان اضع الاوامر على زر امر مباشرة لسهولة التعامل واختصارا لكل تلك الخطوات واهديكم هذه الثاعدة التى تخص حل تلك المشكلة للعلم لن استطيع فى الوقت الحالى التجربة على اكثر من نسخة مختلفة لذلك لغفروا لى ان كانت فكرتى المتواضعة تعجز عن خل المشكلة مباشرة عند اختلاف النسخ property sheet visible or not.mdb

chr34 هى لغة الاسكى كود وعندما تكتب فى عالم البرمجة تترحم عند معالجتها الى علامة التنصيص "

اولا احب اضيف شئ قاله لى ذات مرة استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل لذلك اعدت التصميم الاصل قمت ببعض التعديل وتم المطلبوب بفضل الله كما ان استخدام الـ الحقل من النوع yes/no افضل من الحقل النصى حتى وان استخدمنا حرفا واحدا فى كم البيانات وقيمتها من حيث احتلال المساحة داخل القاعدة وبكل صدق كنت اجهل تلك المعلومة عندما حاولت استخدام تلك الطريقة واشرت اليها من قبل Lab 2019- 2.zip

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

ما هو انا مش عارف اجرب والله انت مكبر حجم النموذج جدا جدا جدا جدا لايظهر عندى اى بيانات

هذا فضل الله تعالى احمد الله الذى ساق رزقه هذا اليك ان تعذر عليك التطبيق ارفق قاعدتك

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

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

مش عارف اجرب جرب انت بقه Lab 2019.zip احتمال تحتاج وضع الكود بالشكل ده لزر الامر اللى بيضع العلامة Private Sub JO_Click() Call OK_JO_Click Me.Requery End Sub بس لو اخترت شئ غلط اختفى خلاص

للاسف الصورة طالعه كده