كل الانشطه

الاخوة الكرام اريد في التقرير rrssmm 1/ ان يظهر المتبقي دون اصفار اي الذين عليهم مبالغ متبقية اكبر من 1فقط ويخفي المكملين الرسوم وهم الذي يظهر المتبقي 0 2/ وترتيب المتبقي من المبلغ الاكبر الي المبلغ الاصغر ولكم الشكر و التقدير acc.rar

اشكرك انا اريد جمع المبلغ الذي طريقة الدفع 1

السلام عليكم ورحمة الله وبركاتة... ارجو من اساتذتنا الكرام المساعدة في ايجاد كود لتنفيذ التقرير كما الملف المرفق Vendors.xlsm

انتبه من فضلك Hussein Taso وعليك دائماً وأبداً التماس العذر لإخواننا وأساتذتنا فانت لا تعلم مدى ارتباطهم وانشغالهم بأعمالهم .. خصوصاً ان العمل والتواجد والنشاط والرد على المشاكل بالمنتدى انما لوجه الله فلا أجر له فكان لابد عليك قراءة قواعد وقوانين المشاركة بالمنتدى جيداً .فمنها عدم الإلحاح فى طلب المساعدة , وخصوصاً ان طلبك هذا مخالف لقواعد أى منتدى فهذه حقوق ملكية لصاحبها فقد , لما قد بذل من جهود للخروج بهذا العمل فعليك بالإتصال مباشرة بصاحب هذا العمل وهو الوحيد الذى له الحرية فى الإفصاح عن هذا لك!!!!! .. وشكراً جزيلاً

KFC.mdb وعليكم السلام تفضل على حسب فهمي

سلام عليكم فضلا جمع حقل المبلغ حسب طريقة الدفع 1 KFC.mdb

علشان كنت متوقع الطلب هذا كتبت الملاحظه فى اخر الرد ليك وهنا يجعلنى اسألك ما الغرض من طلبك ؟ لان كل جذء فى برنامج الاكسيس له وظيفه معينه فالجداول لتخزين البيانات وليس للعمل عليها الاستعلام لمساعدة النماذج فى انهاء الغرض من النموذج النماذج وظيفتها عرض وادخال وتعديل البيانات التقارير عرض البيانات فلكل شئ وظيفه اساسية فما الغرض لديك من تنفيذ هذا ؟

تفضل صديقي

يبدو انه لا احد في المنتدي او انه مهجور

جزاك الله خير عمي أبو يزيد على هذا المثال ، لكنه كما لاحظت هو يعتمد على أرقام أبعاد ثابتة ، وهذا للأسف لا يلبي الحاجة المرجوة من فكرتي . انظر الصورة :-

السلام عليكم ورحمة الله وبركاتة هذا مثال لـ التحكم في موقع النماذج التحكم في موقع النموذج.accdb

للرفع

أرجو الرد للاهمية على هذا الموضوع بالله عليكم جعله الله في ميزان حسناتكم

دقة الشاشة عندى 900*1440

بارك الله فيك

شكر وتقدير واحترام من اخيك

نفس دقة الشاشة في جهازي 🤔 وظهر النموذج كما في مشاركتي السابقة 🙄

1920 * 1080 هذه دقة الشاشة عندي

اقتراحاً لا توجيهاً اخي الكريم @طير البحر ، ما رأيك بإضافة سطر لحذف الملف الذي ينشأ عن كود إعادة التشغيل ، بحيث تضعه في أول نموذج بيشتغل معاك في حدث عند الفتح Kill CurrentProject.Path & "\Restart.bat" 🥰🤗🥰

تسلم ما قصرت وشكرا لحضرتك

