نجوم المشاركات

شكرا يا أستاذ أحمد علي تعب معنا أنا وجدت طريقة سهلة ياختار الطار اللي أنا محتاجة علي الورد تكون الورقة a4 ثم اطبعه علي ( اختبار طباعة onenote ) تتحول لصورة واحفظها باسم ثم افتحها ببرنامج الرسام واظبطها بقدر الامكان ثم احفظها ثم افتح التقرير واختار تنسيق ثم ارفاق صورة ثم اختار صورة الاطار هتدخل علي التقرير بصورة سليمة

اشكرك استاذي علي المجهود و شكرا علي الاستجابة و لكن الاستاذ Foksh افاد بالفكرة التي اريدها بالظبط شكرا استاذ Foksh هذا ما كنت افكر فية بالضبط

شكرا استاذي وجزاك الله كل خير

اطلب من اخواني واساتذتي في الموقع بمالمساعد في كود الطباعة الطلب عندي نموذج من قائمة منسدلة في حين يكون في القائمة "كشف حساب" اريده ان يطبع التقرير رقم 1 واذا كان في القائمة "كشف حساب تفصيلي" اريده ان يطبع التقرير رقم 2 مع العلم ان النموذج في البرنامج المستخدم له كود اخفاء الاكسس واظهار النماذج فقط فارجو النصح وكيف كتابة الكود الصحيح ومرفق ملف العمل ولكم مني جزيل الشكر والتقدير Database10.rar

السلام عليكم ورحمه الله وبركاته تفضل اخي filter-function-excel.xlsb

جزاكم الله اخي ونتمنى ان يرزقكم الله من واسع فضله

شكرا جزيلا اخي الفاضل

تفضل استاذ @2saad محاولتي حسب مافهمت . طلبك بالاستعلام DDTest505.rar

هنا يوجد أحد الحلول 🙂

شكرا جزيلا صدىقي الكريم Foksh

تفضل يا صديقي ، استخدم هذا الكود في التقرير عند الفتح Me.Text121 = Year(Date) عدم تجاوز التسلسل.accdb هكذا سيتم تغيير السنة حسب التاريخ

طبق كما في الصورة ................ ولماذا لايكون التاريخ تلقائي حسب السنة الدراسية .... دون الحاجة لارتباطها بالنموذج ؟؟؟

وعليكم السلام الطريقة التي شرحتها في جمع الأرقام ليست علمية كيف تم كتابة الرقم في الخلية على اليمين؟ بناء على ماذا ؟ الرجاء شرح تفصيلي أكثر مع إرفاق ملف

وعليكم السلام -ارفع من فضلك ملف موضح به المطلوب بكل دقة .. فلا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية ؟

مشاركة مع الاستاذ @Foksh كما ذكر اخي الفاضل .... لكن لو كان الاطار عبارة عن خط اعتقد يمكن رسمه بالكود حول التقرير ... والله اعلم

سلمت يداك اخي @Foksh

لا اعتقد أن اكسيس يدعم هذه الميزة !!! إلا إن كان صورة يتم ادراجها داخل التقرير ,,

اهلا مهندسنا الغالي ، خانتني ذاكرتي في هذا الموضوع فعلاً ، فلو بحثت عنه لساعدني أيضاً في طلبي 🥺 بارك الله فيك وجزاك الله كل خير 🥰

وعليكم السلام ورحمة الله نعالى وبركاته جرب هل هدا ما تقصده Textbox يحتوي علي نص موجود..xlsm

اطلع على هذا الموضوع أستاذنا العزيز @Foksh 🙂

عليكم السلام ورحمة الله وبركاته لا يمكننا تنفيذ الاجراء من النموذج نفسه .. فالتسميات لا يمكن تغييرها الا من عرض التصميم من خارج النموذج يمكن التغيير جرب ضع هذا الاجراء في نموذج آخر .. ونفذ Private Sub Com1_Click() DoCmd.OpenForm "form1", acDesign, , , acFormEdit, acHidden Dim ctl As Control Dim i As Integer i = 0 For Each ctl In Forms!form1.Controls If ctl.ControlType = acCommandButton Then If Left(ctl.Name, 7) = "Command" Then i = i + 1 ctl.Name = "foksh" & i End If End If Next ctl End Sub

تقضل استاذ @Mohamed Abo Elala محاولتي حسب مافهمت . اليك الشرح والمرفق . DDUnPoundForm.accdb

السلام عليكم تفضل اكتب فقط رقم الجلوس للطالب في الخلية البنفسجية ستلاحظ أن المعادلة المستخدمة هي معادلة واحدة المختلف فقط هو رقم العمود في كل معادلة قم بتغيير الرقم إذا وجد أي خطا لتصحيحه نتيجة للتجربة1.xlsx

أخي الكريم @Mohamed Abo Elala ، الى أن استوعبت الأكواد خرجت بهذه النتيجة ، ولا أعلم إن كانت تخدم فكرتك .. قمت بتعديلات بسيطة على الوظائف التي في المديول الذي يظهر رسائل التنبيه ، واضطررت لإيقافها والإستعاضة عنها بعدد التنبيهات وعرض النتائج في List Box في نموذج الواجهة . ولك حرية التعديل طبعاً ، تفضل . سجل المحضرين.zip

أخي الكريم ، تفضل أن كان هذا طلبك .. استخدم الكود التالي في حدث بعد التحديث للكومبوبوكس كما يلي .. Select Case Me.vool.Value Case "كشف حساب" DoCmd.OpenReport "aa1", acViewPreview Case "كشف اجمالي الديون" DoCmd.OpenReport "a2", acViewPreview Case Else MsgBox "يرجى اختيار تقرير لطباعة", vbExclamation End Select طبعاً تستطيع الاضافة والتغيير كما تريد .. Database10.accdb

هل هذا طلبك أخي الكريم ,, ضع الكود في حدث في الحالي للنموذج .. Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl.Value) Or ctl.Value = "" Then ctl.BackColor = vbYellow Else ctl.BackColor = vbWhite End If End If Next ctl تلوين النصوص الفارغة.mdb

تفضل قمت بالتنفيذ فى حقل name1 نفذ نفس الفكرة فى باقى الحقول بالتوفيق تلوين النصوص الفارغة.mdb