حركة كود فاتورة

mahmoud nasr alhasany · ديسمبر 24, 2023

ThisWorkbook.Activate
Dim old_name, new_name
old_name = Me.ComboBox1.Value
new_name = Me.TextBox1.Value
fda = ww.CountIf(Sheet2.Range("b2:b2000"), old_name)
If fda <= 0 Then: MsgBox "  هذا الاسم غير موجود فى قاعدة البيانات الخاص بهذا الفاتورة رجاء ادخال مسلسل رقم 1  " _
, mhmd, "ali ": Exit Sub

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

وكل حركة فاتورة لها كود سريل مخصص على حسب نوع الفاتورة ولاكن فى قاعدة البيانات لايوجد حركة فاتورة صادر فعندما اريد ان ابتدى باول حركة يضيف سريال كود الحركة برقم ( 1 ) بعد الرسالة المستعلمة msgbox

Copy of مسلسل فاتورة على حسب نوع الفاتورة.xlsm