كل الانشطه

توصل بالف سلامة شكرا لاهتمام حضرتك

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

سألت الذكاء الاصطناعي فاعطاني الاجابة التالية : ... وعذرا لتقدم الكلمات وتأخرها لوجود كلمات انجليزية بين العبارات العربية محتاج آلية vba اختار منها الخط وحجمه وارتفاع الصف بحيث تطبق علي كل النملذج والتقارير بقاعدة البيانات اكسس _____________________________________________________________________________________________________________________________ لتطبيق آلية موحدة لتغيير الخط، حجمه، وارتفاع الصفوف في جميع النماذج والتقارير داخل قاعدة بيانات Microsoft Access، فإن أفضل وأسرع طريقة هي استخدام كود VBA يمر على كافة عناصر قاعدة البيانات (Forms & Reports) ويعدل خصائصها برمجياً دفعة واحدة، بدلاً من تعديلها يدوياً نموذجاً تلو الآخر. إليك الطريقة بالتفصيل مع الكود الجاهز: 1. كود الـ VBA الموحد قم بفتح محرر الـ VBA (بالضغط على Alt + F11)، ثم اختر Insert -> Module وانصخ الكود التالي بداخله. ملاحظة: تم تعيين قيم افتراضية في أعلى الكود (اسم الخط، الحجم، وارتفاع الصف)، يمكنك تغييرها مباشرة من الكود بما يناسبك. VBA Sub ApplyGlobalFormatting() Dim db As DAO.Database Dim doc As DAO.Document Dim frm As Form Dim rpt As Report Dim ctl As Control ' ---- حدد الإعدادات المطلوبة هنا ---- Const MY_FONT As String = "Arial" ' اسم الخط Const MY_SIZE As Integer = 12 ' حجم الخط Const ROW_HEIGHT As Integer = 450 ' ارتفاع الصف (بالتويت Twips: كل 1 سم تقريباً 567 تويت) ' ---------------------------------- Set db = CurrentDb ' أولاً: تطبيق الإعدادات على جميع النماذج (Forms) On Error Resume Next ' لتجنب الأخطاء في حال كان العنصر لا يدعم الخاصية For Each doc In db.Containers("Forms").Documents ' فتح النموذج في وضع التصميم وخفي DoCmd.OpenForm doc.Name, acDesign, , , , acHidden Set frm = Forms(doc.Name) ' المرور على كل العناصر داخل النموذج For Each ctl In frm.Controls ' تعديل الخط والحجم لعناصر النصوص والتسميات If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Or ctl.ControlType = acLabel Then ctl.FontName = MY_FONT ctl.FontSize = MY_SIZE End If ' تعديل ارتفاع الصف في حال كان النموذج يعرض كجدول (Datasheet) frm.DatasheetRowHeight = ROW_HEIGHT Next ctl ' إغلاق وحفظ التعديلات DoCmd.Close acForm, doc.Name, acSaveYes Next doc ' ثانياً: تطبيق الإعدادات على جميع التقارير (Reports) For Each doc In db.Containers("Reports").Documents ' فتح التقرير في وضع التصميم وخفي DoCmd.OpenReport doc.Name, acDesign, , , acHidden Set rpt = Reports(doc.Name) ' المرور على كل العناصر داخل التقرير For Each ctl In rpt.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acLabel Then ctl.FontName = MY_FONT ctl.FontSize = MY_SIZE End If Next ctl ' إغلاق وحفظ التعديلات DoCmd.Close acReport, doc.Name, acSaveYes Next doc ' تنظيف الذاكرة Set db = Nothing MsgBox "تم تطبيق الخط الجديد، الحجم، وارتفاع الصفوف على جميع النماذج والتقارير بنجاح!", vbInformation, "اكتملت العملية" End Sub 2. طريقة تشغيل الآلية أمامك خياران لتشغيل هذا الكود بناءً على رغبتك: الخيار أ: التشغيل المباشر والسريع (لمرة واحدة) وأنت داخل محرر الـ VBA وضمن الكود أعلاه، ضع مؤشر الماوس في أي مكان داخل الكود. اضغط على زر F5 من لوحة المفاتيح أو اضغط على زر التشغيل الأخضر (Run) في الشريطة العلوية. ستستغرق العملية ثوانٍ معدودة (تعتمد على حجم قاعدة البيانات)، ثم ستظهر لك رسالة النجاح. الخيار ب: ربط الكود بزر أمر (للتحكم المستقبلي) إذا كنت تريد إتاحة هذه الميزة للمستخدم أو لنفسك لتغيير الخطوط مستقبلاً عبر واجهة البرنامج: قم بإنشاء نموذج جديد (Form) وسمِّه مثلاً "لوحة التحكم بالخطوط". أضف زر أمر (Button). في حدث "عند النقر" (On Click) الخاص بالزر، اختر [Event Procedure] واكتب: VBA Call ApplyGlobalFormatting 💡 نصائح هامة جداً قبل التشغيل: خذ نسخة احتياطية: يرجى أخذ نسخة احتياطية من قاعدة البيانات قبل تشغيل الكود، لأن عمليات الـ VBA التي تقوم بحفظ النماذج تلقائياً لا يمكن التراجع عنها (Ctrl + Z). وحدة قياس الارتفاع (Twips): الـ Access يتعامل مع ارتفاع الصفوف بوحدة قياس تُدعى Twip. (الـ 1 بوصة = 1440 تويت، والـ 1 سم = 567 تويت تقريباً). القيمة 450 الموجودة في الكود تعطي ارتفاعاً مناسباً ومريحاً للعين، ويمكنك زيادتها أو نقصها حسب رغبتك. النماذج المفتوحة: تأكد من إغلاق جميع النماذج والتقارير قبل تشغيل الكود حتى لا يحدث تعارض أثناء محاولة الكود فتحها وتعديلها في وضع التصميم.

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

