ابوخليل

التكرار سببه ادراج التواريخ في هذا الاستعلام التجميعي اذا كانت التواريخ ضرورية ومهمة فإنها تدرج كــــ Where ويجعل لها معيار مثلا بين تاريخين وتستخرج في التقرير او النموذج حسب المعيار

كورس بل مدرسة كاملة للتعامل مع مربعات قوائم أكسس البليدة الصامتة شكرا على هذا العمل الجميل الرائع

المصدر هو الاستعلام والتعديل في الاستعلام .. بدل اخذ Nr من جدول TblDetaché تم اخذه من جدول tbl_Loans

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

شكرا جزيلا اخي وحبيبي .. عمل جيد وافكار جميلة ولا اروع .. وبما اني ذكرت سابقا صلتي بصندوق الرسالة هذا العجوز هذا تعديل بسيط على عملك الرائع .. حاولت فيه استبدال صندوق الرسالة 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

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