07-03-13, 07:38 PM
حضرتك جربى الكود ده
اول حاجة ها تعملى ها تكتبى الكود ده فى الموديول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 حضرتك ها تغيره على حسب انت مسمياه ايه فى الجدول وده خاص برقم الفاتورة
اول حاجة ها تعملى ها تكتبى الكود ده فى الموديول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 حضرتك ها تغيره على حسب انت مسمياه ايه فى الجدول وده خاص برقم الفاتورة
