كيف اعمل خانة تقوم بترقيم تلقائي

كل ما عليك هوا ان تأخذ اكبر قيمة في الجدول وتضيف عليها واحد كما يلي :

Dim Sql As String 
Sql = "SELECT MAX(ID) FROM emp"
RS.Open Sql ,conn
Dim Auto_Inc = IIF(ISNULL(rs.feild(0)) 1, rs(0) +1)

text1.text = Auto_Inc

جرب فقد كتبته مباشرة .

ايضا يمكن ان تجعل حقل الرقم في قاعدة اكسس ترقيم تلقائي

ممكن شرح للكود علشان نفهمه صح او تبسيطه

الكود السابق واضح ولكن فيه تعديل بسيط . حيث اني متود على vb.net

ليصبح الكود

Dim Sql As String 

Sql = "SELECT MAX(ID) FROM emp"
RS.Open Sql ,conn
Dim Auto_Inc as Integer

Auto_Inc = IIF(ISNULL(rs.feild(0)) 1, rs(0) +1)

text1.text = Auto_Inc

الكود

مبسط

Dim Sql As String 

Sql = "SELECT MAX(ID) FROM emp"
RS.Open Sql ,conn
Dim Auto_Inc as Integer

Auto_Inc =  rs(0) +1

text1.text = Auto_Inc

يعني خذ اكبر قيمة من السجل في قاعدة البيانات . ثم نفض الإستعلام , والناتج بيكون في rs

بعد ذلك قم بزيادة الناتج الي في rs بمقدار واحد بس.

اعتقد ان الكود واضح . قم فقط بتنفيذ الكود واتباع اللزم من أوامر قواعد البيانات . وإذا ما فهمت قم بعمل ترقيم تلقائي من الأكسس افضل وريح راسك .

لقد قمت بعمل ترقيم تلقائي في الأكسس ولكن لم يظهر في التكست

تفضل اخي هذا الكود

Public Sub AutoNo()

Dim rsk As New ADODB.Recordset

rsk.Open "select max(code) from bank", db, adOpenStatic, adLockPessimistic

If IsNull(rs(0)) = False Then

text1 = Format(rs(0) + 1)

Else

text1 = "1"

End If

rsk.Close

Set rsk = Nothing

End Sub

اخى اضف زر فى الفورم وفى حدث

Private Sub cmdadd_Click()

AutoNo

End sub

تعديل فى الكود لوجود خطأ

Public Sub AutoNo()
Dim rsk As New ADODB.Recordset

rsk.Open "select max(code) from bank", db, adOpenStatic, adLockPessimistic
If IsNull(rsk(0)) = False Then
text1 = Format(rsk(0) + 1)
Else
text1 = "1"
End If
rsk.Close
Set rsk = Nothing
End Sub