COMO RETORNAR UMA MENSAGEM QUANDO SELECT VOLTAR ""
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.
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.
ado1 é aquele objeto ADODC??
se sim, tente o seguinte:
if adodc1.Recordset.EOF then
Msgbox "Não foi encontrado nenhum registro!"
end if
se sim, tente o seguinte:
if adodc1.Recordset.EOF then
Msgbox "Não foi encontrado nenhum registro!"
end if
If ado1.RecordCount = 0 Then
msgbox "Nenhum registro"
end if
ou
If ado1.Eof = True Then
msgbox "Nenhum registro"
end if
Utilizei o que o amigo MARCELOHF, passou e deu certo.
Muito obrigado a todos pela força.
Muito obrigado a todos pela força.
Esquenta não Marcio! estamos ai pra isso...
Só não esquece de encerrar o tópico..rsrs
Flws...
Te+
Só não esquece de encerrar o tópico..rsrs
Flws...
Te+
Tópico encerrado , respostas não são mais permitidas