الاضافة للمخزون

[نزار سليمان عيد]

اخي تامر

الرجاء المساعدة في عمل كود حسب الملف المرفق علما بان المطلوب موجود بالمرفق

ولك الشكر مقدما ولكل من يساهم

_______.zip

[علي السحيب]

لا يوجد أي شرح للمطلوب داخل المرفق،

[omar elhosseini]

بسم الله الرحمن الرحيم

استاذانا الفاضل علي السحيب

بعد التحية

توضيح المرفق من مشاركة سابقة كالاتى

تحياتى لك

عندي سؤال في الاضافة والاستبعاد للمخزون وهو كالتالي

لو عندي عدة اصناف مثلا A B C D ....

ويوجد كميات من كل صنف كالتالي

A = 10

B = 20

C = 30

D = 40

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

ولك خالص تحياتي والبقاء لله

[علي السحيب]

أولاً نأسف على التأخير،

الكود التالي ينفذ ما تريد:

Private Sub CommandButton1_Click()

Dim Itm As String
Dim FndItm As Range

If TextBox1 = "" Or TextBox2 = "" Then MsgBox "You have to fill out all fields", vbExclamation, "Blank Fields"
TextBox1.SetFocus
With Columns(1)
Set FndItm = .Find(TextBox1)
End With
If Not FndItm Is Nothing Then
FndItm.Offset(0, 1).Select
[IV1] = Selection
Selection = [IV1] + TextBox2
[IV1].ClearContents
Unload Me
Else
Cells(Application.WorksheetFunction.CountA([A1:A65536]) + 1, 1) = TextBox1
Cells(Application.WorksheetFunction.CountA([B1:B65536]) + 1, 2) = TextBox2
Unload Me
End If

End Sub

_______.rar

[الجزيرة]

تشكر يا أبو حسين

أشهد الله أننا أستفدنا منك الكثير الكثير

بارك الله فيك :)

[نزار سليمان عيد]

الشكر الجزيل لك يا ابا حسين

ولكن ممكن نعدل على الكود بحيث

عند الاضافة يضيف وعند الاستبعاد يستبعد

اي في حالة المشتريات يضيف

وفي حالة المبيعات يخصم

مع اظهار رسالة هل العملية بيع ام شراء

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

[علي السحيب]

في هذه الحالة يصبح الكود كالتالي:

Private Sub CommandButton1_Click()

On Error GoTo Ali
Dim Itm As String
Dim FndItm As Range

If TextBox1 = "" Or TextBox2 = "" Then MsgBox "You have to fill out all fields", vbExclamation, "Blank Fields"
If OptionButton1 = False And OptionButton2 = False Then MsgBox "You have to choose the type of the activity", vbExclamation, "Activity Type"

TextBox1.SetFocus
With Columns(1)
Set FndItm = .Find(TextBox1)
End With
If Not FndItm Is Nothing Then
FndItm.Offset(0, 1).Select
[IV1] = Selection
Selection = [IV1] - TextBox2
    
If OptionButton1 Then Selection = [IV1] + TextBox2
If OptionButton2 Then Selection = [IV1] - TextBox2

[IV1].ClearContents
Unload Me

Else
Cells(Application.WorksheetFunction.CountA([A1:A65536]) + 1, 1) = TextBox1
Cells(Application.WorksheetFunction.CountA([B1:B65536]) + 1, 2) = TextBox2
Unload Me
End If

Ali:
If Err <> 0 Then End

End Sub

_______.rar

تم تعديل سبتمبر 19, 2006 بواسطه علي السحيب

[نزار سليمان عيد]

الاخ ابا حسين

بارك الله فيك وفي علمك ومالك وولدك وزوجك

فعلا وفوق كل ذي علم عليم

انا عاجز عن الشكر مهما كتبت يااخي

[علي السحيب]

حاضرين،

[نزار سليمان عيد]

الاخ ابا حسين

اريد تعديل بسيط على هذا الاجراء

1- في حالة اختياري للبيع وكتبت كمية اكبر من الموجود يعطيني رسالة المخزون غير كافي

2- اذا امكن عمل ثلاثة ازرار او اكثر لامكانية عمل مايلي

العمود A كما هو اسم الصنف

العمود B مخزون اول الفترة

العمود C الكمية المشتراه

العمود D الكمية المباعة

العمود E عبارة عن (B+C-D) وهو صافي المخزون

في حالة اريد بداية جديدة يكون هناك زرلنقل قيم العمود E الى العمود العمود B ومسح محتويات العمودين C و D مع بقاء المعادلة في العمود E .

3- العمود F يكون للتاريخ ويكون ادخاله من ضمن Userform

ولك الشكر اولا وآخرا بعد الله

[نزار سليمان عيد]

الاخ ابا حسين

كل عام وانت بخير ربنا يتقبل منا ومنكم صيامنا وقيامنا وان نخرج من هذا الشهر الكريم

وقد نلنا المكرمات الثلاثة

1- الرحمة

2- المغفرة

3- عتق من النار

آمين يارب العالمين

هل من جديد للتعديل الاخير

ولك جزيل الشكر

[علي السحيب]

طلبك يستدعي بعض الوقت .. وأنا مشغول هذه الأيام .. أنتظر ردي قريباً،

[نزار سليمان عيد]

الاخ ابا حسين

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

اخي ابا حسين هل من جديد لهذا الطلب؟

شاكرا لك تعاونك