+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعده في عمل ترقيم تلقائي لفاتورة مبيعات (/showthread.php?tid=7798)
مساعده في عمل ترقيم تلقائي لفاتورة مبيعات - علوش - 02-03-13
نرجو من الاخوة المساعدة في عمل ترقيم تلقائي لفاتورة مبيعات
مساعده في عمل ترقيم تلقائي لفاتورة مبيعات - تركي الحلواني - 02-03-13
ارفق المثال ليتم التعديل عليه
مساعده في عمل ترقيم تلقائي لفاتورة مبيعات - ولد رائع - 03-03-13
[color=#008000 كتب :تركي الحلواني[/color]][SIZE=5]ارفق المثال ليتم التعديل عليه
مثل ماقال استاذي تركي الحلوني
[/SIZE]
مساعده في عمل ترقيم تلقائي لفاتورة مبيعات - kady - 07-03-13
حضرتك جربى الكود ده
اول حاجة ها تعملى ها تكتبى الكود ده فى الموديول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 حضرتك ها تغيره على حسب انت مسمياه ايه فى الجدول وده خاص برقم الفاتورة