NAVEGANDO POR REGISTROS

PERCIFILHO 23/06/2010 15:57:47
#345598
Olá, amigos. tenho em uma aplicação 4 botões: primeiro/último/anterior/próximo, para navegar entre os registros de uma tebela. Estou tentando escrever o código para fazer a navegação entre esses registros, mas já tentei alguns exemplos e não consegui, toda hora ocorre um erro. Gostaria que alguém me ajudasse nessa questão. Sei que pode ser simples para alguns. Conto com vocês. Estou fazendo a conexão com ADO e ACCESS.

Até mais.
JAMESBOND007 23/06/2010 16:05:05
#345599
Eu usso assim 
Private Sub cmdnext_Click()
            If tabelas.State = adStateOpen Then
            Call n3
            Else
            tabelas.Open [Ô]Cliente[Ô], conectiva, adOpenKeyset, adLockOptimistic
            Call n3
            End If
End Sub



Private Sub cmdback_Click()
            If tabelas.State = adStateOpen Then
            Call n2
            Else
            tabelas.Open [Ô]Cliente[Ô], conectiva, adOpenKeyset, adLockOptimistic
            Call n2
            End If
End Sub


Public Sub n2()
            If tabelas.BOF = True And tabelas.EOF = True Then
            MsgBox [Ô]Não há clientes cadastrados.[Ô], vbInformation, [Ô]INFORMAÇÃO[Ô]
            Call limpar
            Exit Sub
            End If
            If tabelas.BOF = True Then
            tabelas.MoveFirst
            Call mostrar
            Exit Sub
            End If
            tabelas.MovePrevious
            If tabelas.BOF = True Then
            tabelas.MoveFirst
            Call mostrar
            Exit Sub
            End If
            Call mostrar
End Sub


Public Sub n3()
            If tabelas.BOF = True And tabelas.EOF = True Then
            MsgBox [Ô]Não há clientes cadastrados.[Ô], vbInformation, [Ô]INFORMAÇÃO[Ô]
            Call limpar
            Exit Sub
            End If
            If tabelas.EOF = True Then
            tabelas.MoveLast
            Call mostrar
            Exit Sub
            End If
            tabelas.MoveNext
            If tabelas.EOF = True Then
            tabelas.MoveLast
            Call mostrar
            Exit Sub
            End If
            Call mostrar
End Sub


Private Sub mostrar()
            Call Desativar
            frmcadcli.mskCodigo.Text = tabelas!codigo
            frmcadcli.txtnome.Text = tabelas!nome_cli
            frmcadcli.mskAno.Text = tabelas!ano
            frmcadcli.txtemail.Text = tabelas!email
            frmcadcli.txtmodelo.Text = tabelas!veic_cli
            frmcadcli.mskKM.Text = tabelas!km_cli
            frmcadcli.mskTel1.Text = tabelas!fone_cli
            frmcadcli.mskTel2.Text = tabelas!cel_cli
            frmcadcli.mskPlaca.Text = tabelas!placa_cli
            Call Ativar
End Sub
PERCIFILHO 23/06/2010 16:25:10
#345600
Dessa forma, para mim não deu certo. Apenas mostrou o segundo registro. Tem algum exemplo mais claro, mostrando, inclusive, a forma de se fazer a conexão, etc.
Agradeço a ajuda até então.

Até mais.
PERCIFILHO 23/06/2010 16:39:42
#345603
Dessa forma, para mim não deu certo. Apenas mostrou o segundo registro. Tem algum exemplo mais claro, mostrando, inclusive, a forma de se fazer a conexão, etc.
Agradeço a ajuda até então.

Até mais.
PERCIFILHO 23/06/2010 16:42:47
#345604
Dessa forma, para mim não deu certo. Apenas mostrou o segundo registro. Tem algum exemplo mais claro, mostrando, inclusive, a forma de se fazer a conexão, etc.
Agradeço a ajuda até então.

Até mais.
JAMESBOND007 23/06/2010 16:47:12
#345606 
Private Sub cmdanterior_Click()
adocds.Recordset.MovePrevious
If adocds.Recordset.BOF Then
adocds.Recordset.MoveNext
End If
End Sub


Private Sub cmdproximo_Click()
adocds.Recordset.MoveNext
If adocds.Recordset.EOF Then
adocds.Recordset.MovePrevious
End If
End Sub
JPAULO101 23/06/2010 17:47:05
#345610
Faz assim

Private Sub Anterior_Click()
rs.MovePrevious
If rs.BOF Then rs.MoveNext
Call PopularForm
End Sub

Private Sub Proximo_Click()
rs.MoveNext
If rs.EOF Then rs.MovePrevious
Call PopularForm
End Sub

Public Sub PopularForm()

Text1.Text = [Ô][Ô] & rs.Fields([Ô]Codigo[Ô])
If Not IsNull(rs.Fields([Ô]Matricula[Ô])) Then Text2.Text = rs.Fields([Ô]Matricula[Ô])
If Not IsNull(rs.Fields([Ô]Nome[Ô])) Then Text3.Text = rs.Fields([Ô]Nome[Ô])
If Not IsNull(rs.Fields([Ô]DataNasc[Ô])) Then Text4.Text = rs.Fields([Ô]DataNasc[Ô])

End Sub
PERCIFILHO 24/06/2010 08:48:50
#345649
Olá, amigos, estou testanto aqui, mas dessa forma, ele me mostra o próximo registro, porém, se eu clicar novamente no botão próximo, ele continua me mostrando o mesmo registro, eu precisava que cada vez que eu clicasse no botão próximo fosse aparecendo os dados dos próximos registros, assim como funciona o componente Data, possiblitando-me navegar entre os registros. Isso eu não estou conseguindo. Alguém pode me dar uma luz?

Até mais.
PERCIFILHO 24/06/2010 10:39:31
#345673
Amigos, para facilitar um pouco, estou enviando o código do projeto e explicando no arquivo Leia-me.txt o meu problema. Se algúem puder e quiser me ajudar, agradeço muito.

Até mais.
JAMESBOND007 24/06/2010 10:46:29
#345674
arquivo corrompido!!!!
PERCIFILHO 24/06/2010 10:59:10
#345676
Estou enviando novamente.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar