الحســـام

شكرا اخى ابو ياسين ولكن المعادلة لم تضبط بعد الرقم 100

الاخوة الكرام ممكن المساعدة فى تصحيح دالة iif فى منشىء التعبير فى نموذج لاكثر من شرط بناء على قيمة متغيرة فى حقل iif.accdb

تم حل المشكلة بواسطة اخى بحار الاكسس الف شكر count.rar

جزاك الله خيرا ooow81@gmail.com

اخى @بحار الاكسس مفيش مرفقات الملف

اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .

الاخوة الافاضل السلام عليكم ورحمة الله وبركاتة كيف يمكننى استخدام دالة count فى تقرير لعدد التلاميذ فى الفصل حسب النوع وطباعة جميع القوائم count.7z

ما شاء الله عليك ربنا يزيدك استاذ جعفر وجزاك الله خيرا واسف اخذت من وقتك كتير شكرا

تمام الله ينور يا استاذ جعفر شغال مية مية بس ممكن اعرف الخلل كان فى اية ؟

مصدر النموذج استعلام عادى خالص

قصد حضرتك الكود دا ؟ طيب مفيش حل يكون سريع

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

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

الأستاذ صالح هل من الممكن جعل الكود يحدد السجلات في النموذج فقط لان الكود يحدد كل السجلات بما فيهم السجلات الغير ظاهرة في النموذج ؟؟

تفضل اخى تم ربط الجدولين باضافة عمود فى الجدول detials_transactions2 لربط الجدول الاخر واعطائة ارقام افتراضية للربط عليك بتغيرها للمناسب عمل استعلام عن المعدّة عن طريق تاريخ detials_transactions2_date الاستعلام detials_transactions last Database2.rar

شكرا اخى صالح على سرعة الرد ولكن هل الكود سوف يقوم بتجميع جميع كميات العميل الواحد فى اليوم وينسخها ويلصقها فى جدول اخر تلقائيا ؟

السلام عليكم ورحمة الله وبركاتة الاخوة الافاضل كيف يمكن جمع كميات العملاء من جدول وترحيلها الى جدول اخر مجمعه كل عميل باجمالى الكمية فى اليوم بدون تكرار تلقائيا مع تسجيل الفواتير total.rar

فعلا الكود سريع جزاكم الله خيرا جميعا

الف شكر للاساتذة وجار التجربة ان شاء الله

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

هو المطلوب وجزاك الله خيراااااااا كثير الف شكر استاذ ابو البراء

انا اسف والله بس حضرتك صاحب الملف واكثر واحد معرفة به اخر طلب والملف يكون شامل ورقة (Lists) قوائم الفصول لا تقبل اكثر من الفصل الخامس المطلوب توسيع عدد الفصول بها علشان تقبل اكثر من 5 فصول للمرحلة يعنى تقبل 1 - 6 مثلا ودى صورة للتوضيح اكثر

الحل الوحيد اخى ياسر دا الملف الخام الاول معلش هاتعب حضرتك هل ممكن تزود لى اعداد الفصول فى القوائم والاحصاء بامكانية 10 فصول لكل مرحلة مثلا لانى بقى لى اكترمن اسبوع بحاول ومعرفتش والله Record.rar

اشكرك استاذ ياسر على تعبك معى ولكن القوائم تعطلت كليا

الف سلامة عليك يا استاذ ياسر من الزهايمر دا كل الوقت اللى عدى حوالى 5 سنين المشكلة خاصة بقوائم الفصول والاكواد وانا ضعيف فى الاكواد والفيجوال انا حاولت اعدل وازود فى الكود عدد الفصول بس القوائم تعطلت خالص الكود دا بعد ما عدلت فيه Private Sub ComboBox1_DropButtonClick() If ComboBox1.Value = 1 Then Range("ListsGrade").Value = 1 ElseIf ComboBox1.Value = 2 Then Range("ListsGrade").Value = 2 ElseIf ComboBox1.Value = 3 Then Range("ListsGrade").Value = 3 ElseIf ComboBox1.Value = 4 Then Range("ListsGrade").Value = 4 ElseIf ComboBox1.Value = 5 Then Range("ListsGrade").Value = 5 ElseIf ComboBox1.Value = 6 Then Range("ListsGrade").Value = 6 ElseIf ComboBox1.Value = "KG1" Then Range("ListsGrade").Value = "KG1" ElseIf ComboBox1.Value = "KG2" Then Range("ListsGrade").Value = "KG2" End If End Sub Private Sub CommandButton1_Click() Call Proc_Lists End Sub Private Sub txtclass_Change() On Error Resume Next If txtclass.Text = 1 Then Range("ListsClass").Value = 1 ElseIf txtclass.Text = 2 Then Range("ListsClass").Value = 2 ElseIf txtclass.Text = 3 Then Range("ListsClass").Value = 3 ElseIf txtclass.Text = 4 Then Range("ListsClass").Value = 4 ElseIf txtclass.Text = 5 Then Range("ListsClass").Value = 5 ElseIf txtclass.Text = 6 Then Range("ListsClass").Value = 6 ElseIf txtclass.Text = 7 Then Range("ListsClass").Value = 7 ElseIf txtclass.Text = 8 Then Range("ListsClass").Value = 8 ElseIf txtclass.Text = 9 Then Range("ListsClass").Value = 9 ElseIf txtclass.Text = 10 Then Range("ListsClass").Value = 10 ElseIf txtclass.Text = 11 Then Range("ListsClass").Value = 11 ElseIf txtclass.Text = 12 Then Range("ListsClass").Value = 12 ElseIf txtclass.Text = 13 Then Range("ListsClass").Value = 13 Else MsgBox prompt:="No more!!", Title:="" txtclass.Text = "" End If End Sub Private Sub UserForm_Initialize() ComboBox1.SetFocus ComboBox1.AddItem "1" ComboBox1.AddItem "2" ComboBox1.AddItem "3" ComboBox1.AddItem "4" ComboBox1.AddItem "5" ComboBox1.AddItem "6" ComboBox1.AddItem "KG1" ComboBox1.AddItem "KG2" End Sub