mahmoud nasr alhasany

شكرا استاذنا محمد هشام على المجهود الرائع لقد استفدت منك كثيرا بالنسبه للسؤال الثاني وهو ربط كود السعر بكود الصنف واظهار السعر في تكس بوكس ٧ مع العلم كود السعر في كومبو بوكس 10 كما موضح فى Compte magasin (j:n)

السلام عليكم ورحمة الله وبركاتة عندى فورم مبيعات يوجد بها كود مندوب ComboBox1 وربطه بأسم المندوب ComboBox2 (E:F) كود مخزن ComboBox3 وربطه بأسم المخزن ComboBox4 (AE:AF) كود موزع ComboBox5 وربطة بأسم الادارة ComboBox11 (AH:AI) كود عميل ComboBox9 وربطة بأسم العميل ComboBox8 (AB:AA) كود الصنف ComboBox12 وربطة بأسم الصنف ComboBox13 (N:O) اولا رجاء عند اختيار اى من كود المدرج اعلاه يأتى بالاسماء الخاصة بكل كود ثانيا اريد عند اختيار كود الصنف مع ارتباطه بسعر المنتج ComboBox10 خاص بالتسعير المنتج يظهر سعر المنتج فى TextBox7 (Q:U) وشكرا جزيلا لكم بيانات فاتورة.xlsm

بالفعل هذا هو المطلوب ولاكن عزرا فأنى مبتدئ فى الاكسس

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

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

السلام عليكم ورحمه الله وبركاته احسنت سؤال هل يوجد بها تحويل كميات الأصناف بين المخازن

السلام عليكم ورحمه الله وبركاته رجاء من الإخوة الكرام مساعدتى فى تنفيذ هذه الفكرة لو تكرمتم الصور الموضحا اعلاه

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

الاستاذ المبدع هشام محمد تحية طيبة وبعد رجاء استكمال لمستك الرائعة فى هذا الكود يتم ادراج البيانات بنجاح فى باقى الشيتات سواء Entrees او Sorties ولاكن فى بعض اصناف لم يتم خصمها من المخزن الخاص بها هل هو تعارض مع تاريخ الصلاحية فلا اعرف السبب تقريبا رجاء مساعدتى فى استكمالاها تفضلا منك ملحوظة عندما يتم تحويل كمية صنف من مخزن الى مخزن اخر اذا كان المخزن الاخر لايوجد صنف مدرج بأسمة فى شيت stock فانة عند اختيار المخزن من combobox2 يستدعى userform9 لادراج المخزن والكمية لاستكمال عملية التحويل وشكرا Private Sub CommandButton5_Click() On Error Resume Next If Datetr = "" Then Datetr.SetFocus MsgBox "Vous devez donner une date." Exit Sub ElseIf Not IsDate(Datetr) Then Datetr = "" Datetr.SetFocus MsgBox "Date incorrecte." Exit Sub End If If OptionButton1 = False And OptionButton2 = False Then MsgBox "Entrees او Sorties. : ان مربع القائمة خالية من البيانات يجب عليك اولا اختيار خيار" Exit Sub End If If ListBox1.ListCount = 0 Then MsgBox "ان مربع القائمة فارغ، ولا يحتوي على أي عناصر", , "alerte" Exit Sub End If Dim Stock_check As Boolean, Product_check As Boolean Dim dat, dat_bon As Date Dim x As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 2)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 2)) Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E4:E" & Uf), ComboBox1) > 1 Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1 If (fa.Cells(J, 4).value) = 0 And Stock_check = True And Product_check = True Then fa.Cells(J, 4).EntireRow.Delete End If ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 2)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 2)) Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E4:E" & Uf), ComboBox1) > 1 Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1 If (fa.Cells(J, 4).value) = 0 And Stock_check = True And Product_check = True Then fa.Cells(J, 4).EntireRow.Delete End If End If End If Next J Next i End With 'Call TO_Maghzin If OptionButton1 = True Then Set fe = Sheets("Entrees") For v = 0 To ListBox1.ListCount - 1 Lige = fe.Range("A" & Rows.Count).End(xlUp)(2).Row fe.Range("A" & Lige) = TextBox5 fe.Range("B" & Lige) = Datetr fe.Range("C" & Lige) = ListBox1.List(v, 0) fe.Range("D" & Lige) = ListBox1.List(v, 2) fe.Range("G" & Lige) = ListBox1.List(v, 3) fe.Range("E" & Lige) = ListBox1.List(v, 4) fe.Range("H" & Lige) = ListBox1.List(v, 5) fe.Range("J" & Lige) = ListBox1.List(v, 6) 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("K" & Lige) = ComboBox2 fe.Range("l" & Lige) = Format(Now, " الموافق ddd yyyy/mm/dd الساعة hh:mm:ss am/pm") Next v ElseIf Me.OptionButton2 = True Then Set fs = Sheets("Sorties") For x = 0 To ListBox1.ListCount - 1 Ligs = fs.Range("A" & Rows.Count).End(xlUp)(2).Row fs.Range("A" & Ligs) = TextBox5 fs.Range("B" & Ligs) = Datetr fs.Range("C" & Ligs) = ListBox1.List(x, 0) fs.Range("D" & Ligs) = ListBox1.List(x, 1) fs.Range("G" & Ligs) = ListBox1.List(x, 2) fs.Range("E" & Ligs) = ListBox1.List(x, 3) fs.Range("H" & Ligs) = ListBox1.List(x, 4) fs.Range("J" & Ligs) = ListBox1.List(x, 5) 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("K" & Ligs) = ComboBox2 fs.Range("l" & Ligs) = Format(Now, " الموافق ddd yyyy/mm/dd الساعة hh:mm:ss am/pm") Next x End If Me.Quantitetr = "" Me.ComboBox1 = "" MsgBox "تم حفظ الادخال بنجاح." ListBox1.Clear Unload Me UserForm3.Show End Sub sell-the-first-quantity- V9.xlsm

