ابو جودي

العفو اخى الحبيب لا شكر على واجب

فكرة من بره الصندوق بالتحكم فى عدد الاسطر لكل صفحة تستطيع اظهار الامضاء فى صفحة بها بيانات وليس فى صفحة فارغة test120 (1).mdb

اخى الحبيب قم بتجربة الاتى انشاء مستخدم جديد للويندوز غير الذى تستخدمه الان للويندوز من لوخة التحكم control panel ادخل الى المستخدم الجديد وقم بالتجربة ان شاء الله قد تجد الحل ربما حصلت مشكلة باعدادت الريجسترى لانه اتذكر حدثت لى من قبل

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

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

طريق اخر مخزن -2.accdb

مخزن.accdb

ههههههههههههههههههه

احبكم الله الذى احببتمونا لاجله

جرب الاتى [الكمية المتوفرة] = ([الكمية المتوفرة] + [الكمية])

اتفضل وقت الدفع صلاة علي النبي المصطفي (صلي الله عليه وسلم) Lab 2019 -5.zip

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

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

مفيش ابداعات ولا شئ انا استخدمت التاج والدوران على العناصر على النموذج من خلال التاج الاتى للعناصر المراد عدم تفعيلها او تعطيلها >--->> 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