Boa noite pessoal!
Estou usando este código para navegar entre os registros. Este por acaso é o botão que mostra o registro anterior.
'On Error GoTo Erro
If rst.BOF = True Then
rst.MoveNext
mDados
MsgBox "Início do arquivo.", vbOKOnly + vbInformation
Exit Sub
Else
rst.MovePrevious
mDados
End If
'Erro:
'If Err > 0 Then
' MsgBox Err & " - " & Err.Description, vbCritical
' Exit Sub
'End If
Só que estão acontecendo coisas meio esquisitas e eu não imagino o que possa ser:
1) Quando não comento as linhas que deveriam apresentar algum erro quando ocorresse sempre apresenta erro "94 - Invalid use of Null" ou "3021 - Atingiu BOF ou EOF..."
2) Quando comento as linhas não apresenta os erros, mas antes de aparecer a mensagem de início do arquivo ele marca todas as checkbox do formulário e só apresenta a mensagem quando clico no botão pela segunda ou terceira vez.
Alguém já passou por um problema desses? O que preciso fazer pra resolver??!
Obrigado!
William.
