PESSOAL...

JÁ ENCONTREI 1 DAS POSSÍVEIS SOLUÇÕES P/ ESTE PROBLEMINHA:

 

Private Sub cmdNext_Click()
'Se RecordSet = final de tabela = falso então
If Rs1.EOF = False Then
'Move p/ o próximo registro
Rs1.MoveNext
'Senão
Else
'Move p/ o 1º registro
Rs1.MoveMin
'Fim se
End If
'Agora é que está 1 das possíveis soluções
'Se os comandos anteriores encontrou algo então
If Rs1.BOF = False And Rs1.EOF = False Then
'Mostradados
Mostra
End If
End Sub

 

ATÉ + E OBRIGADO...

 

Amigos

Tenho um problema ao movimentar o RecordSet com conexão ADO e peço a ajuda de alguém:

 

Private Sub cmdPreviows_Click()
'Se recordSet=False então move para o registro anterior
If Rs1.BOF = False Then
Rs1.MovePrevious: cmdMax.Enabled = True
Else
'Senão, move para o último registro
Rs1.MoveMax
End If
'Mas exiboe um erro: BOF ou EOF são verdadeiros ou o registro atual foi excluído
MostraDados

 

 

Private Sub Form_Load()
Con1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:PauloProgramaçãoVBDespesasDD.mdb;Persist Security Info=False"
Rs1.CursorLocation = adUseClient
Rs1.Open "select * from geral", Con1, adOpenDynamic, adLockOptimistic, adCmdText
end sub

 

Caso tenha registros na sua tabela então como vc faz a conexão ao seu banco??

Vc está usando DAO ou ADO?

O ghost prestençaum! É ADO fio. É bem possível que não tenha dados na sua tabela.

Kerplunk presta atenção vc! O cara escreveu dia 29 e  respondi dia 29 vc viu dia 31 e neste período ele editou a pergunta. Inclusive me comunicou por e-mail e pedi q ele colocasse a forma de conexão para estar mais a par do problema. Se vc quer discutir algo comigo meu e-mail está aí, pq não estou afim de ficar discutindo no fórum sendo q o intuito do site é outro. Veja direito como se expressa e verifique antes de "pegar o bonde andando".