ابو جودي

اذهب الى محرر الاكواد اختر القائمة Tools ثم اختر منها References كما بالصورة الاتية لو كانت هناك مشكلة بالمكتبات ستجد كلمة :Missing بجوار اسم المكتبة مثل هذه الصورة على سبيل المثال

والان وقت الشــــرح للتعديلات التى تمت على المرفق 1- الجدول NewLab تم التعديل لنوع الحقل فيه OK_JO من نصى الى Yes/No 2-تم حذف الاستعلام New_No لا نريدة الان فى شئ 3-فى النموذج New_P_Test حدث عند الفتح تم ازالة الجزء الخاص بإستدعاء الاستعلام الذى حذفنا منذ قليل DoCmd.OpenQuery "new_no" 4-اضفنا الى النموذج الحقل OK_JO وقمنا باخفاءه انزر الى الصورة الاتية ولاحظ الارقام 1,2,3 على الصورة - الرقم 1 هو هنصر تحكم الحقل OK_JO والذى قمنا باخفائه واسم العنصر هو ChckOk - الرقم2 عنصر غير منضم اسمه txtOk ومصدر بيااناته كالاتى =ChrW(10003) علامة الصح بالترميز UNICODE وتنسيق الخط له هو Arial - الرقم 3 زر امر مخفى باسم cmdOK 5- على زر الامر المخفى وضعنا الكود الاتى Me.ChckOk = Not Me.ChckOk DoCmd.Requery Form_frm_P.ListNo.Requery -السطر الاول من الكود نخبره ان يعكس قيمة ChckOk لتغير من yes الى no والعكس -السطر التالى للتحديث بعد تغيير القيمة -السطر الثالث لتحديث بيانات نموذج فرعى اسم الهنصر الداله عليه هو ListOk والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p سنتحدث عن ذلك لاحقا بالتفصيل ودخلنا الى مصدر بيانات النموذج ولاحظ المعايير التى تم استخدامها 6-قمنا بنسخ هذا النموذج مع تغيير اسمه الى New_P_checked وقمنا بتعديل المعيار على الحقل OK_JO وقمنا بتعديل الكود على زر الأمر ليكون Me.ChckOk = Not Me.ChckOk DoCmd.Requery Form_frm_P.ListNo.Requery -السطر الاول من الكود نخبره ان يعكس قيمة ChckOk لتغير من yes الى no والعكس -السطر التالى للتحديث بعد تغيير القيمة -السطر الثالث لتحديث بيانات نموذج فرعى اسم العنصر الداله عليه هو ListNo والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p سنتحدث عن ذلك لاحقا بالتفصيل قأصبح النموذج الاول New_P_Test يعرض فقط الحقول التى لا تساوى yes والنموذج الثانى New_P_checked يعرض فقط الحقول التى لا تساوى no قمنا بعمل نموذج بأسم frm_P غير منضم لا مصر بيانات له ولكن قمنا بأدراج مربعين نص - مربع النص الاول بإسم dDate ومصدر بياناته =[Forms]![New_Project]![dDate] - مربع النص الثانى بإسم txtTCode ومصدر بياناته =[Forms]![New_Project]![txtTCode] وذلك لنحصل على كل من قيم التاريخ والكود من النموذج الرئيسى هنا قمنا بإدارج النموذجين New_P_Test , New_P_checked ليكونا نموذجين فرعين على هذا النموذج قمنا بتغيير اسم النموذج الفرعى New_P_Test من داخل التصميم ليكون اسمه ListNo قمنا بتغيير اسم النموذج الفرعى New_P_checked من داخل التصميم ليكون اسمه ListOk -السطر الثالث لتحديث بيانات نموذج فرعى اسم العنصر الداله عليه هو ListNo والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p الان اتضحت الصورة

هل هناك مكتبات مفقودة . راجع محرر الاكواد Tools->References وعلى كل جرب المرفق الاتى GetNetTime.mdb

اتفضل m.accdb

اتغضل تم عمل الاتى وضع الكود داخل موديول لسهولة استدعاءه فى زوايا البرنامج المختلفة ( نماذج - استعلامات - تقارير ) التعديل على الكود لعرض التاريخ فقط بالتنسيق الذى طلبته ظهور الرسالة الاتية عند عدم وجود الانترنت ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب GetNetTime.mdb

جربت الحل ده طيب ؟

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

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