[RESOLVED] Auto Increment value to textbox in ms access 2003, vs 2008

Hello !!

I have a form and some controls as dropdown and textboxes..

The situation is that when the form loads, i want the value in textbox to be incremented, everytime it loads..

This is something i tried.. I get the value '1' everytime !! It shows no sign of increment..

However, i also want it in the format 0001,0002 if possible.. Could anybody please help me out ?? I tried something like this..

Code:

---

Private Sub Order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        textBox1.ReadOnly = True

        Try
            'MsgBox("Open")
            cn = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data Source=E:\Project-Hemtech\HemDatabase1.mdb;")
            cn.Open()
            Message = "Select max(regnum) from order"
            cmd = New OleDbCommand(Message, cn)
            str = cmd.ExecuteScalar()


        Catch myException As Exception

            MsgBox("No Record Inserted" + myException.ToString())

        Finally
            'MsgBox("Closing Connection")

            cn.Close()
        End Try

        If str Is DBNull.Value Then
            Dim intregnum As Integer = Convert.ToInt32(str)
            str = 1
        Else
            str = str + 1
        End If

        textBox1.Text = str

    End Sub

---

Try it like this:

vb Code:

'....
        End Try
 
        If str Is DBNull.Value Then
            textBox1.Text = "1"           
        Else
            textBox1.Text = (Convert.ToInt32(str) + 1).toString
        End If
 
    End Sub

:wave:

I tried.. no effect !! infact, i also inserted some random values in my database, to check and verify.. Still, this code gives me value '1' only in the textbox.. :(

Please help !!

Thank You.. :)

Hey.. There was some issue with my query.. This code you suggested works.. I am posting here again for other readers..

Thank you for your help !! :)

1 Code:

Private Sub Order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        textBox1.ReadOnly = True
 
        Try
            'MsgBox("Open")
            cn = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data Source=E:\Project-Hemtech\HemDatabase1.mdb;")
            cn.Open()
            msg = "Select max(regnum) from [order]"
            cmd = New OleDbCommand(msg, cn)
            str = cmd.ExecuteScalar()
 
        Catch myException As Exception
 
            MsgBox("No Record Inserted" + myException.ToString())
 
        Finally
            'MsgBox("Closing Connection")
 
            cn.Close()
        End Try
 
        If str Is DBNull.Value Then
            textBox1.Text = "1"
        Else
            textBox1.Text = (Convert.ToInt32(str) + 1).ToString
        End If

Glad to hear that your issue is resolved. :)

You could now mark your thread as RESOLVED from the Thread Tools.

:wave: