Botão Avançar

[SubZer0 0]

Aê pessoal,estou tendo um problema com o botão que avança no banco de dados, para mostrar novos dados:código:----------------------------Private Sub cmdAvancar_Click()If Not tabela_condominios.EOF = True Then tabela_condominios.MoveNexttxtNome.Text = tabela_condominios!nomeEnd Sub----------------------------Erro:Run-time error '3021'No current record.----------------------------O problema é que ao avançar ele não checa se o próximo campo existe e mesmo assim avança, eu puis o .EOF mas parece que ele ignora...Agradeço ajuda.

[Rafael Portal 0]

Tenta assim:

 

 

 

Private Sub cmdAvancar_Click()On Error Goto ErroIf Not tabela_condominios.EOF = True Then tabela_condominios.MoveNexttxtNome.Text = tabela_condominios!nomeErro:     If Err.Number = "3021" then              msgbox "Fim dos registros", vbInformation + vbOkOnly, "Aviso"     end If  End Sub

 

Espero ter ajudado..

Rafael Portal

[SubZer0 0]

funcionou !vlw

[jolienai 0]

Private Sub cmdAvancar_Click()If tabela_condominios.EOF =false Then tabela_condominios.MoveNexttxtNome.Text = tabela_condominios!nomeelsetabela_condominios.MoveFirst ou Msgbox" Você chegoua o fim do arquivo!!!"end If End Sub

[cassitos 2]

então...

 

o código .MoveNest estava na mesma linha que o IF?

 

se sim, mesmo que tenha este teste do IF o VB compila a linha neste caso. É comum dá esse tipo de erro tbm assim:

 

If Isnull(Tabela.Fields("Campo")) then txt.text="" else txt.text=Tabela.Fields("Campo")

com IIF tbm.

 

o ideal é:

 

If Not Tabela.EOF = True then

Tabela.MoveNext

...

Else

Msgbox "Fim."

End If

 

Um outro ponto tbm pode ser aki:

 

txtNome.Text = tabela_condominios!nome

Se colocar esta linha dentro do IF, não precisa sempre que chegar no final ativar o On Error sacas?

 

sei q o problema já foi resolvido, mas taí um alô caso tenha um outro problema parecido.

 

bom, na verdade revendo os posts, só expliquei o código do jolienai. :)

 

flws

[SubZer0 0]

Funcionou !Mas to tendo um probleminha...é o seguinte:Quando clico no botão avançar, ele está avançando normalmente...porém existe uma tabela chamada pagamentos...esta tabela possui pagamentos respectivos aos condominios....ex: clicando em avançar o ideal seria que avançasse o condominio (que está sendo feito) e pegasse o primeiro pagamento associado ao condomínio, lembrando que são 2 tabelas no access, sendo que a tabela condominio possuí como chave primaria um idCondomínio, e a tabela pagamentos associa os pagamentos por esse idCondomínio.Como faço isso no botão Avançar ?Eu não quis citar isso antes porque pensei que seria trivial.

[SubZer0 0]

Continuando q nem o cara aí:

If Not Tabela.EOF = True then     Tabela.MoveNext     tbpagamento.index = "idCondomínio"     tbpagamento.seek "=" tabela!id 'procura pelo id marcado na tabela     'pronto a tabela pagamentos ja esta posicionadaElse     Msgbox "Fim."End If

Desculpa Luíz, mas não consegui entender seu código.