02-03-13, 03:09 AM
02-03-13, 10:08 AM
ارفق المثال ليتم التعديل عليه
03-03-13, 03:06 AM
[color=#008000 كتب :تركي الحلواني[/color]][SIZE=5]ارفق المثال ليتم التعديل عليه
مثل ماقال استاذي تركي الحلوني
[/SIZE]
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 حضرتك ها تغيره على حسب انت مسمياه ايه فى الجدول وده خاص برقم الفاتورة