تحديث كميه المخزون

[mahmoud nasr alhasany]

مساء الخير

 من فضلكم ساعدوني

 لدي مربع قائمة يحتوي على كود الصنف والكمية بالإضافة إلى اسم المخزن الخاص به

 عند إرسال الكمية من مربع القائمة إلى ورقة المخزون، يتم تحديث كمية العنصر الموجود في المخزن

مع العلم 

كود الصنف A2

اسم الصنف B2

كميه المخزون C2

اسم المخزن D2

 هل هناك أي كود يلبي متطلبات المشروع الرجاء مساعدتي؟

مع إعطاء فورم بذلك

تم تعديل أبريل 21, 2024 بواسطه mahmoud nasr alhasany

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته وبها نبدأ

هل هو نفس الطلب بهذا الرابط ام لا 

لو لم يكن نفس الطلب يرجي رفع ملف بسيط موضحا فيه ما تريد

[mahmoud nasr alhasany]

وعليكم السلام ورحمة الله وبركاتة

وقد ساعدني بعض الإخوة في تعبئة هذا العمل
ولكن هناك مشكلة في ذلك
لا يتم خصم كمية المنتج الفرعي من المتجر
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

تم تعديل أبريل 24, 2024 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

الحمدلله والصلاه والسلام على رسول الله 

الحمدلله الذي تتم بنعمته الصالحات 

يقول رسول الله صلى الله عليه

يأمرنا  إذابالاستعانة بالصبر والصلاة في أمور الدنيا والدين، وكان النبي ﷺ إذا حزبه شيء فزع إلى الصلاة، فالصلاة من أعظم الأسباب على تيسير الأمور، وحل المشاكل 

والحمدلله صليه الفجر وربنا الهم للاجابه على هذا السؤال وتصفحت المواقع اذا لقيت بعض من المساعدات  لكنها لاتفى بالمطلوب ولاكن كان لابد أن أعمل  بها بعض التنقيحات على حسب احتياجاتى و ما أريده والمطلوب عليها فى ملفى

والحمدلله تم بفضله

وسأقوم برفع الملف عندما انتهى منه

للاستفادة بها 

وشكرا على القائمين على هذا المنتدى وانى اعزرهم لعدم وجود وقت يسمح للاجابه على اسألتى 

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

وشكرا لتفهمكم الامر

 

تم تعديل أبريل 27, 2024 بواسطه mahmoud nasr alhasany

[حسونة حسين]

الحمد لله الذي وفقك لما تريد اخى @mahmoud nasr alhasany

ولا داعى ابدا للاعتذار

فكلنا هنا من اجل هدف واحد

وهو مساعده اخواننا

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته وبها نبدأ

جرب هذا التعديل اخى @mahmoud nasr alhasany

 

Gestion Stocks Magasin1.xlsm

[mahmoud nasr alhasany]

احسنت ا/ حسونة حسين

أنه يعمل 

شكرا جزيلا على هذا المجهود الرائع

 

[الخطيب بيبوو]

لايعمل 

[حسونة حسين]

ما هو الذي لا يعمل اخي

هل تعلم كيف يتم العمل علي هذا الملف

تختار شيك بوكس اما

Entree

او 

Sortie

ثم تكتب البيانات التي تريدها

ثم تضغط علي ذر

Ver la liste

ثم تضغط علي الزر

Valider

 

[mahmoud nasr alhasany]

السلام عليكم ورحمة الله وبركاتة

انه يعمل حقا ولاكن عندما تختار

شيك بوكس اما

Entree

او 

Sortie

ثم تكتب البيانات التي تريدها

ثم تضغط علي ذر

Ver la liste

يجب تحدد على اى بيانات select DATA in listbox

ثم تضغط علي الزر

Valider

لقد ارفقت تحديث ملف ضفيف لحين الانتهاء منه

 

 

Gestion Stocks Magasin1(1).xlsm

تم تعديل مايو 3, 2024 بواسطه mahmoud nasr alhasany