[Resolvido]Navegação entre registros

Já tive algumas "brincadeiras" com access mas nunca me aventurei com a conexão via VBA, hoje experimentei! Uma tabela e formulário fiz umas buscas, (Que grande confusão) mas consegui ligar-me à base de dados e à tabela, onde inseri 3 registos, para os visualizar no formulário, porém não consigo navegar entre eles. A tabela tem 3 registos, no entanto o "objecto" de botões de navegação só indica a existência de 1 registo.

Código:


Option Compare Database
Option Explicit

Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset

Private Sub cmdPrevious_Click()
rst.MovePrevious
End Sub

Private Sub cmdSeguinte_Click()
rst.MoveNext
End Sub

Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source = C:\Users\daddy\Desktop\tstConectaAdo\dbConnecta.mdb"
cnx.Open

Set rst = New ADODB.Recordset
rst.Open "select * from tblTeste", cnx, adOpenKeyset, adLockOptimistic
rst.MoveLast

txtCamp1 = rst.Fields("Campo1")
txtCamp2 = rst.Fields("Campo2")

End Sub


Será possivel ajudarem-me? Obrigado.

Resolvi em parte.

Como não acrescentei estas linhas "txtCamp1 = rst.Fields("Campo1")txtCamp2 = rst.Fields("Campo2") aos eventos MoveNext ou MovePrevious ainda que se movimentasse mostrava sempre o mesmo conteudo, daí eu dizer que não navegava pelos registos.

Mas causou outro problema, quando chega ao fim dos registos (First or Last) mostra uma mensagem de erro e pára o código.

Boa tarde,
Coloque
Option Compare Database
Option Explicit

Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset

Private Sub cmdPrevious_Click()
if not rst.bof then rst.MovePrevious
End Sub

Private Sub cmdSeguinte_Click()
if not rst.eof then rst.MoveNext
End Sub

Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source = C:\Users\daddy\Desktop\tstConectaAdo\dbConnecta.mdb"
cnx.Open

Set rst = New ADODB.Recordset
rst.Open "select * from tblTeste", cnx, adOpenKeyset, adLockOptimistic
rst.MoveLast

txtCamp1 = rst.Fields("Campo1")
txtCamp2 = rst.Fields("Campo2")

End Sub

Tudo na mesma, a mensagem mantém-se o Debug, aponta txtCamp1 = rst.Fields("Campo1")

veja o conteúdo do registo, pode ser nulo

A tabela está preenchida, só tem 3 registos, o erro ocorre quando ultrapassa os registos.

Obrigado

Anexei o "projecto"

Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim numreg As Integer
Sub carrega()
If Not (rst.BOF = True Or rst.EOF = True) Then
txtCamp1 = rst.Fields(1)
txtCamp2 = rst.Fields(2)
Else
MsgBox ("Chegou ao fim dos registos"), vbCritical
End If
End Sub
Private Sub cmdCount_Click()
numreg = rst.RecordCount
MsgBox "Existem " & numreg
End Sub
Private Sub cmdPrevious_Click()
If Not (rst.BOF = True) Then
rst.MovePrevious
carrega
End If
End Sub

Private Sub cmdSeguinte_Click()
If Not (rst.EOF = True) Then
rst.MoveNext
carrega
End If
End Sub

Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source = C:\Users\daddy\Desktop\tstConectaAdo\dbConnecta.mdb"
cnx.Open
Set rst = New ADODB.Recordset
rst.Open "select * from tblTeste", cnx, adOpenKeyset, adLockOptimistic
rst.MoveLast
carrega
End Sub