متقاعد

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

مع اني ربما لم افهم المطلوب ولكني ساحاول ممكن نعمل اجراء Sub k() Dim a As Byte Dim n, m As String For a = 1 To Len(ActiveControl.Name) n = Mid(ActiveControl.Name, a, 1) Select Case n Case "0" To 9 m = m & n End Select Next a Me.textbox1 = m End Sub ثم في كل زر امر نستدعي الاجراء بالشكل التالي k طبعا هذا الاستداء لايؤثر على اي اوامر في الازار هذا الرد مجرد تحفيز للاساتذة لتقديم حلول افضل الملف في المرفقات New Microsoft Access قاعدة بيانات).accdb

ردي فقط على ☝️ تحتاج اظهارها شاهد الصورة

هذا الموضوع يا ازهر ⬇️

لم اتحدث عن طريقة ثانية قلت واقصد انه لو كان زر الامر في النموذج الرئيسي لما احتجنا الى كتابة المسار الكامل للحقول في الرئيسي rs!serial = Forms![TEST1]![serial] تكون rs!serial = meserial وايضا ممكن الاستعانه بمتغيرات وهكذا من حيث الترتيب تحياتي

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

في زر الامر ضع التالي Dim x As Date Dim a As Integer Dim rs As DAO.Recordset x = Forms![TEST1]![Date_M] Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1 rs.AddNew rs!date1 = x rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 x = DateAdd("d", Forms![TEST1]![ChooseDayes], x) rs.Update Next a rs.Close Set rs = Nothing Me.Requery لو تلاحظ اني لم اغير في طريقتك هو تقريبا نفس كودك ولكن يتعامل مع مصدر السجلات مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل تحياتي

اخيرا للانتهاء من هذا الموضوع اود ان اشير الى دالة Choose وهي تقوم بارجاع قيمة من عدة قيم بناء الفهرس ويمكن توضيفها في هذه المثال عن طريق نمطية بسيطة يتم استخدامها في الاستعلام k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52) ويمكن كتابتها على النحو التالي Public Function std(id As Integer) Dim rst As DAO.Recordset Dim x As Integer Dim k As Integer Set rst = CurrentDb.OpenRecordset("Select * From [q_1] Where [id]= " & id) x = rst.Fields("عدد الفصول الفعلي") k = Choose(x, 2, 3, 4, 6, 7, 9, 10, 11, 12, 14, 15, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52) std = k rst.Close End Function ولكن لابد من التأكد من امرين صحة ترتيب البيانات في الفهرس للحصول على القيمة الصحيحة اذا كان الفهرس اقل من 1 او اكبر من عدد الاحتمالات المدرجة سوف تعود الدالة بنتيجة فارغ وفي هذا المثال لدينا 40 احتمال وفقا لصورة الجدول في اول مشاركة وبالتالي لايمكن ان يكون الفهرس اكبر من 40 نصيحتي في هذه الحالة استخدام جدول وعمل علاقة بدون الحاجة الي دوال كما اشرت في اول مشاركة لي في الموضوع الملف مرفق و اكتفي بهذا القدر تحياتي ‏‏برنامج الاحتياج1.accdb

بالتوفيق اخي على كل حال في حالات كثير لو عرفنا اليه العمل بشكل صحيح نستطيع الوصول للنتيجة بدون الحاجة الى كتابة الكثير من الاكواد او ادخال معلومات يمكن الحصول عليها بشكل الي على سبيل المثال جدول رواتب الموظفين المدنيين يتكون من 260 درجة للمراتب من 1 الى 15 ولكننا لسنا بحاجة لكتابة هذه الدرجات الـ 260 وانما نكتفي فقط بكتابة ال 15 الاولى منها و 15 اخرى للعلاوة السنوية ويتم توليد البقية بشكل آالي تحياتي

اعمل وحدة نمطية واستخدم Select Case واحرص دائما على وجود مفتاح اساسي في الجدول الملف مرفق وقم بمراجعته لاني كتبته بشكل سريع ولم اراجعه لا نشغالي النتيجة في استعلام qq تحياتي ‏‏برنامج الاحتياج.accdb

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

ماتشوف شر استاذ خليفة نسأل الله ان يشفيك ويشفي كل مريض

