عايز اعمل حقل ترقيم نلقاءي vb6
كتبت الكود ده في مفتاح جديد
Dim itm1 As New ADODB.Recordset
If itm1.State = 1 Then itm1.Close
itm1.Open "select max(imt_ctr)from itm", cn, 1, 2
If IsNull(itm1(itm_ctr)) Then
Text3.Text = 1
Else
Text3.Text = itm1(itm_ctr) + 1
End If
كل ما اضغط جديد يطلع رقم1 في الخانة اللي المفروض يكون فيها ترقيم تلقاءي
والخانة دى نوعها اوتو نمير في قاعدة البيانات
السلام عليكم
جرب الكود التالي وان شاء الله امورك تمام بس خلي حقل الترقيم في قاعدة البيانات نص وانا عملت لك ترقيم يبداء من 00001 الى 99999 وممكن تزيده
Dim rs As New ADODB.Recordset
Dim STCOUNT As String
SQLS = "SELECT itm.imt_ctr FROM itm order by imt_ctr"
If rs.State = adStateOpen Then rs.Close
rs.Open SQLS, CN, adOpenKeyset, adLockOptimistic
If rs.RecordCount <> 0 Then
rs.MoveLast
STCOUNT = rs.Fields("imt_ctr") + 1
Dim J As Integer
For J = 1 To 5 - Len(STCOUNT)
STCOUNT = "0" + STCOUNT
Next
Text1.text = STCOUNT
Else
STCOUNT = Val(STCOUNT) + 1
For J = 1 To 5 - Len(STCOUNT)
STCOUNT = "0" + STCOUNT
Text1.text = STCOUNT
Next
End Ifودعواتك لنا في هذا الشهر الكريم
والسلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة عبدالجليل العقوري في 17 أغسطس 2010 في 00:09
"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."
عمر المختار
اللهم انعم على بلادي بالأمن والأمان
السلام عليكم
أخوي عبدالجليل جزاك الله كل خير
ممكن ترفق مثال للكود لكي تتضح الفكره
آسف لو حتعبك معاي
لكن صدقني تعبت وانا احاول بالترقيم عن طريق الكود ولم تنجح جميع محاولاتي
بإنتظارك عزيزي :)
السلام عليكم
هذا هو كود الترقيم التلقائي وتوجد ملاحظات كثيره حول الترقيم التلقائي يجب ان تكون بالحسبان اتمنى ان تحاول وتجرب ثم تسئل لتعيش المشكلة وتجرب طعم حلاوه الحل
وبالتوفيق ان شاء الله
"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."
عمر المختار
اللهم انعم على بلادي بالأمن والأمان
جزاك الله كل خير أخوي
تم تحميل المثال :)
وجاري التجربة :)
لا عدمتك أخوي :)