كل الانشطه

تم الرد في المشاركة الأصلية 🤗

أخي الكريم ،، بالنسبة للعنوان "من التقرير والاستعلام من شريط الادوات " الاستعلام م التقرير يكون حصراً مصدر بيانات التقرير ,, أما الإستعلام الذي أشرت اليه في الصورة الأولى ، فهو استعلام عام تستطيع استخدامه في نموذج وتقرير آخر أو أينما تريد اظهار البيانات .

أخي الكريم أولا أين النموذج frmNavi ؟؟؟ ثانياً ، هلا حددت لنا اين النموذج الذي يحتوي النموذج الفرعي لتنفيذ طلبك ، ولكن اعذرني لحين الوصول الى المنزل لتكون قد أوضحت لنا النموذج الهدف !!!!

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

Foksh

سجل المحضرين.rar الملف المرفق بة رسائل عند الدخول من فورم frmLogin كرسائل لاحداث قربت اسم المستخدم / محمد ابو العلا كلمة المرور / 111 المطلوب عمل صفحة بها نموذج فرعي يملئ بالبيانات المستخرجة بالرسائل كلمة سر vba 3032 @Foksh kkhalifa1960

هل هذا طلبك أخي الكريم ,, ضع الكود في حدث في الحالي للنموذج .. 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

أخي الكريم اهلاً وسهلاً بك ,, وعتذر إن لم يحالفني الحظ بالمساعدة .. ارسل مرفقك وأعاننا الله على الإفادة 😊

انى عالق الرجاء المساعدة رجاء مساعدتى فى السؤال التالى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية لو وجد أن قيمة المخزون اريد عليها تعديل بحيث يظهر الرصيد الآخر بناء على الصلاحية الاقدم بمعنى أريد عند اختيار الكود 100 في هذا المنتج، يتم عرض أقدم تاريخ مخزون، وعندما يكون الحد الأدنى للمخزون صفر، فإنه ينتقل إلى التاريخ التالي بكمية المخزون الأخيرة لهذا العنصر.

السلام عليكم ورحمة الله وبركاته تحية طيبة لجميع اخوتي في المنتدى واخص بالذكر اخونا الكريم Foksh فلم يحالفني الحظ ليرد على استفساري في الموضوع السابق وكل الاخوة الخبراء الذين قامو بمساعدتى لم تفلح محاولتهم للاسف الشديد. الموضوع كان باسم (كود لمنع طباعة الصفحات الخالية من البيانات عند طباعة التقرير) فلو سمع اخونا الكريم Foksh واستجاب لطلبى جزاه الله خيرا .

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

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

وعليكم السلام ورحمة الله وبركاته .. ارسل مرفقك أخي الكريم ,, لمشاركة الأستاذ @kkhalifa1960 في تقديم الحلول

وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات

شكرا استاذي kkhalifa1960 و لكن تبقي المشكلة قائمة و هي ان النموذج الفرعي لم يظهر بة الا سجل واحد و ليس الثلاث سجلات المرتبطة به

1- من هنا 2- وهنا عند تصميم التقرير ملاحظة: في الطريقة الثانية لاحظت عدم وجود الاستعلام في عناصر الاكسس

للأسف انا مبتديء في الاكسل ومش عارف اعمل الدالة خالص

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

السلام عليكم استاذي Foksh شكرا لردك و علي وقتك اقوم بتنفيذ فكره للاشعارات في برنامجي واريد تعبئة نموذج فرعي ببيانات من جداول مختلفة و هذه هي الغاية اما النموذج الرئيسي فهو غير منضم ايضا و حاولت وبحثت و سألت شات جي بي تي و كان الرد الكود التالي Private Sub Form_Load() Dim db As DAO.Database Dim rs As DAO.Recordset ' Open the database Set db = CurrentDb ' Open a recordset for the desired table Set rs = db.OpenRecordset("YourTableName") ' Move to the first record rs.MoveFirst ' Loop through each record Do Until rs.EOF ' Set the field values of the form to the values in the recordset Me.FieldName1 = rs("FieldName1") Me.FieldName2 = rs("FieldName2") ' Add more lines as needed for each field ' Move to the next record rs.MoveNext Loop ' Close the recordset rs.Close Set rs = Nothing Set db = Nothing End Sub و لكن عند التنفيذ تتم تعبئة اخر سطر فقط في الجدول

up

ربنا يكرم حضرتك يا رب متشكر جدا جدا جدا جزاك الله كل خير

وما الذي يمنع ؟؟ ما هو مصدر بيانات النموذج الرئيسي ، وارفق ملفك للإطلاع عليه.

جزاك الله خير وشكرا ع الافادة

هل يمكن تعبئة نموذج فرعي غير منضم ببيانات من جدول عن طريق ريكورد سيت