وعليكم السلام ورحمة الله وبركاتة وقد ساعدني بعض الإخوة في تعبئة هذا العمل ولكن هناك مشكلة في ذلك لا يتم خصم كمية المنتج الفرعي من المتجر Feuil1(“Stock”) هنا هو الرمز اليك الملف والصورة الموضحة Private Sub CmdValider_Click() On Error Resume Next If Datetr = "" Then Datetr.SetFocus MsgBox "يجب عليك إعطاء تاريخ." Exit Sub ElseIf Not IsDate(Datetr) Then Datetr = "" Datetr.SetFocus MsgBox "تاريخ غير صحيح." Exit Sub End If ' If ListBox1.ListIndex = -1 Then ' MsgBox "يجب عليك تحديد عنصر." ' Exit Sub ' End If If OptionButton1 = False And OptionButton2 = False Then MsgBox "يجب عليك اختيار خيار: المدخلات أو المخرجات." Exit Sub End If Set fa = Sheets("Stock") Lig = fa.Range("A:A").Find(ListBox1.Column(0, ListBox1.ListIndex), lookat:=xlWhole).Row If OptionButton1 = True Then Me.ComboBox1.Enabled = False fa.Range("F" & Lig) = fa.Range("F" & Lig) - ListBox1.Column(3, ListBox1.ListIndex) fa.Range("J" & Lig) = Datetr fa.Range("D" & Lig) = fa.Range("D" & Lig) Set fe = Sheets("Entrees") Lige = fe.Range("A" & Rows.Count).End(xlUp)(2).Row fe.Range("A" & Lige) = Application.Max(Lige - 2) + 1 fe.Range("C" & Lige) = ListBox1.Column(0, ListBox1.ListIndex) fe.Range("D" & Lige) = ListBox1.Column(1, ListBox1.ListIndex) fe.Range("E" & Lige) = ListBox1.Column(2, ListBox1.ListIndex) fe.Range("G" & Lige) = ListBox1.Column(3, ListBox1.ListIndex) fe.Range("H" & Lige) = ListBox1.Column(4, ListBox1.ListIndex) fe.Range("B" & Lige) = Datetr If Me.OptionButton1 = True Then fe.Range("F" & Lige) = "Entrée" ElseIf Me.OptionButton2 = True Then fe.Range("F" & Lige) = "Sortie" End If fe.Range("I" & Lige) = ComboBox1 fe.Range("J" & Lige) = ComboBox2 fe.Range("K" & Lige) = Format(Now, " ddd yyyy/mm/dd Time hh:mm:ss am/pm") ElseIf OptionButton2 = True Then 'If Me.ComboBox1 = "" Then: Me.ComboBox1.SetFocus: MsgBox "Vous devez selectionner un client.": Exit Sub If fa.Range("D" & Lig).Value = 0 Then MsgBox "la quantité de stock = 0.": Quantitetr = "": Quantitetr.SetFocus: Exit Sub 'If TextBox2.Value > fa.Range("G" & Lig) Then MsgBox "Vous ne pouvez pas sortir plus que ce qu'il y a en stock.": TextBox2 = "": TextBox2.SetFocus: Exit Sub If fa.Range("D" & Lig) < fa.Range("H" & Lig) Then MsgBox "Vous allez passer sous la quantité de stock mini." fa.Range("G" & Lig) = fa.Range("G" & Lig) + ListBox1.Column(3, ListBox1.ListIndex) fa.Range("J" & Lig) = Datetr fa.Range("D" & Lig) = fa.Range("D" & Lig) 'ListBox1.Column(0, ListBox1.ListIndex) = fa.Range("D" & Lig) Set fs = Sheets("Sorties") Ligs = fs.Range("A" & Rows.Count).End(xlUp)(2).Row fs.Range("A" & Ligs) = Application.Max(Ligs - 2) + 1 fs.Range("B" & Ligs) = ListBox1.Column(0, ListBox1.ListIndex) fs.Range("C" & Ligs) = ListBox1.Column(1, ListBox1.ListIndex) fs.Range("D" & Ligs) = ListBox1.Column(2, ListBox1.ListIndex) fs.Range("E" & Ligs) = ListBox1.Column(3, ListBox1.ListIndex) fs.Range("H" & Ligs) = ListBox1.Column(4, ListBox1.ListIndex) fs.Range("B" & Ligs) = Datetr If Me.OptionButton1 = True Then fs.Range("F" & Ligs) = "Entrée" ElseIf Me.OptionButton2 = True Then fs.Range("F" & Ligs) = "Sortie" End If fs.Range("I" & Ligs) = ComboBox1 fs.Range("J" & Ligs) = ComboBox2 fs.Range("K" & Ligs) = Format(Now, " ddd yyyy/mm/dd Time hh:mm:ss am/pm") End If Me.Quantitetr = "" Me.ComboBox1 = "" MsgBox "تم الحفظ." End Sub Gestion Stocks Magasin1.xlsm

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

ما دقة الشاشة في جهازك أخي الكريم 🤗 للعلم فقط ، والكود لا يقوم بتغيير اي اعدادات في الويندوز.

استاذ @ابو محمد 4 المرفق بعد التعديل .ووافني بالرد . DDTest506-1.rar