[Resolvido]botão próximo registro

Boa tarde pessoal,

estou apanhanod de um código

carrego o valores de uma tabela no form usando esses comandos:

Private Sub botao_Click()
Dim conexao As Recordset
Set conexao = CurrentDb.OpenRecordset("SELECT nome, endereço FROM tabela")
txt_nome = conexao!nome
txt_endereço = conexao!endereço

e criei um botão próximo que funciona mas só para um registro, quero saber como fazer para fazer ele ir para outros registros segue o meu código


Private Sub proximo_Click()

Dim conexao As Recordset
Set conexao = CurrentDb.OpenRecordset("SELECT nome, endereço FROM tabela")
conexao.MoveNext
txt_nome = conexao!nome
txt_endereço = conexao!endereço


desde já agradeço a atenção e apoio.

Podes carregar uma combo com os dados ID e Nome...

Carregue o RowSource por uma instrução SQL

e utilize a combo para ao navgar por ela ir de registro em registro.

veja este tópico:

http://maximoaccess.forumeiros.com/t3039-navegando-em-registros-utilizando-recordset-atraves-da-combo-usando-o-teclado?highlight=navegando

Cumprimentos.

olá,

obrigado pela resposta mas a combo não serve porque são muitos campos que tenho que mostar na tela. preciso mesmo é de fazer aparecer nas caixas de texto.


Fico no aguardo de encontrar ajuda com os colegas de curso para fazer ó código funcionar.

'Declare as variáveis
Option Compare Database
Private cn As ADODB.Connection
Private rs As ADODB.Recordset

No evento Ao carregar

Private Sub Form_Load()
On Error Resume Next
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM Clientes"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With

Set Me.Recordset = rs

Me.txt_nome = rs!nome
Me.txt_endereço = rs!endereço

End Sub

Private Sub btProximo_Click()
On Error Resume Next
Me.Recordset.MoveNext
Me.txt_nome = rs!nome
Me.txt_endereço = rs!endereço
End Sub

Obrigado pela ajuda topbr,

ele está mudando de registro mas está ficando com os campos em branco.

ao mandar debugar as linhas

e.txt_nome = rs!nome
Me.txt_endereço = rs!endereço

no form load com o mouse sobre a linha aparece a mensagem:

"o mecanismo de banco de dados do microsoft access não pode locali"

você sabe me dizer o que pode ser isso?

aguardo por mais essa ajuda.

Se puder postar o banco eu vejo para você.

Um pequeno exemplo.

Obrigado pelo exemplo,

Ele também não funcionou, mas aí eu descobri o motivo, preciso que funcione em access 2007, instalei o 2010 e funciona legal. Você sabe dizer como fazer funcionar em access 2007?

Roberto

Uso o A 2007 e o exemplo está funcionando legal aqui.

Como você instalou o A2010 e provavelmente desinstalou o A2007, reinstale o A2007 e teste novamente.

Abraços

Verifique as referencias.

É você tem razão, eu testei em outro micro com access 2007 e funcionou, desinstalei e instalei o 2007 e nada, acho que deve ter dado problema em algum arquivo interno do access, acho que vou ter que formatar .

resolvi as macros estavam desabilitadas.

Muito obrigado pela ajuda.

Ótimo que tenha resolvido

Agradecemos o retorno.

Boa sorte!