MOVER PARA O ULTIMO REGISTRO SE ESTIVER NO 1°
Bom dia pessoal,
Sou iniciante em vb e comecei a estagiar. Estou fazendo uma das telas de um programa e estou encontrando dificuldade em uma situação.
Essa tela anda pelo registro do banco através do MoveNext e MovePrevious, e joga os dados em uma textbox que será habilitada para edição depois.
Mas não estou conseguindo fazer com que ao chegar ao fim dos registros ele pule para o primeiro e quando tiver no primeiro e clicar em anterior ele pule para o ultimo. Sempre dá aquele erro de EOF ou BOF verdadeiro, segue o código que escrevi para o botão:
Minha logica está certa, o que tenho que mudar?
Desde já agradeço
Sou iniciante em vb e comecei a estagiar. Estou fazendo uma das telas de um programa e estou encontrando dificuldade em uma situação.
Essa tela anda pelo registro do banco através do MoveNext e MovePrevious, e joga os dados em uma textbox que será habilitada para edição depois.
Mas não estou conseguindo fazer com que ao chegar ao fim dos registros ele pule para o primeiro e quando tiver no primeiro e clicar em anterior ele pule para o ultimo. Sempre dá aquele erro de EOF ou BOF verdadeiro, segue o código que escrevi para o botão:
Citação:Private Sub CmdAnterior_Click()
With RS
If .BOF Then
.MoveLast
Else
.MovePrevious
Call CarregaCampo
End If
End With
End Sub
Minha logica está certa, o que tenho que mudar?
Desde já agradeço
Private Sub CmdAnterior_Click()
rs.MovePrevious [ô]vai para o registro anterior (previous) da tabela
If rs.BOF Then [ô]pergunta se chegou no inicio da tabela
MsgBox [Ô]Este é o primeiro registro![Ô], vbInformation, [Ô]Aviso[Ô] [ô]msgbox dizendo que chegou no inicio da tabela
rs.MoveFirst [ô]fica no primeiro caso tenha chegado no inicio
End If [ô]fecha o if
End Sub
Call CarregaCampo
Mais simples
rs.MovePrevious [ô]vai para o registro anterior (previous) da tabela
If rs.BOF Then [ô]pergunta se chegou no inicio da tabela
MsgBox [Ô]Este é o primeiro registro![Ô], vbInformation, [Ô]Aviso[Ô] [ô]msgbox dizendo que chegou no inicio da tabela
rs.MoveFirst [ô]fica no primeiro caso tenha chegado no inicio
End If [ô]fecha o if
End Sub
Call CarregaCampo
Mais simples
Private Sub CmdUltimo_Click()
tb.MoveLast [ô]vai para o ultimo(last) registro na tabela
Call CarregaCampo [ô]chama(call) a rotina que mostra os dados
MsgBox [Ô]Este é o Último Registro![Ô], vbInformation, [Ô]Aviso[Ô]
End Sub
tb.MoveLast [ô]vai para o ultimo(last) registro na tabela
Call CarregaCampo [ô]chama(call) a rotina que mostra os dados
MsgBox [Ô]Este é o Último Registro![Ô], vbInformation, [Ô]Aviso[Ô]
End Sub
Entendi OMAR2011,
Mas do Jeito que pensei está errado aonde?
Mas do Jeito que pensei está errado aonde?
Tópico encerrado , respostas não são mais permitidas