الف شكر ا / محمد هشام انه يعمل يوجد شئ اخر رجاء مساعدتى وهو ادراج التاريخ فى TextBox1 الخاص بمخزون الكود فأنة لايعمل عندما اقم بأختيار كود الصنف ثانيا واخيرا هل يمكن عمل ترتيب الاسماء المخازن فى sort in combobox1 وشكرا جزيلا لك sell-the-first-quantity- V6.xlsm

السلام عليكم ورحمة الله وبركاتة ا / محمد هشام يوجد شئ اخر رجاء مساعدتى فى اكماله اولا اريد ان اضيف فى الليست بوكس 2 القيمة السعرية للمنتج ثانيا اريد عند اختيار المخزن ثم اكود المنتج يظهر محتوى كود الصنف مع اسم الصنف والقيمة السعرية وهى اسم الصنف catetr السعر TextBox2 ثالثا واخيرا اريد عند اختيار مخزن معين فى ComboBox1 لايظهره فى هذا المخزن ComboBox2 وانما يظهر المخازن الاخرى فى ComboBox2 لعدم التعارض مع المخازن الاخرى وشكرا جزيلا لك sell-the-first-quantity- V4 .xlsm

أنه يعمل ولاكن وجد أن قيمة المخزون يعرضها فى Me.stocktr يعمل على اخر سطر فى الليست بوكس وليس على التاريخ الأدنى اريد ربط القيمة مع التاريخ الأدنى رجاء ممكن اضافة تانية وفى حالة إذا كانت القيمة صفر مع التاريخ الأدنى يقوم بتحويل إلى التاريخ التالى كما موضح فى الصورتين

اقصد عند الفلترا بواسطة اسم المخزن وكود الصنف كما هو موضح فى الصورة يظهر خيارين فى الليست بوكس صلاحيتين مختلفة وقيمة مخزون مختلفة لهذا المخزن وكود الصنف اريد عند الاستعلام بعد اختيار كود الصنف يظهر الرصيد تلقائى للمخزون فى خانة التكست بوكس المسمى Me.stocktr على حسب ادنى تاريخ وليس مجموع القيمة المخزونية sell-the-first-quantity- V2.xlsm

الف شكر ا/ محمد هشام على المجهود الرائع

السلام عليكم ورحمه الله وبركاته ا/محمد هشام شكرا جزيلا أنه يعمل ولاكن أردت أن تستبدل عمود٣ لانة يرمز الى قيمة المخزون وليس الرصيد المخزون أو تضيف عمود المخزون رجاء لو سمحت

لو رايت الصورة المدرجة ستجدها تعرض كل الاصناف بصلاحيتها المختلفة فى المخزن فى الليست بوكس 2 المطلوب عند اختيار كود الصنف كمثال102 يعرض فقط فى الليست بوكس2 اصناف 102 بكل صلاحيتها والكمية لصرف الاقرب صلاحية لادراجها فى الليست بوكس 1 تم اتخلص من بعض الاكواد ليتم التركيز على الاكواد المطلوبة لمعرفة المشكلة ليتسنا بعض المبرمجين التركيز على هذبن الكودين المدرجين اعلاة Copy of sell-the-first-quantity-.xlsm

السلام عليكم ورحمة الله وبركاتة رجاء مساعدتى عندما اقوم بأختيار اسم المخزن يعرض كل الاصناف والاصناف المكررة بصلاحياتها المختلفة فى الليست بوكس 2 وهى خاصة باالمخزون ولاكن عندما اقوم بأختيار كود صنف معين من المفروض ان يعرض كل الصلاحيات المختلفة بهذا الصنف والغاء كل الاصناف فى الليست بوكس2 الخاصة بهذا المخزن ولاكن لايعمل ويكتفى فقط بعرض هذا الكود وذلك لخصم الكمية المتاحة للتاريخ الاقرب مع العلم يوجد كميات اخرى لهذا الصنف هذا هو الكود المفروض يعرض مايطلبه كود الصنف فقط Me.CB_Pièce If Me.ComboBox1.ListIndex = 0 Or Me.CB_Pièce.ListIndex = 0 _ Or FlgExit = True Then Exit Sub Call Charge_ListBox ' Copy of sell-the-first-quantity-.xlsm

