Codificação para Botão próximo registro.

Sou iniciante no VBA ACCESS e ao codificar um Botão próximo registro, no qual objetivo que ao clica-lo, este venha transferir os dados do próximo registro subsequentes aos que constavam anteriormente nas caixas de texto (variáveis minúsculas) de um formulário chamado FrmItens. Estou a semanas tentando varias maneiras e acontecem até mesmo situações em que nem mesmo erro é acusado, conforme o código abaixo. Parece-me que o uso do rs.moveNext não movimenta corretamente dentro do recordset (a partir da tabela Tb01RPAItens). Coloquei uma caixa de texto para observação dessa movimentação, através do rs.AbsolutePosition e percebi que de qualquer posição vai para o segundo registro somente ou quando particularizo o registro (no caso referência, usando: WHERE NRPA='" & Me.nrpa & "', complementando a variável PQ), vai a -1. Consegui executar todos os botões, de pesquisa, inserção de registros, alteração, etc, porém esse botão próximo registro, e seu oposto de registro anterior não consigo. Sendo assim solicito a ajuda de vocês, pois é algo que meu nível de conhecimento não esta alcançando.

Private Sub CmbProximoRegistro_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim PQ As String
Dim Msg As String


Set db = CurrentDb

PQ = "SELECT NRPA, SAT, DESCSERV, TIPSERV, TIPDOC, NDOC, PRODSERV, QTDM, CONTPROD," _
& " DATINSERV, LOCASERV, EMPR, CNPJ, DATARPA From Tb01RPAItens"

Set rs = db.OpenRecordset(PQ, dbReadOnly)


If rs.EOF = True Then

MsgBox "Atenção; Último Registro!", , "Atenção!"
rs.MoveLast

Else

rs.MoveNext
Texto0 = rs.AbsolutePosition

If Not rs.EOF Then

Me.nrpa.Value = rs.Fields("NRPA")
Me.sat.Value = rs.Fields("SAT").Value
Me.descserv = rs.Fields("DESCSERV")
Me.tipserv = rs.Fields("TIPSERV")
Me.tipdoc = rs.Fields("TIPDOC")
Me.ndoc = rs.Fields("NDOC")
Me.prodserv = rs.Fields("PRODSERV")
Me.qtdm = rs.Fields("QTDM")
Me.contprod = rs.Fields("CONTPROD")
Me.datinserv = rs.Fields("DATINSERV")
Me.locaserv = rs.Fields("LOCASERV")
Me.empr = rs.Fields("EMPR")
Me.cnpj = rs.Fields("CNPJ")
Me.datarpa = rs.Fields("DATARPA")

End If

End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

Boa tarde e bem-vindo ao fórum
Leia as regras do fórum para tirar o máximo proveito e manter o fórum organizado
Sobre a dúvida, coloque código entre as 2 linhas indicadas para colocar o recordset no registo corrente

Set rs = db.OpenRecordset(PQ, dbReadOnly)
'código para colocar o recordset no registo corrente
If rs.EOF = True Then

Olá Silvio,

Seja bem-vindo ao fórum !!!

A navegação de registro no formulário, atualmente, não é muito utilizada em sistemas.
Imagina que sua tabela tenha 1000 registros e você tiver que clicar e "Próximo Registro" até encontrar o que deseja? É inviável.

Veja a sintaxe abaixo:
PQ = "SELECT NRPA, SAT, DESCSERV, TIPSERV, TIPDOC, NDOC, PRODSERV, QTDM, CONTPROD," _
& " DATINSERV, LOCASERV, EMPR, CNPJ, DATARPA From Tb01RPAItens"

Na instrução acima, o sistema carrega TODOS os registros da tabela para que seja executado um loop até chegar no registro desejado.

Aproveitando que você é iniciante no Access, minha sugestão é:
- Carregar o formulário vazio e, através de uma tela de pesquisa, carregar somente o registro desejado, e pela tela de pesquisa, carregar o registro no formulário.

Por gentileza, compartilhe uma cópia do seu banco de dados para análise e solução do problema.

Até +

Atenciosamente,

Alexandre Fim

Procedi a execução conforme o Sr. Alexandre Neves e não consegui resultado. Assim envio o arquivo conforme solicitação do Sr. Alexandre Fim.
Agradeço a atenção dispensada.

Olá Silvio,

Não consta o arquivo.
Por gentileza, verifique.

Atenciosamente
Fim

Queria lhe enviar ao arquivo inteiro do access, porém o sistema não permitiu. Envio-lhe o arquivo zipado (RPA1.zip)
S. Os botões próximo e anterior são importantes no meu banco de dados para a tarefa de correção do jogo de RPA para cada navio.