Help with looping

[Clant1]

im trying to get a form to let me change the record im looking at though a text box. This hasnt worked any of the ways ive tried yet but im not the best at vb. my idea was to make a button that returns you to the first value then sends you to the next record X ammount of times. So far i have

Private Sub Command8_Click()
 
Dim rec As Integer
Dim count As Integer
count = 0
rec = Text12
    DoCmd.GoToRecord , , acFirst
 
Exit_Command9_Click:
    Exit Sub
 
Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click
 
 Do Until count = rec
    count = count + 1
    DoCmd.GoToRecord , , acNext
 Loop
End Sub

[debasisdas]

are you retriving data from database ?

[Clant1]

are you retriving data from database ?

yes. all im trying to do is make it change the record im looking at. so i thought if it looped the look at next record command it should do that

[jamesd0142]

If your using a database, and you load a single record into a textbox, when you change the value in the textbox you will need to run some script in sql to update the record...

Such as (example only)

before this works you should store the id of the record in a variable on loading into the textbox.

update tablename
set fieldname = 'textbox.text' where id = 'IDvariable'
 

[jamesd0142]

Here's an example in vb.net

Imports System.Data.OleDb
 
public Class Form1
 
    '---Database Declarations
    Dim Cmd As OleDb.OleDbCommand
    Dim Con As OleDb.OleDbConnection
    Dim Sql As String = Nothing
    Dim Reader As OleDb.OleDbDataReader
    Dim ComboRow As Integer = -1
    Dim Columns As Integer = 0
    Dim Category As String = Nothing
    Dim da As System.Data.OleDb.OleDbDataAdapter
    Dim oDS2 As New System.Data.DataSet
    Dim ID As String = 1
    '---Database Declarations End
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtDisplay.Clear()
        oDS2.Clear()
 
        Dim value As String = Nothing
 
        Sql = "select * from Change where [IDVal] = " & "'" & ID & "'"
        Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\james.durbin\My Documents\reminder.mdb")
 
        Con.Close()
        Cmd = New OleDb.OleDbCommand(Sql, Con)
        Try
            Con.Open()
            da = New OleDbDataAdapter(Sql, Con)
            da.Fill(oDS2, "change")
            If oDS2.Tables("change").Rows.Count = 1 Then
                txtDisplay.Text = oDS2.Tables("change").Rows(0)("Value")
            End If
        Catch
 
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            'Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Users\Users.mdb"
            Dim oConn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\james.durbin\My Documents\reminder.mdb")
            oConn.Close()
            Dim con As New System.Data.OleDb.OleDbCommand
            con.Connection = oConn
            con.CommandType = CommandType.Text
            con.CommandText = "update change set [Value] = " & "'" & txtDisplay.Text & "'" & " where [IDVal] = " & "'" & ID & "'"
            oConn.Open()
            'display no of rows affected
            con.ExecuteNonQuery()
        Catch
        End Try
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtID.TextChanged
        ID = txtID.Text
    End Sub
End Class
 
 

my form had 2 textbox's
txtId
txtDisplay

2 buttons
button1
button2

im using an access Database

James

[Killer42]

im trying to get a form to let me change ...

If you carefully read through the code you posted in message #1, there is no way it can possibly reach the Do loop. Consider line 10 and (assuming there's an On Error Goto that we can't see) line 14. Both of which return control to somewhere else.

By the way, I recommend changing the variable name count. Notice it's shown in a different colour to rec, when formatted here on TheScripts? I think that's because it's a reserved word in VB.

[Clant1]

If you carefully read through the code you posted in message #1, there is no way it can possibly reach the Do loop. Consider line 10 and (assuming there's an On Error Goto that we can't see) line 14. Both of which return control to somewhere else.

By the way, I recommend changing the variable name count. Notice it's shown in a different colour to rec, when formatted here on TheScripts? I think that's because it's a reserved word in VB.

tried what you said first and ended up with

Private Sub Command8_Click()
 
Dim rec As Integer
Dim cnt As Integer
Dim i As Integer
cnt = 0
rec = Text12
    DoCmd.GoToRecord , , acFirst
 
 Do Until cnt = rec
    cnt = cnt + 1
    DoCmd.GoToRecord , , acNext
 
 Loop
End Sub

which worked. out of interest i did try the others and they worked as well thanks alot guys

[Killer42]

Glad we could help. :)