بارك الله فيك ا/ حسونة حسين جعل الله فى ميزان حسناتك

تفضل اخى / حسونة حسين Private Sub CommandButton2_Click() sell-the-first-quantity-the-oldest-production-expiration-date2-vnob(1).xlsm

وعليكم السلام ورحمة الله وبركاته اخى / حسونة حسين اشكرك على الرد والاهتمام لقد جربت الكود لاكنه عندما تكون الخلية صفر يقوم بحزف الخلية علما ان المخزن غير مكرر اريد ان يقوم بحذفها عندما تكون الخلية صفر فى حالة لو كان المخزن مكرر مع كود المنتج التابع لها لابد ان يتوافر لها ثلاثة شروط كود المنتج والمخزن والقيمة صفر عندما تكون مكرره اما لو كان المنتج والمخزن صفر وغير مكرر لايقوم بحزفها A - 100 مخزن - E قيمة - D

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

اقصد اسم المخزن غير مكرر فى بيانات الشيت "STOCK" اريد ان اقوم بدمجها مع الخلية 5 وهى اسم المخزن ولاكن اذا كان اسم المخزن غير مكرر فى بيانات الشيت "STOCK" فلا يقوم بالحذف وذلك يرجع عندما اقوم باختيارها من combobox1 وشكرا جزيلا كمثال انظر الصورتين A- 100 مخزن رئيسى D-149 -E A- 100 مخزن رئيسى D- 0 -E A- 100 مخزن رئيسى D- 19 -E

Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 3)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) If (Cells(J, 4).value) = 0 Then Cells(J, 4).EntireRow.Delete End If ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 3)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 3)) If (Cells(J, 4).value) = 0 Then Cells(J, 4).EntireRow.Delete End If End If End If Next J Next i End With السلام عليكم ورحمة الله وبركاتة ممكن ان تساعدونى هذا الكود يقوم بحذف الخلية 4 كاملة اذا كانت تحتوى الخلية على رقم صفر ولاكن اريد ان اقوم بدمجها مع الخلية 5 وهى اسم المخزن ولاكن اذا كان اسم المخزن غير مكرر فلا يقوم بالحذف وذلك يرجع عندما اقوم باختيارها من combobox1 وشكرا جزيلا

الرجاء مساعدتى انى عالق فى هذا الموضوع وشكرا عندما أقوم باختيار اسم المخزن وكود المنتج، أريد أن تصل رصيد المخزن التابع لها إلى أدنى تاريخ نظرا لان التواريخ مختلفة A= CB_Pièce ( 100 ) E= ComboBox1 ( magasin ) D= STOCKER ( 149 & 10 ) i = Textbox1 date (01/01/2024 & 01/05/2024 ) يجب أن يتحقق الشرط الحد الأدنى للتاريخ والمخزون للمنتج والمخزن هكذا A= CB_Pièce ( 100 ) E= ComboBox1 ( magasin ) D= STOCKER ( 10 ) i = Textbox1 date (01/01/2024 ) شرط ان اختار كود المنتج واسم المخزن CB_Pièce ( 100 ,101,102,103...... ComboBox1 ( magasin ,magasin1,magasin2,magasin,..... عندما يصل حد الطلب إلى الصفر، فإنه ينتقل إلى الكمية الثانية ويكون التاريخ التالي 01/05/2024 ارجو قد وفقت فى إيضاح طلبى

السلام عليكم ورحمة الله وبركاتة الى عمالقة vba وأهل الخبرة وتفكيك الاكواد المستعصية ارجو مساعدتى فى عمل كود عبقرى منفرد وطبيعة عمل الكود يعود الى اكثر من مرجع 1 - اسم مخزن 2 -كود صنف 3- مخزون رصيد يرجع للمخزن التابع له 4 -صلاحية الانتهاء للصنف نظرا ان كود الصنف متكرر مع المخزن التابع لها فى الشيت مع كثرة الواردات ويرجع لصلاحية انتهاء الصنف المطلوب عند اختيار اسم المخزن وكود الصنف يظهر مخزون الصنف التابع للمخزن شرط اقدم تاريخ انتهاء صلاحية لهذا الصنف وعندما يكون الحد الأدنى للمخزون صفر، فإنه ينتقل إلى التاريخ التالي بكمية المخزون الأخيرة لهذا الصنف.التابع للمخزن المطلوب تحقيقة خلاصة العمل وهى عملية بيع المخزون لاقدم تاريخ وعندما يكون حد المخزون صفر ينتقل الى الصلاحية الذى يليه للمخزن والصنف معا وشكرا جزيلا لكم انى عالق وارجو ان تساعدونى حتى استفيد من خبراتكم فى مجال vba Copy of خصم كمية مخزون المخزن (بيع)حسب صلاحية الاقدم.xlsm