olá amigos, procurei em vários fóruns alguns exemplos de botoes de navegação de registros com banco de dados em access, preciso apenas disto pra fechar um aplicação que estou fazendo, gostaria de saber como faço pra ir avançando de registro
em registro clickando em um botão, pois o meu código vai pro ultimo registro.
Dim conn As ADODB.Connection
Dim insertstring, drop, nome, rg As String
Dim cod As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
With conn
Let .Provider = "Microsoft.Jet.OLEDB.12.0;"
Let .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & caminho_banco & "Persist Security Info=False"
End With
conn.Open
insertstring = "SELECT * FROM controle_chamada"
Set rs = conn.Execute(insertstring)
If rs.RecordCount < 0 Then
Do While Not rs.EOF
nome = rs.Fields("nome")
rg = rs.Fields("rg")
cod = rs.Fields("Código")
rs.MoveNext
Loop
End If
conn.Close