Retornar quantidade encontrada em 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                        
                                             
______________________________

Obrigado

Adapte o seguinte,

Dim LTotal As Long

LTotal = Nz(DCount("oqueprocura", "daconsulta", "Cliente = '" & Me.txtBuscaCliente & "'"), "-1")

If LTotal <> "-1" Then
MsgBox "Foram encontrados" & " " & LTotal & " " & "resultados"

Else: MsgBox "Não foram localizados resultados para conulta"

End If

Então eu adaptei mas aparece erro de procedimento, queria também fazer com que a consulta entrasse no cadastro fosse direto no nome da pessoa.

Exemplo

Digite o nome do cliente:
Alberto

Nº Cliente Empresa
12 Alberto Fulano ->
13 Alberto Sicrano ->
14 Alberto Beltrano ->

Na seta quando eu clico no Alberto da empresa Sicrano, abre o primeiro cadastro do cliente
Ex.Alberto da empresa Fulano
Queria que entrasse no formulário de registro do cadastro que eu clicasse e não o primeiro.

A condição que eu estou usando
="[Cliente]=" & "'" & [Cliente] & "'"

Obrigado

Boas,
Lhe direi uma verdade, o primeiro caso não tem nada a ver com o segundo. no access Alberto <> Alberto Fulano. Muita gente prefere separar os campos em "Nome" e "Sobrenome" para facilitar em muitas coisas como esta.

O que você precisa acho que seria facilmente suprido pelo filtro de formulário, aquele campo que fica em baixo dos registros.
Crie um formulário novo, de modo "Formulário continuo", adicione sua lista no detalhe e não esqueça de deixar habilitado os botões de navegação

Caso não goste deste modo que seria o mais simples de todos para este tipo de procura bons estudos: Curso de Access: Aula 16 - Gilberlânio Rocha


Obs.: para abrir um formulário referente ao cliente no caso utilize algo como isto:

DoCmd.OpenForm "Formulario", , , "NumeroCriterio= " & Me.MeuNumerodeCriterio 'Abri formulários com critérios numéricos Ex: "Id = " & 8

DoCmd.OpenForm "Formulario", , , "TextoCriterio= '" & Me.MeuTextodeCriterio & "'" 'Abri formulários com critérios de texto Ex: "Nome = '" & Alberto & "'"

Apenas não esqueça que Alberto <> Alberto Fulano & Alberto Ciclano, abrirá aquele que vier primeiro na ordem alfabética.

Então é sobre isso mesmo, queria que já fosse direto sem ser em ordem alfabética que ordenasse por duas condições de pesquisa por macro ou código.

Exemplo:

ID Nome Empresa
11 Alberto Fulano
12 Alberto Sicrano
13 Alberto Beltrano

A condição fosse pelo id ou empresa ou pelo nome, pra ter duas condições, pra não abrir em ordem alfabética, por que as repetições fazem com que no formulário abra primeiro em ordem alfabética.

Boa tarde.....

Sem partes do projeto para a analise, fica complicado ajudar, portanto caímos sempre no campo da adivinhação.

Veja se esse exemplo te ajuda. É apenas uma parte, a parte de busca !!

Bons estudos !

Agradeço o Silvio pela ajuda

e pergunto pro biligo
Me.txtAnimaisConsulta & "'")

o que é essa parte do código?


Obrigado.

Bom não lembro e nem pude achar algo ao qual lhe enviei especificando esta parte em especifica, mas, baseando
no que lhe enviei seria, brutalmente, o que você tem escrito no formulário , um dlookup uma string que você ira se basear
para abrir outro formulário que contem este conteúdo, em texto.

é que eu adaptei pro meu banco de dados seria me.txtanimaisconsulta

Biligo, mas não consegui entender, eu pergunto nesse me.txt seria o formulário ou o campo?

Obrigado pela ajuda!

Segue exemplo pratico, de abertura com critério texto.

biligo eu entendi o seu código, só que no meu aparece
Inserir valor do parâmetro,
Digite o Nome do Cliente

Teria como mudar essa janela para criar um novo form só pra substituir o Digite o Nome do Cliente?
aí adaptar o código ou tem como fazer direto? Por que aonde seria txtcriterio seria a caixa de texto do form e quando aparece inserir valor do parâmetro, não tem.

Obrigado pela ajuda

Então, esse tipo de código geralmente quando não é localizado o filtro é aberto em branco.
Faça uma busca, não é dificil encontrar sobre tratamento de erros, crie seu formulário que ira preencher o nome do cliente e
utilize do mesmo código para abrir o formulário que desejava.

Talvez você esteja utilizando algum outro filtro se tiver dificuldades poste um exemplo do bd facilitaria para ajudar.

Ps.: se estiver clicando direto no campo texto tente fazer assim também se não quiser fazer o tratamento de erros:
If Me.txtcriterio <> "" Then
DoCmd.openform ".....
Else: MsgBox "Este campo não pode ser clicado" 'Se você quiser uma mensagem pra quem clicar
End If

biligo segue banco de dados em anexo.

É o que todos dizem, você orienta nas cegas e quando abre os olhos vê que esta meio torto XD.

