متقاعد

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

مع اني ربما لم افهم المطلوب ولكني ساحاول ممكن نعمل اجراء 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