[Resolvido]Navegar em recordset

Boa tarde!
Encontrei aqui o exemplo de navegar em formulario desvinculado abaixo, do amigo JPaulo:
Private cn As ADODB.Connection
Private rs As ADODB.Recordset


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.codCliente = rs!codCliente
Me.nomeCliente = rs!nomeCliente
Me.endCliente = rs!endCliente
Me.Cidade = rs!Cidade
Me.UF = rs!UF
End Sub


Private Sub btProximo_Click()
Me.Recordset.MoveNext
Me.codCliente = rs!codCliente
Me.nomeCliente = rs!nomeCliente
Me.endCliente = rs!endCliente
Me.Cidade = rs!Cidade
Me.UF = rs!UF
End Sub


Private Sub Form_Close()
rs.Close
cn.Close
Set rs = Nothing
End Sub

Funciona legal, mas a tabela fica aberta, e se eu fecho o recordset ao carregar o formulario, não navega, alguem tem uma solução?


Obrigado.

Boa tarde,

Veja se este tópico lhe ajuda https://www.maximoaccess.com/t28991-resolvidocontrole-navegacao-registro-recordset-previous-next-last-first

Abraço.

Boa noite!
Muito obrigado por responder, o exemplo que me mandou também deixa a tabela aberta, mas ele me deu uma luz, daí fiz assim:

Private Sub btnPróximo_Click()
On Error GoTo err
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "tab_Funcionário", cnn, , , adCmdTable
rst.Move atual
Me.txtCódigoDoFuncionário = rst("CódigoDoFuncionário")
Me.txtNomeDoFuncionário = rst("NomeDoFuncionário")
atual = atual + 1
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
err: MsgBox "Último funcionário.", vbInformation, "Controle de produtos e serviços"
End Sub

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub btnAnterior_Click()
On Error GoTo err
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "tab_Funcionário", cnn, , , adCmdTable
rst.Move atual - 2
Me.txtCódigoDoFuncionário = rst("CódigoDoFuncionário")
Me.txtNomeDoFuncionário = rst("NomeDoFuncionário")
atual = atual - 1
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
err: MsgBox "Primeiro funcionário.", vbInformation, "Controle de produtos e serviços"
End Sub

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub btnPrimeiro_Click()
On Error GoTo err
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "tab_Funcionário", cnn, , , adCmdTable
rst.MoveFirst
Me.txtCódigoDoFuncionário = rst("CódigoDoFuncionário")
Me.txtNomeDoFuncionário = rst("NomeDoFuncionário")
atual = rst.AbsolutePosition
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
err: MsgBox "Primeiro funcionário.", vbInformation, "Controle de produtos e serviços"
End Sub

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub btnÚltimo_Click()
On Error GoTo err
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "tab_Funcionário", cnn, , , adCmdTable
rst.MoveLast
Me.txtCódigoDoFuncionário = rst("CódigoDoFuncionário")
Me.txtNomeDoFuncionário = rst("NomeDoFuncionário")
atual = rst.AbsolutePosition
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
err: MsgBox "Último funcionário.", vbInformation, "Controle de produtos e serviços"
End Sub

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub Form_Load()
atual = 1
End Sub

Funcionou direitinho, e deixa a tabela fechada.

Obrigado.

Bom dia,

Que legal! Não se esqueça de marcar o tópico como resolvido.

Abraço.

Esqueci desta parte.

Option Compare Database
Option Explicit
Dim atual