mahmoud nasr alhasany

احسنت وبارك الله فيك ا/ محمد هشام

احسنت ا/محمد هشام هذا هو المطلوب بارك الله فيك

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

هذا هو الملف نوع السعر على حسب كود الصنف بيانات فاتورة2.xlsm

الف شكر استاذنا محمد هشام عزرا أننى لم اقم بتوضيح السؤال الثانى جيدا أما بخصوص Combobox 10 فهو خاص بقائمة الاسعار كسبيل المثال القائمة الافقى وهى السعر سعر الشراء سعر البيع سعر كبار عملاء سعر التجزئه تكون بياناتها فى Combobox 10 وعند اختيار كل بيان من Combobox 10 بما ذكرته بما يقابلها من سعر على حسب كود الصنف مثال Combobox 10 اختيار سعر الشراء من القائمة ثم كود الصنف وهو 101 السعر بمايقابلها فى Textbox7 105 وهكذا فى مع باقى البيانات مثل كبار عملاء . جمله .تجزئه

شكرا استاذنا محمد هشام على المجهود الرائع لقد استفدت منك كثيرا بالنسبه للسؤال الثاني وهو ربط كود السعر بكود الصنف واظهار السعر في تكس بوكس ٧ مع العلم كود السعر في كومبو بوكس 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