ابوخليل

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

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

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

نعم اوافقك وبشدة انا عملت جدول لتسميات بعض ازرار نموذج ( الازار التي يتوقع حاجتها للتغيير ) ثم ادرجت ارقام في Tag كل زر مقصود .. مجموع الازرار 22 والمقصود منها 14 ثم وضعت الكود هذا عند تحميل النموذج النتيجة ممتازة 100% Private Sub Form_Load() On Error Resume Next Dim ctl As Control Dim ptnTs As String For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If ctl.Tag > 0 And ctl.Tag < 15 Then ptnTs = DLookup("ptn_name", "tbl_potons", "ptn_id=" & ctl.Tag) ctl.Caption = ptnTs End If End If Next ctl End Sub السؤال : هل من طرق اخرى افضل .. واكثر احترافية ؟

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

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

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

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

السبب هو المعيار في الفلترة انا وضعت Like "*" لذا يظهر اي رقم يحتوي على 2 لو تحب يكون الفورم خالي عند الفتح ويعرض فقط عند الاختيار : شيل Like ومرفقاتها من المعيار

من الاشياء التي تم تصحيحها : كان موجود كود يعيد اي تاريخ من هذا الشهر الى اليوم الأول وهذا يعتبر عمل غير موافق للحقيقة .. اذا الادخال في يوم 15 يجب ان يسجل في 15 لذا جعلت الكود يقبل التسديد في اي يوم من الشهر فالعمدة هو الشهر الحالي .. لا فرق بين اوله وآخره

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

حسنا دعني ارى ما يمكنني عمله

👿 !!! ؟؟

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

اعانك الله وانا حاضر معك لأي مساعدة

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

تفضل تعديل بسيط على الشرط عدم الاقتطاع 5.rar

تفضل اخي هذا ما اتحدث عنه احكام بكل ما تعنيه الكلمة عدم الاقتطاع 4.rar

انت مقفل على فكرة وحدة فقط المفروض العملية تتم على النحو التالي : 1- فحص السجلات اذا يوجد اقتطاع لشهر 3 او 7 لهذه السنة يخرج رساله بوجوده ويخرج 2- اذا لا يوجد يدرج الاقتطاعات 3- لسنا بحاجة الى التأكد من المجموع 3000 لأن الشرط يخص شهر محدد وقيمة محددة بمعنى لو حاولت الاقتطاع في اشهر اخرى لن تتمكن فهو يأخذ التاريخ من الفورم الذي هو تاريخ اليوم __ ارجع للمهم ___ : لماذا تقحم هذه الجزئية في كود طويل عريض مليء بالضوابط التي لا تخصه . يكفي وجود زر يقوم بالمهمة ما الفرق بين تنفيذ الكود من خلال زر .. أو .. تنفيذه عند تحميل النموذج ارى ان الأول افضل مليون مرة

في مرفقي الاخير .. في شرط المتغير تم تصحيح الشرط فعمل معي

هو يقارن بين تاريخ الجهاز و تاريخ مشابه موجود في الجدول اكيد ما فيه Set rst = CurrentDb.OpenRecordset( _ "SELECT * FROM tbl_Loans WHERE Payment_Month=#" & Format(CurrMonth, "mm/dd/yyyy") & "#") If rst.RecordCount = 0 Then MsgBox "لا توجد إقتطاعات لشهر " & Format(CurrMonth, "mmmm yyyy"), vbInformation Exit Sub End If

انا فقط غيرت تاريخ جهازي الى 3/2026 وفتحت الفورم وهذه هي النتيجة

اجادة طرح السؤال تسهل ايجاد الحل انت خبرة في البرمجة لذا من اجل تكسب وقتك حاول ان تكون استفساراتك على هذا النحو تفضل .. اتمنى ان يكون هو المطلوب عدم الاقتطاع 2.rar

افدني من فضلك المثال الأخير : هل اذا قدمت التاريخ الى مارس 2026 ثم فتحت البرنامج المفترض ان يقتطع شهر مارس آليا من دون تدخل ويظهر هذا في الجدول ؟

لا اعلم سبب عدم الاقتطاع هل جربت تقديم التاريخ ؟ هذا الكود شرط ان السنة تكون مختلفة وان لا يزيد او يساوي 3000