متقاعد

ضع الامر ⬇️ Parent![DetBill]![DBT_Product] = Me.ItemNam

اولا الف شكر على الدعاء الطيب واسأل الله ان ينالك مثله واكثر ثانيا اختلاف الرأي لا يفسد للود قضية وخصوص بين الاصدقاء حتى لو كانت صداقة في الواقع الافتراضي لذا اسمح لنفسي ان اختلف معك ليست الحل الامثل ولكن حل ربما يحقق المطلوب وفقا للمعطيات الحقيقة في ردي السابق ذكرت يحفز لتقديم افكار افضل ليس فقط على مستوى الحل وانما المطلوب ايضا مثلا لماذا ثلاثة ازرار لاخفاء واضهار نموذج واحد ؟ هل يتغير مصدر بيانات النموذج بناء زر الامر اي ان ثلاثة ازرار يقابلها نموذج واحد يخدم ثلاثة جداول؟ ام ان النموذج الرئيسي يحتوي على اكثر من فرعي ؟ في جميع الاحوال الملف مرفق والاسئلة السابقة بمثابة تفكير بصوت مرتفع تحياتي وتقديري لاخي واستاذي الفاضل د.محمد تغير لون الزر(3).accdb

المهندس قاسم اعطاك الحل وللوصول لما اشرتم اليه ممكن تعديل بسيط بدلا من تحديد اللون نتحكم في الشفافية والفكرة تتعلق بخاصية BackStyle وهي خاصية تتيح امكانية جعل عنصر التحكم شفاف او عادي ولها قيمتان 0 شفاف 1 عادي وطالما لدينا قيمتان رقيمة فيمكن توظيفهم للوصول للمطلوب الخطوة الاولى نحجز متغير ونجعل المتغير يساوي x = Me.ActiveControl.BackStyle ثم نضع امر يقوم بالمرور على الازرار و تعديل خاصيتها الى شفاف ctl.BackStyle = 0 الخطوة الثانية نضع الشرط If x = 0 Then اي اذا كانت خاصية جميع الازار شفاف نفذ الاتي Me.ActiveControl.BackStyle = 1 Me.f1.Visible = True اجعل خاصية الزر الحالي غير شفاف واظهر النموذج الفرعي وان لم يتحقق الشرط اعكس الامر ربما لا يكون الحل الافضل ولكن اعتقد يؤدي للمطلوب بنفس فكرة العزيز قاسم او على الاقل يحفز الاخرين لتقديم افكار افضل وهذا هدف اي موقع تعليمي تحياتي

هههههه اذا انت من المبتدئين احنا اين نكون بل انت استاذ ومعلم قدير وافكارك متميزه If ctl.Tag = "*" Then هذه الطريقة سبق ان استخدمتها في بعض البرامج ولكن تراجعت عنها بعد صعوبات من قبل المستفيدين من البرنامج عند محاولة بعضهم تطوير البرنامج وافضل استخدم قيمة او اسم العنصر

موضوع جميل ومتميز وبمشاركة اساتذه المنتدى من المؤسف انني لم اطلع عليه من قبل او ربما مر من امامي مرور الكرام الشكر لله ثم للمهندس قاسم انا فقط حددت عنصر التحكم حتى لا يحصل خطأ وكما تعلم اننا عندما نستخدم حلقة تمر على عناصر التحكم في النموذج اما ان نحدد عنصر التحكم المطلوب او نستثني عنصر او عدة عناصر ندع الامر وسوف يتم المرور على كافة العناصر وكما تعلم ان بعض هذه العناصر لا يمكن تطبيق تغيير اللون عليها والبعض الاخر يتطلب الدخول لعرض التصميم لذا كانت تظهر رسالة الخطأ Error 438 لدي استاذنا الفاضل د.حلبي ويتوقف الكود عن العمل وهذه الرسالة سببها كما اشرت آنفا " بعض عناصر التحكم لا تدعم هذه الخاصية " لذا وجب التنوية ويبقى الفضل لاهله والله الموفق

الاخ لا يعتذر من اخيه فانا اعلم انه مجرد خطأ املائي وانت اخ واكثر من ذلك

مع ان الكلام موجه لاخي وصديقي المهندس قاسم نعم ممكن تعديل بسيط على عمل اخي قاسم ولو املك الوقت لقدمت حل بفكره اخرى تغير لون الزر(2)(1).accdb

احسنت اخي قاسم ويمكن التصريح باسم العنصر مباشرة او كما يفعل بعض جيل الطيبين بوضع قيمة العنصر بدون كتابة اسمه acAttachment 126 Attachment control acBoundObjectFrame 108 BoundObjectFrame control acCheckBox 106 CheckBox control acComboBox 111 ComboBox control acCommandButton 104 CommandButton control acCustomControl 119 ActiveX control acEmptyCell 127 EmptyCell control acImage 103 Image control acLabel 100 Label control acLine 102 Line control acListBox 110 ListBox control acNavigationButton 130 NavigationButton control acNavigationControl 129 NavigationControl control acObjectFrame 114 Unbound ObjectFrame control acOptionButton 105 OptionButton control acOptionGroup 107 OptionGroup control acPage 124 Page control acPageBreak 118 PageBreak control acRectangle 101 Rectangle control acSubForm 112 SubForm control acTabCtl 123 Tab control acTextBox 109 TextBox control acToggleButton 122 ToggleButton control acWebBrowser 128 WebBrowserControl control تحياتي

