المشاركات : 89
المواضيع 1
الإنتساب : Feb 2013
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
نرجو من الاخوة المساعدة في عمل ترقيم تلقائي لفاتورة مبيعات
المشاركات : 462
المواضيع 2
الإنتساب : Sep 2013
السمعة :
14
الشكر: 95
تم شكره 488 مرات في 207 مشاركات
ارفق المثال ليتم التعديل عليه
المشاركات : 5
المواضيع 0
الإنتساب : Mar 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
حضرتك جربى الكود ده
اول حاجة ها تعملى ها تكتبى الكود ده فى الموديولGlobal ar_m As New ADODB.Recordset
وبعدين تحت كمومند جديد ها تكتبى الكود ده If ar_m.State = 1 Then ar_m.Close
ar_m.Open "select max (sal_inv)from sal", cn, 1, 2
If IsNull(ar_m(0)) Then
Text13.Text = 1
Else
Text13.Text = ar_m(0) + 1
بالنسبة sal_inv حضرتك ها تغيره على حسب انت مسمياه ايه فى الجدول وده خاص برقم الفاتورة