السلام عليكم بمزيج من : استخدام أداة الأخ العزيز Foksh ، والتدخل اليدوي فى صناعة القوائم بأوفيس 2003 ( لأنه هو الوحيد الذى يسمح بذلك ) تم إنشاء هذه القائمة المختصرة التى تناسب ظهورها الاستفادة السريعة من التقارير جربت هذه القائمة على كافة إصدارات الأكسس وكانت ممتازة وكل محتوياتها مفعلة ومتاحة ( غير خافتة ) وعند تجربتى لتصدير التقرير بصيغة وورد .. كانت رائعة فى 2003 و 2024 .. لكن بدون ظهور الجدول المحيط بالبيانات كنت قد قرأت فيما سبق عن حلول بالمنتدى فى هذا الموضوع .. لكنها غير ناجحة تماماً إذا كان هناك موضوع لم أصل إليه .. أرجو الإشارة إليه سأرفق الملف الذى يحتوي على القائمة المختصرة أعلاه ( بالمرفقات) لمن يريد الاستفادة منها ShortMenu_qryPrinting.mdb

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

وعليكم السلام ورحمة الله وبركاته .. حتى لا تتشتت أفكارك بعيداً عن طلبك ، ألقِ نظرة على هذا الموضوع هنا .

السلام عليكم و رحمة الله و بركاته ارى في بعض البرامج انك اذا تضغط على زر فستنسدل امامك خيارات كما في الصورة رقم 1 المطلوب هل يمكن كلك في برنامج اكسس في الصورة رقم 1 اذا ضغطت على زر ajout article فستنسدل قائمة فيها خيارات دون ان تفتح صفحة اخرى لاختار ما اريد فتحه كما في الصورة رقم 2 فان كان ممكن فسابعث لكم نموذج للعمل عليه او ان تدلوني على الطريقة و لكم جزيل الشكر

انا أعتذر من السير في حيلة من شأنها أن تدمر السجلات في أول خطأ يا صديقي .. لذلك قد أطرح فكرة تكون حلاً لك ، وهي الإعتماد على تعيين القيمة الافتراضية في جدول الإعدادات مثلاً . بحيث يتم تحديثها وجلبها متى شئت دون التأثير على خاصية الحقل داخل الجدول Tbl_Lab_All . فهنا نحن لن نقوم بإغلاق النموذج الرئيسي أو الفرعي أبداً . أو لن نقوم بفك ارتباط النماذج أساساً ( وبالتالي لن نجبر آكسيس على حفظ السجلات الناقصة ) . و ستبقى شاشة المستخدم مفتوحة كما هي ، والبيانات الناقصة التي تكتبها كمستخدم لن يتم حفظها إلا عندما تقرر حفظها . يعني باختصار = التعديل سيتم في جدول إعدادات خارجي بسيط ( Tbl_Settings ) غير مرتبط بالنماذج المفتوحة ، لذا لن تتواجد عوائق أخي جو . ومع ذلك ، فإن القيمة الافتراضية ستتعدل على مستوى الجدول نفسه ( وليس النموذج ) ، بحيث لو قام المستخدم بفتح الجدول مباشرة أو أضاف سجلاً من أي نموذج فرعي آخر ، سيتم تعيين القيمة الافتراضية الجديدة تلقائياً عند الحفظ . أرجو أن أكون قد نجحت بتوصيل فكرتي التي من خلالها لن تضطر للخروج من النموذج ، وبنفس الوقت ستبقى القيمة الافتراضية مخزنة داخل جدول ليس له اي علاقة بالنموذج سوى جملة DlookUp . وتحديثها من خلال سطر استعلام تحديث عند تغييرها 😉

