نجوم المشاركات

تفضل أخي @أبو امين 🙂 << تعديل >> عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول : Public Sub ShowOrHideFormControls() Dim Frm As Form Dim Ctl As Control Set Frm = Screen.ActiveForm For Each Ctl In Frm.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Frm = Nothing End Sub '------------------------------------------------------------------- Public Sub ShowOrHideReportControls() Dim Rpt As Report Dim Ctl As Control Set Rpt = Screen.ActiveReport For Each Ctl In Rpt.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Rpt = Nothing End Sub وتنادي كل دالة باسمها حسب الاستخدام هكذا : ' للنماذج Call ShowOrHideFormControls() ' للتقارير Call ShowOrHideReportControls()

اولا عمل العديد من CheckBox كل عليك عملة هو الضغط علي الزر وتحديد المدي المراد عمل له ال CheckBox شاهد المرفق Create_CheckBoxes.xlsm ثانيا عمل العديد من OptionButton كل عليك عملة هو الضغط علي الزر وتحديد المدي المراد عمل له ال OptionButton شاهد المرفق Create_OptionButtons.xlsm

بعد اضافة رياضيات والعدد 50 بسطر جديد بالجدول اذهب للاستعلام وبدل تحت عدد النسخ (Group By) الي (ٍSum). سهلة ؟

تفضل moho58 base 1 - Copy.accdb

moho58 جرب صديقي base.accdb

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

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً وأحسن إليكم أستاذنا مجهود رائع تستحق عليه الثناء أحسنتم بارك الله بكم ، إلى المزيد من العطاء وفقكم الله لما يحب ويرضى آمين والسلام عليكم ملاحظة: أخي الكريم لاحظت أنه كلما حددت نطاقاً جديداً لوضع خانات التحقق أو أزرار الخيارات يتم حذفها من النطاق السابق، فماذا لو كنت بحاجة لوضعها في أكثر من نطاق؟!. يرجى أخذ هذه الملاحظة بعين الاعتبار والسلام عليكم ورحمة الله وبركاته

"ما مضى من الدنيا أحلام، وما بقي منها أماني، والوقت ضائع بينهما". الفوائد اللهم إن كان في العمر بقية فحقق لنا الغاية، وامنحنا البركة، وأمددنا بعون لا ينقطع، وآونا إلى الركن الشديد هكذا الدنيا حل وترحال ونحن لانباعدك العمر ولكن عندنا عادة اذا كبرت في العمر خذ 🧖‍♀️ ترجعك 20 سنة للخلف 😜😜😜 برنامج 🚕🚓🚗رائع من كل الجوانب👍 ولكن ينقصه بعض الاكواد والنماذج ونسأل الله ان تكملها تحياتي

مثال حقل فوق حقل مشروطين بداله iif بدل عن الاكواد عند ضغط زر يظهر ويخفي اسرع من هيك

تفضل أخي . اذا كان هذا طلبك اضغط على أفضل اجابة . تفضل المرفق . DD140.rar

شاهد الرابط التالي عمل العديد من ال CheckBox , OptionButton

تفضل أخي عملت لك البحث في 6 حقول (ID) و (FName) و (LName) و (CompanyName) و (Address) و (City) . واليك المرفق الجديد . Search as you type-1.accdb

تمام الحمد لله

فعلن ياعبقري كانت هناك المعضله اشتغل زي الفل جزاك الله خيراً وزوجت بكراً

السلام عليكم اخي هذه محاولة اخري قد تكون الاداه غير موجودة عندك تبعا لما اقترحه الاخ كيمس مشكورا لاضافة الاداه اولا فك ضغط الملف register علي سطح المكتب و افتح الملف واضغط علي ملف Register.bat ثم اضغط علي انتر فك ضغط الملف الثاني و فك ضغطه ستجد بداخله ثلاثة ملفات و ملف read me.text انسخ الثلاثة ملفات و اقرا ملف read me.text لمعرفة مسار لصقهم و المسار الموجود لاوفس 2003 و 2007 و استنتج منه مسار اوفس 2010 لاني لا اعرفه و اخبرني النتيجة تحياتي Register.rar calendar.rar

لعل هذا ما تريد Private Sub UserForm_Initialize() TextBox1.Text = Date TextBox2.Text = Date TextBox3 = Date + 7 * 26 TextBox4.Text = Date + 365 End Sub المرفقات 2011 ABO ALI - kemas.rar