[Resolvido]Mensagem com registros encontrados no formulário de consulta

Boa Noite,
Gostaria de saber como fazer para aparecer uma caixa de mensagem no mostrando a quantidade de pessoas encontradas em uma consulta.

Exemplo

Digite o Nome do cliente:

Alberto


Aparecer
_______________________________

Foram encontrados 9 resultados

OK

______________________________

Depois aparecer os resultados

E aonde colocar o código exemplo ao carregar, após atualizar... e o código.

Obrigado!

Valos lá. Considerando que você tem uma tabela com os nomes chamada de "TBNOMES", onde o campo onde ficam os nomes chama-se "NOME", você pode isnerir o seguinte código no evento de um botão.

Código:


dim StrNome as string
dim i as integer
'abre a janela de pergunta
StrNome=inputbox("Digite o nome do cliente")
'faz a busca do nome
i=dcount("NOME","TBNOMES","NOME='" & StrNome & "'")
'exibe caixa de mensagem com o resultado
if i=0 then
msgbox "Não foram resultados com este nome."
else
msgbox "Foram encontrados " & i & " resultados."
end if


Estou fazendo assim
Dim LTotal As Long

LTotal = Nz(DCount("[Nome]", "Consulta", "[Nome] = '" & "Me.txtnome" & "'"), "-1")

If LTotal <> "-1" Then
MsgBox "Foram encontrados" & " " & LTotal & " " & "resultados"
Else: MsgBox "Não foram localizados resultados para consulta"
End If
End Sub

Só que está mostrando
a caixa de mensagem com 0 resultados

o que poderia ser?

Tente assim:

Código:


Dim LTotal As Long

LTotal = Nz(DCount("[Nome]", "Consulta", "[Nome] = '" & Me.txtnome & "'"), "-1")

If LTotal <> "-1" Then
MsgBox "Foram encontrados " & LTotal & " resultados"
Else: MsgBox "Não foram localizados resultados para consulta"
End If
End Sub


Removi algumas aspas duplas.

Obrigado halmeida, funcionou! Só mais uma dúvida
Por exemplo:
Eu digito Lucas
aparece três resultados normal

Quando digito parte do campo por exemplo Luca ou L a caixa não informa os resultados, somente do escrito Lucas.
Teria como a caixa informar todos os resultados?


Obrigado.

Segue:

Código:


Dim LTotal As Long

LTotal = Nz(DCount("[Nome]", "Consulta", "[Nome] = '" & Me.txtnome & "*" & "'"), "-1")

If LTotal <> "-1" Then
MsgBox "Foram encontrados " & LTotal & " resultados"
Else: MsgBox "Não foram localizados resultados para consulta"
End If
End Sub


halmeida
não funcionou, a caixa fica aparecendo 0 resultados e não aparecem os resultados, os resultados só aparecem quando eu clico para o remover filtro. O que pode fazer?

Obrigado!

Tente assim:

Código:


Dim R As Recordset
Dim i As Integer
Dim StrNome As String
StrNome = Me.txtnome & "*"
Set R = CurrentDb.OpenRecordset("SELECT Consulta.Nome FROM Consulta where Consulta.Nome Like '" & StrNome & "'")
If R.RecordCount = 0 Then
    MsgBox "Não foram localizados resultados para consulta"
Else
    i = 0
    Do While Not R.EOF
        i = i + 1
        R.MoveNext
    Loop
    MsgBox i & " regitros encontrados"
End If