mahmoud nasr alhasany

مثل هذه

عند كل امر طباعة بعد الاستعلام يقوم بحذف التنسيقات ولاكن اريد تنسيقات ليست مسطرة فقط ولاكن بشكل متقدم ورائع

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

Private Sub Image1_Click() Sheet5.Select Cells.Select Sheet5.Range("a1:h3999").ClearContents Selection.Clear Range("A1").Select Application.ScreenUpdating = False Sheet5.Cells(1, 1) = " من تاريخ " Sheet5.Cells(1, 2) = Me.TextBox1 Sheet5.Cells(2, 1) = " الى تاريخ " Sheet5.Cells(2, 2) = Me.TextBox2 Sheet5.Cells(1, 4) = "اسم المخزن" Sheet5.Cells(1, 5) = ComboBox1 Sheet5.Cells(2, 4) = "اسم الصنف" Sheet5.Cells(2, 5) = ComboBox2 Sheet5.Cells(1, 6) = " رصيداول مدة " Sheet5.Cells(2, 6) = TextBox3 Sheet5.Cells(3, 1) = "رقم المستند" Sheet5.Cells(3, 2) = "التاريخ" Sheet5.Cells(3, 3) = "نوع الحركة" Sheet5.Cells(3, 4) = "اسم المخزن" Sheet5.Cells(3, 5) = "اسم الصنف" Sheet5.Cells(3, 6) = "شراء" Sheet5.Cells(3, 7) = "بيع" Sheet5.Cells(3, 8) = "الرصيد" a = Sheet5.Range("d500").End(xlUp).Row For I = 0 To Me.ListBox1.ListCount - 1 For x = 0 To 7 Sheet5.Cells(I + 4, x + 1) = Me.ListBox1.List(I, x) Next x Next I Unload Me Sheet5.PrintPreview Sheet5.Select End Sub مساعدة فى تنسيق ورقة العمل sheet5 بحيث تكون منسقة فى الطباعة فعند الاستعلام بأسم المخزن واسم الصنف بين تاريخين مع استخدام امر بحث من option تكون ورقة الطباعة بشكل مسطر ومنسق كرت الصنف 2024.xlsm

هو برنامج محاسبى مجانى مفتوح المصدر عند كتابة اليوزرنيم يقوم بالاغلاق مع العلم ان اسم الادمن admin والباسورد 123 الرجاء مساعدتى فى ايجاد المشكله التى يتعرض لها البرنامج EASY_SALE.zip

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

احسنت ا/ حسونة حسين بارك الله فيك

ممتاذ احسنت استاذ / محمد هشام

احسنت ا/ محمد هشام

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

فاتورة خبوريه من اعمال السيد/ ضاحى غريب والسيد / عبدلله باقشير

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

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

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

هذا هو الملف نوع السعر على حسب كود الصنف بيانات فاتورة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