لو كنت ركزت على كلامي كنت ستجد أني كنت قد وضحت لك أن التعديلات ستكون في عبارة If وحدث فتح النموذج ولكنك قمت بالتعديل الأول وتجاهلت الثاني وهو التعديل الذي يقوم بقراءة القيمة الإفتراضية المحفوظة عموما هذا ملفك الاخير بعد التعديل تحياتي Lab_small.rar

شكراً للمشاركة أخي خليفة .. اذا من 25 سنة ، فقد عاشت الفكرة عمراً كافياً حتى تقوم الشركة بالإلغاء أو الحذف .😅. ثم إن الفكرة ستكون حصرية للمزود الذي سيقدم الخدمة حصراً !!!! يعني من سيستخدم الفكرة في الموزمبيق لن يكون لديه شريحة لمزود الخدمة هذا في بلده 😜 .

وانا فى الانتظار........

يمكن التنفيذ 😉 ..

شكرا جزيلا ، بارك الله فيك شغالة

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

استاذ @Foksh من 25 سنة كان لديا اشتراك بمزود الخدمة b4sms.com بالبحرين . وهذا المرفق كان يعمل تمام ( كلمة مرور نموذج الارسال : 1001). يمكن يفيدك . Send SMS.rar

استاذ بارك الله فيك

الاساتذة الافاضل والخبراء الاعزاء خالص الشكر لكم جميعا على مساعدتكم واخص بالشكر الافاضل منتصر الانسي_ Foksh _ kkhalifa1960 خالص الشكر على علمكم الغزيز تقدم الفاضل Foksh بحل المشكلة على النموذج الاول وعندما قمت بنقل الاكواد الى القاعدة الاصلية حدثت مشكلة فى الاكواد والان الكود والووحدة النمطية التى قام بتقديمها الفاصل منتصر الانسي تعمل مع القاعدة الاصلية بصورة جيدة لكنها لاتحتغط بالرقم كقيمة افتراضية عند غلق النموذج واعادة فتحة تظهر القيمة القديمة 59 اليكم القاعدة الجديدة بعد اضافة الاكواد والوحدة النمطية ارجو العمل على القاعدة التى تم رفعها هنا وبها الاكواد والوحدة النمطية للخبير الفاضل منتصر الانسي ملحوظة هامة اذا كان غلق النموذج واعادة فتحة يساعد فى هل المشكلة تمام مفيش مشكلة Lab_small.rar

تفضل استاذ @بلال بلال المرفق بعد التعديل . ووافني بالرد . البرنامج4-1.rar

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

نفس المبدأ ، وهو إغلاق النموذج الحالي = الرئيسي !!!! ' إغلاق النموذج الحالي DoCmd.close acForm, Me.Name ' فتح النموذج المساعد DoCmd.OpenForm "frm_SetDefaultNO"

تم البدء بتنفيذ الفكرة .. رأيكم بالتصميم ..

تفضل التعديل JO_Lab-19-06-2026.rar

السلام عليكم اخي فادي شركات الخدمة ، سواء للاتصالات او الواتساب او التلغرام او ... او حتى البرامج ، عادة تفرض سقف لإستعمال منتجاتها/خدماتها المجانية للافراد ، ويكون عندها بديل بمقابل مادي عندما تصبح الخدمة المطلوبة جماعية/بالجملة . الواتساب مثلا ، صحيح نستطيع برمجيا ارسال الرسائل بسرعة ، ولكن نصطدم بحاجز الحوالي 200 رسالة في اليوم ، واذا زادت عن هذا العدد ، يوقف الواتساب الحساب !! نفس الشيء بالنسبة الى ارسائل sms ، وحسب الشركة مقدمة الخدمة ، فاذا تجاوز المستخدم الحاجز ، فالشركة تقوم بوقف الرقم. بالنسبة لنا كمبرمجين ، فالمتعة تكون في التحدي ، ولكن للاسف الشديد كم شخص اتصل فيني انه جرب البرنامج الفلاني من المنتدى لإرسال واتساب فاوقفت الواتساب حسابه ، فحاول مع كود ثاني وثالث والذي كلفه حسابه الثاني والثالث فياريت تكتب تحت كل برنامج: وفقا لشروط واحكام الشركة مقدمة الخدمة

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