كل الانشطه

السلام عليكم مرفق مثال ـ العمل لدى شركتنا تقوم بتوريد اصناف الى بعض البلاد المطلوب : انشاء رقم توريد بناءا على نوع التوريد (مستورد ـ محلى ـ يدوى) بناءا على اسم الصنف ونوع التوريد وتاريخ التوريد بشرط ان فى التاريخ الواحد للصنف الواحد للنوع الواحد يكون رقم التوريد متسلسل ويبدا من رقم ا -2-3 الخ واذا تغير نوع الصنف فى فى تاريخ مختلف لنوع مختلف يبدا الترقيم من رقم 1 بمعنى : فى يوم 2024/5/22 سوف يورد صنف1 محلى فياخذ رقم التوريد له ا فى نفس اليوم 2024/05/22 سوف يورد صنف1 مستورد فياخذ رقم التوريد له ايضا 1 فى نفس اليوم 2024/05/22 سوف يورد صنف1 يدوى فياخذ رقم التوريد له ايضا 1 فى نفس اليوم 2024/05/22 سوف يورد محلى (مرة اخرى ) فياخذ رقم التوريد له ايضا 2 فى نفس اليوم 2024/05/22 سوف يورد صنف1 مستورد فياخذ رقم التوريد له ايضا 2 اى ان التاريخ الواحد للصنف الواحد للنوع الواحد يسلسل له رقم التوريد فاذا تكرر نفس ياخذ الرقم الذى يليه اسف للاطالة وجزاكم الله خيرا التوريد.accdb

تفضل ........................... Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT TP1.ID, TP1.[اسم الموظف], TP1.[الدرجة الوظيفية], TP1.[العنوان الوظيفي] FROM TP1;", dbOpenSnapshot) With rs .MoveLast .MoveFirst Me.text1.AddItem "اسم الموظف" & ";" & "الدرجة" & ";" & "العنوان الوظيفي" For i = 1 To .RecordCount xfld = 0 Call Allfld(rs![العنوان الوظيفي]) If xfld = 0 Then Beep Me.text1.AddItem rs![اسم الموظف] & ";" & rs![الدرجة الوظيفية] & ";" & rs![العنوان الوظيفي] Else End If .MoveNext Next i End With

أخي الكريم أبوبسمله لطفاً... ولو تكرمت وأوضحت لي المكان بالتفصيل لأني لا استطيع الوصول للتعديل ____________________________________________________________________________________ kkhalifa1960 مصدر التقرير استعلام وعند البارامتر المهم ضع تحته الشرط (Is NotNull) أبوبسمله ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل

up

احسن الله اليك , واياكم الحل كما ذكره لك اخى @kkhalifa1960 ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل بالتوفيق

جزاكم الله خيرا جميعاً ... ماشاء الله المنتدى ذاخر بالخبراء وعامر بالعلم دائما إن شاء الله

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

السلام عليكم مشاركه مع اخوانى هل هذا ما تريد جرب واخبرنا 11.accdb

السلام عليكم ورحمة الله وبركاته تسلم بشمهندس محمد سلمت يداك فعلا هذا هو المطلوب السلام عليكم ورحمة الله وبركاته اشكرك بشمهندس Foksh حفظك الله الكود ممتاز فعلا يلبي الطلب في كل الحقول الفارغة لقد استفدت منه وسوف استعمله في نماذج تحتاج ذلك في هذا النموذج حقول محددة فقط احتاج ان يعمل فيها الكود اشكرك مرة اخري بشمهندس

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

جرب فكرتي هذه أخي @ahmed draz ،، 1.zip

اخي الكريم شكرا جزيلا اخونا الكريم Foksh مرسل لحضرتكم المرفق. 1.rar

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

ممكن نسخة 2003 شكرا

نفس المشكلة حاولت اضف المكتبة ولاكن بدون فائدة

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

أخي الكريم أولا أين النموذج 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

أخي الكريم اهلاً وسهلاً بك ,, وعتذر إن لم يحالفني الحظ بالمساعدة .. ارسل مرفقك وأعاننا الله على الإفادة 😊 أو لعدم وجود مرفق ومشاركة مع الأساتذة كفكرة ، هل جربت استخدام الأمر HasData في التقرير ؟ إليك كمثال الكود التالي :- If Me.HasData = False Then Me.Visible = True Else Me.Visible = False End If

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

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