COMO RETORNAR UMA MENSAGEM QUANDO SELECT VOLTAR ""

USUARIO.EXCLUIDOS 02/10/2006 15:31:03
#175045
Criei uma função da seguinte forma;
Dim sql As String

sql = "select MOVIMENTOFIXO.cdMATRICULA AS Matricula, Nmpessoa As Nome, movimentofixo.cdverba, Dsabreviada, nrocorrido as Ocorreu from movimentofixo " & _
"INNER JOIN FUNCIONARIO " & _
"ON MOVIMENTOFIXO.CDMATRICULA = FUNCIONARIO.CDMATRICULA " & _
"INNER JOIN PESSOA " & _
"ON FUNCIONARIO.CDPESSOA = PESSOA.CDPESSOA " & _
"INNER JOIN VERBA " & _
"ON MOVIMENTOFIXO.CDVERBA = VERBA.CDVERBA " & _
" where movimentofixo.cdmatricula = " & tipocadastro & _
" And verba.cdverba = " & cadastro
ado1.RecordSource = sql
ado1.Refresh

Só que pode ocorrer de no banco de dados não existir as informações digitadas dentro " & tipocadastro e & cadastro, neste caso gostaria de voltar uma mensagem ao usuário avisando que não foi encontrado.


USUARIO.EXCLUIDOS 02/10/2006 15:33:29
#175047
ado1 é aquele objeto ADODC??

se sim, tente o seguinte:

if adodc1.Recordset.EOF then
Msgbox "Não foi encontrado nenhum registro!"
end if
USUARIO.EXCLUIDOS 02/10/2006 15:34:20
#175048

If ado1.RecordCount = 0 Then
msgbox "Nenhum registro"
end if

ou

If ado1.Eof = True Then
msgbox "Nenhum registro"
end if


USUARIO.EXCLUIDOS 02/10/2006 16:44:06
#175094
Utilizei o que o amigo MARCELOHF, passou e deu certo.
Muito obrigado a todos pela força.
USUARIO.EXCLUIDOS 02/10/2006 16:48:18
#175097
Resposta escolhida
Esquenta não Marcio! estamos ai pra isso...

Só não esquece de encerrar o tópico..rsrs

Flws...

Te+
Tópico encerrado , respostas não são mais permitidas