ابو جودي

طيب يا استاذ @محمد احمد لطفى الحل ده يرضيك واللا اروح انام test120 (2).mdb

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

فكرة من بره الصندوق بالتحكم فى عدد الاسطر لكل صفحة تستطيع اظهار الامضاء فى صفحة بها بيانات وليس فى صفحة فارغة 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

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

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

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