تعديل على رصيد المخزن

[mohamed.youssef]

السلام عليكم

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

77.xlsm

[أبوأحـمـد]

تفضل

77.xlsm

[mohamedyousef]

الاخوة الافاضل 

منذ فترة قصيرة ارسلت ملف وكنت احتاج ان تظهر رسالة تحذير بانه لايوجد رصيد كافي في المخزن وقد قام احد الاعضاء الافاضل بمساعدتي ولكن احتاج الى تعديل بسيط على كود الرسالة بانه اذا اضفت مثلا صنف جديد باذن اضافة ولا يوجد به رصيد افتتاحي كما هو موضح في الملف كود 157 فانه لايوجد به رصيد افتتاحي فعند تسجيل اذن صرف تظهر انه لايوجد رصيد في المخزن فاريد ان تظهر الرسالة بناء القيمة الموجودة على الاعمدة R,S,T والمعروفة برصيد اخر المدة في صفحة التكويد حتى ولو لايوجد رصيد افتتاحي

وشكرا 

test2.xlsm

[mohamedyousef]

السادة الاعزاء

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

مع الشكر

811.xlsm

[mohamedyousef]

السلام عليكم 

السادة الكرام 

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

وشكرا على المساعدة

مخزن.xlsm

[حسونة حسين]

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

جرب هذا التعديل اخي @mohamed.youssef

جرب هذا التعديل اخى @mohamedyousef

ويرجي اخي عدم تكرار المواضيع 

تم حذف جميع المواضيع المكرره 

اخي ان استبطأت الرد من اخوتك يكفي ان تكتب مشاركه في نفس الموضوع مثلا

للرفع او توضح شيئا ممكن ان يكون غامض 

تم تعديل فورم ١

١- تم اضافه كومبوكس تختار منه 

اضافة او صرف او ارتجاع

٢- تم حذف التيكست بوكس الخاصه بتسجيل الصرف والارتجاع وزر الامر الخاص بهم

والابقاء على التيكست بوكس الخاص ب الاضافه

٣- ووضع زر لتسجيل كل الحركات سواء كان اضافه او صرف او ارتجاع

كل ما عليك ان تختار من الكومبوكس ما تريد سواء

اضافة او صرف او ارتجاع

والضغط علي زر تسجيل الكل

واخبرنى بالنتائج هل صحيحه ام لا 

شكلي كده طولت عليك 

تفضل الملف في المرفقات

تعديل بسيط.xlsm

[mohamed.youssef]

السلام عليكم اخي الفاضل

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

[احمد عبدالحليم]

اذا كنت تقصد فورم 5 الخاص بتنيه ان الرصيد اقل من 100 فهو يعمل ويعرض كود الصنف الذى رصيده اقل من 100 واخر كود صنف اقل من 100 هو 705

[mohamed.youssef]

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

تعديل بسيط.xlsm

[احمد عبدالحليم]

قم باذالة الشرط 
Private Sub CommandButton1_Click()
    Dim m As Long
    Dim s As Long
    m = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
    For s = 2 To m
        If Sheet1.Cells(s, 19).Value < Sheet1.Range("x1").Value Then
            ListBox1.AddItem Sheet1.Cells(s, 1).Value
            ListBox1.list(ListBox1.ListCount - 1, 1) = Sheet1.Cells(s, 5).Value
        End If
    Next s
End Sub
ليصبح هكذا 
 Private Sub CommandButton1_Click()
    Dim m As Long
    Dim s As Long
    m = Sheet1.Range("a" & Rows.Count).End(xlUp).Row
    For s = 2 To m
            ListBox1.AddItem Sheet1.Cells(s, 1).Value
            ListBox1.list(ListBox1.ListCount - 1, 1) = Sheet1.Cells(s, 5).Value
    Next s
End Sub

قم بازالة الشرط if 

تعديل بسيط.xlsm

تم تعديل أغسطس 21, 2023 بواسطه احمد عبدالحليم

[mohamed.youssef]

تمام  بارك الله فيك اخي الكريم الف شكر

[mohamed.youssef]

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

[احمد عبدالحليم]

من الافضل عند الطباعة عرض معاينه الطباعة بدل من عرض خيارات الطباعة كما فى الاكواد الخاصة بك (رأي شخصى )

 

[mohamed.youssef]

لكن عند الضغط على امر الطباعة تكون عدد الصفحات اكثر لان حجم الورقة يكون بالطول وانا احتاجها باعرض فهل بدلا من اختيار نوع الورقة يكون اتوماتيك بداخل الكود ممكن حضرتك تلاحظها عند فتح الملف والضغط على امر الطباعة

اسف على الاطالة