Badr Al-Din MiLz

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

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

..How are you..Good evening تحية طيبة أخي الفاضل ألف ألف شكر على الإجتهاد والمتابعة وكان لك في ردك حلا لما هو مطلوب عندي وزيادة لك مني أزكى سلام دمت وفيا ناصحا أمين يا أخي العزير best wishes ..Thanks to you and your valuable help ..The code is 100% working

سلام ، لا يا أخي يكتب كود المنتج آليا تحياتي ..

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

السلام عليكم، ..تحية طيبة أما بالنسبة لكود المنتج يتم آليا عند كتابة المنتج / سعر الشراء / البيع / التنفيذ يكون آليا ..بوركت أخي وأشكر لك سعيك

سلام لا يا أخ لا أتجاهل اجابتك لأنني الكود لايعمل وأنا منهمك في كشف العيب فيه أعذرني إن نسيت ولكن لا تسئ الفهم على العموم لم أتلقى أي حل لحد الآن في حل هذه المعضلة.وتقبل اعتذاري،بالتوفيق

سلام الله عليكم حدثت لي مشكلة أنا ماني فهمها مع أني غيرت اللغة حسب مع قيل لي وبقت المشكلة أرجوا المساعدة

السلام عليكم عند الضغط على اضافة ترحيل اليانت على ورقة العمل شيت يروح ماحي : كود المنتج - سعر الشراء / سعر البيع وعدم الإنتقال الى السطر التالي وهذا هو الكود Private Sub CommandButton10_Click() If Me.txt_product.Value = "" Then MsgBox "الرجاء ادخال اسم المنتج", vbCritical Exit Sub End If If IsNumeric(Me.txt_price_pru) = False Then MsgBox "الرجاءادخال سعر شراءالمنتج", vbCritical Exit Sub End If If IsNumeric(Me.txt_price_sale) = False Then MsgBox "الرجاء ادخال سعر البيع", vbCritical Exit Sub End If Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("product_master") If Application.WorksheetFunction.CountIf(sh.Range("B:B"), Me.txt_product.Value) > 0 Then MsgBox "هذا المنتج مضاف مسبقا", vbCritical Exit Sub End If Dim lr As Integer lr = appliction.worksheetfuncion.CountA(sh.Range("A:A")) sh.Range("A" & lr + 1).Value = lr sh.Range("B" & lr + 1).Value = Me.txt_product.Value sh.Range("C" & lr + 1).Value = Me.txt_price_sale.Value sh.Range("D" & lr + 1).Value = Me.txt_price_pru.Value Me.txt_product.Value = "" Me.txt_price_sale.Value = "" Me.txt_price_pru.Value = "" MsgBox "لقد تم إضافة المنتج بنجاح", vbtnformation End Sub المحل.xlsm