الاخوان الي مافتح معهم الملف بسبب استخدام حقل من نوع رقم كبير حيث يتطلب الاصدار 2016 النسخة 16.0.7812 أو الإصدار الأحدث

نعم ممكن بعد السطر الخامس او السادس نضع الامر التالي المهم انه يكود داخل الحلقة التكرارية ctl.FontName = "tahoma" ctl.FontSize = 10 ويمكن تغيير نوع الخط والحجم وفقا لما تريد مع ذلك الافضل ان يكون التحكم من خلال نموذج للقيم الثابته حيث يمكن لكل مستخدم اختيار الستايل المناسب له وسوف احاول ان اضع مثال لذلك انظر للصورة المرفقة ربما تتضح فكرة نموذج القيمة التي اشرت اليها

مرفق مثال بسيط لمن يرغب في الاطلاع اخيرا ممكن وهو الافضل ان يكون التحكم بستايل البرنامج عن طريق جدول للقيم الثابتة ونموذج يختار منه المستخدم الستايل المطلوب مثلا نثوم بتجهيز ستايل فاتح وستايل قاتم .. الخ ولكن هذا موضوع اخر تخياتي واكتفي بهذا القدر Database20.accdb

تقصد العنوان الخاص بمربعات النص نعم ممكن ونحتاج الى وضع حلقة تمر على هذه العناوين Dim ctl As Control For Each ctl In frm.Controls If ctl.ControlType = acLabel Then ctl.BackStyle = 1 ctl.BackColor = RGB(227, 227, 227) End If Next ctl ولو اردنا تغيير لون الخط للعناوين ممكن نضع السطر التالي ctl.ForeColor = vbRed ليصبح الكود النهائي Public Function kha(frm As Form) Dim ctl As Control For Each ctl In frm.Controls If ctl.ControlType = acLabel Then ctl.BackStyle = 1 ctl.BackColor = RGB(47, 85, 227) ctl.ForeColor = vbRed End If Next ctl frm.Section(acDetail).BackColor = RGB(215, 255, 7) End Function تحياتي

اذا تقصد عنوان النموذج لكل النماذج ممكن فقط ضع السطر التالي في نفس الموديول frm.Caption = "اكتب هنا ما تريد"

امين اخي ولك بالمثل واكثر وعيدكم مبارك

جرب Public Function kha(frm As Form) frm.Section(acDetail).BackColor = RGB(215, 255, 7) End Function وفي حدث عند التحميل للنموذج ضع ⬇️ kha me

احسنت اخي 😄

الآية الكريمة " ذَرْنِي وَمَنْ خَلَقْتُ وَحِيدًا " ذرني : فعل امر مبني على السكون والفاعل ضمير مستتر تقديره انت والنون للوقاية والياء ضمير متصل في محل نصب مفعول به ومن : الواو يجوز اعرابها حرف عطف "عطف نسق" من اسم موصول بمعني الذي للعاقل وهنا تكون "من" معطوفة على الياء في محل نصب مفعول به وكذلك ممكن اعراب الواو للمعينة ويكون الاسم الموصول مفعول معه في محل نصب خلقت : فعل ماض مبني على الفتح والتاء تاء الفاعل وحيدا : حال منصوبة والجملة صلة الموصول لا محل لها من الاعراب رحم الله حافظ ابراهيم أَرى لِرِجالِ الغَربِ عِزّاً وَمَنعَةً .. َوكَم عَزَّ أَقوامٌ بِعِزِّ لُغاتِ أَتَوا أَهلَهُم بِالمُعجِزاتِ تَفَنُّناً .. َفيا لَيتَكُم تَأتونَ بِالكَلِماتِ

واضح من الفيديو الاهتمام بكافة التفاصيل اضافة الى جمال التصميم ماشاء الله حملت الملف ولكن واجهتني مشكلة دقة الشاشة ☝️ حيث ان الشاشة لدي 4096 * 2160 مما يتطلب مني اجراء تعديل لاتمكن من تشغيله بشكل صحيح ولكن حاليا ليس لدي الوقت تحياتي

EmpsDB.accdb

هديه جميلة من انسان جميل تقبل الله منا ومنكم صالح الاعمال وعيدكم مبارك 🌹

الشكر لله استاذ يوسف