O filtro que esta utilizando (A caixa de valor de parâmetro) ao meu ver seria excelente ao seu caso baseando me no que já havia perguntado.
Se a questão for estética, terá mais trabalho, veja a aula que já havia lhe enviado e crie um formulário que ira efetuar a mesma coisa que a caixa.
Vi que não esta utilizando o vba para abrir os outros formulários e sim macros. Bom da na mesma, faça seu formulário e adicione esta macro para
abrir o formulário "consulta", no critério coloque: [Formulários]![SeuFormulariodeBusca]![txtOqueBusca].
Não esqueça que os animais e donos deverão ter um formulário de busca cada e adicione uma ação na macro para identificar se a linha esta vazia
para não gerar erros desnecessários tanto nos formulários de busca quanto nos da consulta.

Se eu estiver me expressando mal esclareça melhor a questão pois mesmo com o bd em mãos não sei bem o que quer agora?

Pois é biligo.....pois é.
Eduam...de uma olhada nesse vídeo que está nesse link . Em Atenção no 2.08 minutos, veja o sistema de busca.

Muito legal Silvio o Sistema da Veterinária! Obrigado pela ajuda.

Eduams, eu que desenvolvi o mesmo....

Silvio, é que eu gostaria de aprender mesmo fazer um bd mais simples, como eu faço pra por o animal junto com o proprietário cadastrado?

Biligo, aparece para abrir o Formulário para consultar o nome do animal o seguinte erro na ação da Macro 'Abrir Formulário tem um argumento inválido na Condição Where'.

[Formulários]![Animais Consulta]]![txtNome do Animal].

E como criaria uma macro para saber se a caixa está vazia?

Contar o número de proprietários e animais retornados na consulta

Obrigado pela ajuda!

Boas amigo,

Bom sem mais delongas, gostaria de encerrar por aqui minha participação deste tópico.
Sua pergunta inicial a principio já foi mais que respondida mas foi alastrada para outras questões.
Sou iniciante no access também, com um pouco mais de experiencia que você talvez por isto procuro ajudar no que sei
mas este assunto já esta indo além do meu conhecimento.

Tenho certeza que o mestre Silvio lhe auxiliara com o que puder também, mas não creio que se diferencie muito do comando
de busca que já havia lhe recomendado pelo video do amigo Gilberlânio Rocha.

Me parece também que ainda esta indeciso da estrutura principal (as tabelas) do seu bd. Seria bom estudar esta parte antes
de partir para construção dos formulários, pois uma vez que decide mudar a estrutura terá de reformular os formulários referentes
e isto não é nem um pouco agradável lhe digo por experiencia própria.

Desejo sorte e bons estudos.

Atenciosamente, Antonio Felipe.

Como o Biligo disse, antes de ir fazendo, tem que haver um planejamento, um estudo de como estruturar as tabelas para cada formulário.

As tabelas, diria eu, são o coração, a parte mais fundamental e a estruturada de um SGDB.

Uma sugestão minha é...recomece do zero.   Escreva a mão os campos que precisa, faça um organograma do teu projeto ( isso ajuda muito e faço sempre ).

Desenha a mão mesmo, as relações que vai precisar, ligando cada tabela.

Biligo, não sou mestre não...sou um eterno aprendiz de Access e tudo o que sei hoje ( a grande parte, 60%, veio do fórum os outros 40% foi lendo e estudando ).

Mas o nosso fórum é uma grande e maravilhosa escola, onde aprendemos todos os dias com as duvidas de outros colegas.

Eduams, procure entender mais de VBA, será muito útil a você e que na minha opinião, muito melhor que macros.

Obrigado pela ajuda ao mestre Silvio e ao Biligo mas não ainda não consegui resolver o meu problema, vi um tópico semelhante Msg em consulta porém não explicam a resolução do problema, aqui tópico ainda em aberto. Qualquer ajuda será bem vinda!

Bom dia...Eduardo.

Cada caso é um caso. Veja o exemplo em anexo, não houve a necessidade de usar uma consulta ( Query ).  No próprio formulário eu posso colocar
uma caixa de texto desacoplada para me mostrar a quantidade de clientes.

Para mostrar a mensagem que você deseja, teremos que usar o Dlookup, mas estou especulando aqui, sem ver o projeto.

Mestre Silvio é desse jeito mesmo só que estou com problema quando digito aparece o resultado mais o cliente digitado. Eu queria que forma assim eu digito o nome do proprietário no caso, aparecesse a caixa com quantos resultados (registros).

Você quer saber o que...

a- quantos clientes tem em seu cadastro ( total ) independente do nome ou......
b- quantos clientes tem com o nome que esta procurando...

tem que ser mais especifico e claro.

b - quantos clientes tem com o nome que estou procurando

o arquivo que esta na mensagem de número 22, já faz isso. A caixa de texto mostra exatamente isso.

Biligo consegui fazer a caixa de mensagem, porém só mais uma dúvida

Como eu faço pra aparecer todos os resultados em pela ordem do nome digito Lu

aparece todos Lu pesquisar pelas primeiras letras e a caixa aparecer com todos os resultados.