[Resolvido]Retornar mensagem de erro se não encontrar registros na tabela

Estou precisando de uma ajuda, no link abaixo tem uma caixa de texto em um formulário em que digito uma instalação e quando clico no botão ele abre um relatório segundo o resultado que encontrou na tabela, eu gostaria que quando eu digitar algum registro que não esta na tabela ou não digitar nada na caixa de texto me aparecer uma mensagem ao clicar no botão que não encontrou nenhum resultado.
Quando digo instalação nada mais é que um código, para digitar na caixa de texto e retornar o resultado pode usar essa instalação como exemplo: 3006392155

https://www.dropbox.com/s/m0kdzjpsa8lqtwn/BUSCA%20TELEFONES.rar?dl=0

Desde já agradeço.

Substitui o código no botão Gerar Relatório por este.

Código:

   If IsNull(Me.txt100) Or Me.txt100 = "" Then
        MsgBox ("Informe o Número da Instalação!"), vbExclamation, "Atenção!"
        Me.txt100.SetFocus
        Exit Sub
    End If
    
    If DCount("[Instalação]", "TELEFONES", "[Instalação] =" & Me.txt100 & "") Then
    
        txt100 = Replace(txt100, vbCrLf, ",")
        'Abre o Relatorio
        DoCmd.OpenReport "TELEFONES", acViewReport
        'Gera o Relatorio com os produtos Digitados
        Reports!TELEFONES.RecordSource = "SELECT * FROM TELEFONES WHERE [Instalação] in (" & Me.txt100 & ")"
    Else
        
        MsgBox ("Nenhum Número de Instalação Faz Referência a Este Número " & Me.txt100 & ". Verifique!"), vbExclamation, "Atenção!"
        Me.txt100 = ""
        Me.txt100.SetFocus
    
    End If

Caro Formiga, preciso desse código : txt100 = Replace(txt100, vbCrLf, ",") que já está ai, com esse código que você digitou ai elimina essa opção, preciso dele para colocar virgula quando eu digitar mais de uma instalação.

Veja se lhe ajuda amigo!

https://www.maximoaccess.com/t26887-verificar-quais-codigos-da-lista-nao-estao-da-tabela-contar-certo-caracter-e-remover-newline#189519

Boa noite Fábio, muito bom esse exemplo que você me passou ai mas estou achando meio complicado de aplicar ele no meu projeto, tem como você fazer pra mim ai por favor.

Fácil fácil amigo... O Código ja esta pronto la... Basta mudar o Nome dos campos e Tabelas...


Vamos Lá... Copie o Modulo do exemplo Postado a cima para seu Aplicativo;

Mude o Codigo que esta no Botao de Gerar o Relatorio para:

Código:

Private Sub Comando10_Click()
txt100 = Replace(txt100, vbCrLf, ",")
'------------------------------------'
'  Criado por Fabio Paes  '
'  05/06/2016                        '
'------------------------------------'
Dim N, nFaltante As String
Dim F As Integer

For F = 1 To xContar(Me.txt100, ",") + 1 'Calcula quantas vezes ira repetir (loop)
N = SeparaNomes(Me.txt100, ",", F) 'Separa os Codigos de Acordo com a Passagem do Loop

    If DCount("[Instalação]", "TELEFONES", "[Instalação] = " & N & "") = 0 Then 'Verifica se o Codigo esta na Tabela, se Nao, armazena na Variavel
    nFaltante = nFaltante + N & " - "
    End If

 Next
 'Termina o Loop e Mostra quais os Codigos nao foram localizados
 MsgBox "Os Codigos : ( " & Left(nFaltante, Len(nFaltante) - 2) & " ) Nao foram localizados", vbInformation, "Itens Não Localizados"
 
'Abre o Relatorio
DoCmd.OpenReport "TELEFONES", acViewReport
'Gera o Relatorio com os produtos Digitados
Reports!TELEFONES.RecordSource = "SELECT * FROM TELEFONES WHERE [Instalação] in (" & Me.txt100 & ")"

End Sub


Fabio, fiz o que pediu mas da erro, quando clico no botao gerar relatorio sem nada escrito na caixa de texto da uso de Null invalido, quando digito varias instalaçoes na caixa de texto da o erro: argumento ou chamada de procedimento invalida.

Muito estranho Nao ter dado certo... Pois baixei de novo, e seguia as instruções anteriores e deu certinho...

Mas, Você copiou o Modulo do exemplo la do Repositório???


Segue o seu Arquivo Corrigido... Coloquei uma verificação de Nulo...

Teste, se nao der certo manda print da Mensagem...

Fábio, quando coloco os números da instalação não esta localizando mais, segue o print do erro

Estranho aqui Funcionou certinho... Mas me diga, quando clica ali em Depurar. em qual linha ele para? Tire um Print dela...

Cola aqui também os código que esta tentando buscar...

Segue o print, os códigos que estou tentando buscar são todos esses:
3000121444
3000121445
3000121446
3000121447
3000121448
3000121451
3000121452

A sim... o Problema é que Todos os Numeros foram encontrados... Para isso basta add um Tratamento a isso...

Substitua o COdigo do Botao por este:

Código:

Private Sub Comando10_Click()
'------------------------------------'
'  Criado por Fabio Paes  '
'  05/06/2016                        '
'------------------------------------'
If IsNull(Me.txt100) Then
MsgBox "Preencha com algum valor !!!", vbCritical
Me.txt100.SetFocus
Else

txt100 = Replace(txt100, vbCrLf, ",")
Dim N, nFaltante As String
Dim F As Integer

For F = 1 To xContar(Me.txt100, ",") + 1 'Calcula quantas vezes ira repetir (loop)
N = SeparaNomes(Me.txt100, ",", F) 'Separa os Codigos de Acordo com a Passagem do Loop

    If DCount("[Instalação]", "TELEFONES", "[Instalação] = " & N & "") = 0 Then 'Verifica se o Codigo esta na Tabela, se Nao, armazena na Variavel
    nFaltante = nFaltante + N & " - "
    End If

 Next
 'Termina o Loop e Mostra quais os Codigos nao foram localizados
 If Len(nFaltante) > 0 Then
 MsgBox "Os Codigos : ( " & Left(nFaltante, Len(nFaltante) - 2) & " ) Nao foram localizados", vbInformation, "Itens Não Localizados"
 End If
'Abre o Relatorio
DoCmd.OpenReport "TELEFONES", acViewReport
'Gera o Relatorio com os produtos Digitados
Reports!TELEFONES.RecordSource = "SELECT * FROM TELEFONES WHERE [Instalação] in (" & Me.txt100 & ")"
End If
End Sub

Excelente ficou perfeito, obrigado mais uma vez Fabio por contribuir com o meu projeto, preciso de mais algumas coisas vou abrir outro tópico.

Bacana meu amigo, ate a proxima...