كل الانشطه

@kkhalifa1960 اشكرك على تعاونك ولكن انا اعمل بالفعل على برنامج معد ببرنامج الاكسس واريد ادخل الارقام كما ذكرت فليس لدي اي صلاحيات على ملف قاعدة البيانات الاصلي

السلام عليكم استاذب العزيز @ناقل الكود لايعمل بصورة صحيحة تحياتي Test-12.accdb

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

السلام عليكم مرفق مثال ـ العمل لدى شركتنا تقوم بتوريد اصناف الى بعض البلاد المطلوب : انشاء رقم توريد بناءا على نوع التوريد (مستورد ـ محلى ـ يدوى) بناءا على اسم الصنف ونوع التوريد وتاريخ التوريد بشرط ان فى التاريخ الواحد للصنف الواحد للنوع الواحد يكون رقم التوريد متسلسل ويبدا من رقم ا -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