جرب المرفق فقط حددنا الكائن الذي سيتم تطبيق الامر عليه Function SetActiveControlColour() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 104 Then ctl.BackColor = RGB(150, 180, 215) End If Next ctl Me.ActiveControl.BackColor = vbYellow End Function 104 يعني زر امر الملف مرفق تغير لون الزر(2).accdb

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

جزاك الله خير على الدعاء اخي قاضي واحيانا عند استخدام تلوين الحدود لحدث ما قد نحتاج الى اضهار هذه الحدود بشكل اكبر لتكون اوضح ولعمل ذلك ممكن نستخدم مع الامر السابق الكود التالي Me.tx2.BorderWidth = 1 وهذا الامر له عدة قيم 0 الاعداد الافتراضي 1 الى 6 لزيادة حجم الحدود موفق اخي قاضي

لتلوين الحدود لمربع النص Me.tx2.BorderColor = RGB(53, 30, 236) وممكن هكذا ⬇️ والاول افضل Me.tx2.BorderColor = 255 تحياتي

وممكن تستبدل الكود بالكود التالي Dim x As Byte x = DCount("*", "[TblFFF111]", "[InvNo] ='" & [Forms]![FFF111]![FFF222]![txtInvNo] & "' And [InvDate] =#" & [Forms]![FFF111]![FFF222]![txtInvDate] & "# ") If x > 0 Then MsgBox "هذه الفاتورة مسجلة مسبقا", 0, "" txtInvNo = "" End If For Test2.accdb

For Test.accdb

وممكن ايضا تحميل قيمة الحقول في امر فتح النموذج باستخدام البارمتر OpenArgs تحياتي

مشاركة مع الاساتذة ممكن نعمل حلقة تكرارية نحدد فيها عدد السنوات المطلوب اضافتها والكود يقوم بكتابة اول سجل للسنة الحالية ثم يولد سجلات للسنوات القادمة وفقا لعدد السنوات المطلوبة If IsNull(tx2) Then MsgBox "حدد عدد السنوات المطلوبة": Exit Sub Dim rs As DAO.Recordset Dim a As Byte Set rs = CurrentDb.OpenRecordset("table1") For a = 0 To Me.tx2 - 1 rs.AddNew rs!date22 = Year(Date) + a rs.Update Next a rs.Close Set rs = Nothing Me.Requery مرفق مثال Database11.accdb

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

بل انت استاذنا ومعلمنا وصاحب علم وتجربة فان كنت غُمر فما نكون نحن الغمر في لغة العرب لها معان يختلف المعني باختلاف الحركة بالفتح ماءٌ كثـُرا .. والكسر حِقدٌ سُترا والضم شخصٌ ما درى .. شيئـًا ولم يُجَرِبِ تحياتي

نعم وتم الارسال بنجاح ويندوز 11 الاصدار 22H2 اوفيس 21 64بت

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

السلام عليكم سؤالي للمشرف الفاضل الذي قام بتعديل مشاركتي السابقة وحذف فقره منها كانت الفقرة ان نظام الاشراف في بعض المنتديات العربية يدار بعقلية عريف الصف هذه الفقرة ليس فيها تطاول على شخص معين او موقع معين وهي رأي شخصي وحذفها من المشاركة يدل على احتمالية صحة ما جاء فيها مرحبا باخي واستاذي ابو احمد مع ذلك لم يسلم الموضوع من مقص الرقيب اخيرا سوف اضع امثله لمنتديات كبيرة متخصصة تم اغلاقها ولن اشير الى اسم اي منها اكبر منتدى عربي للبرامج وله السبق في تعريب العديد من البرامج انتهى بوفاة مؤسسه رحمه الله تم اغلاق الموقع لفترة ثم اعيد ولكن بعد فوات الاوان منتدى كبير متخصص في تطوير المنتديات تم اغلاقة بسبب القوانين الصارمة والتي وصلت الى حد محاربة اصحاب الخبرة وايقاف عضوية العديد منهم بسبب خلاف مع احد المشرفين مما دفع الاخرين للابتعاد عن الموقع اكبر موقع عربي في عمل هاكات المنتديات ويضم افضل خبراء php العرب ومن هذا الموقع تم اصدار اول مجلة عربية بلغة php * تنافس مجلة Nuke ومن هذا الموقع تم عمل اول منتدى عربي ** ينافس منتدى vb قرر مالك الموقع تحويله الى موقع اخباري ! منتدى عربي كبير عدد الاعضاء بحدود مليون ونصف اختلف مؤسسي الموقع وبدلا من النقاش ومحاولة تقريب وجهات النظر قام احدهم بتدمير قاعدة البيانات هذه الامثلة كنت شاهد على احداثها وماخفي ربما يكون اكبر من ذلك ----------------------------- * مجلة المبرمج العربي تمت برمجتها بواسطة الاخ والصديق رفيع العتيبي رحمه الله ** منتديات في بي زوم برمجة الاستاذ خالد ممدوح

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

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

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

الان حملت الملف في المشاركة السابقة ويعمل بدون مشاكل علما باني استخدم الاصدار 2021 سوف اقوم باعادة رفعه اوفسنا(2).mdb اوفسنا.accdb