[Resolvido]usar caixa de combinação como critério da consulta.

Pessoal Bom Dia,

Primeiramente sou novo no fórum, então peço desculpas antecipadamente por qualquer equivoco de minha parte.

Pesquisei no fórum porém não encontrei nenhum tópico que solucionasse meu problema, não sou totalmente leigo, mas também não sou expert, de qualquer forma até achei tópicos sobre o assunto mas nenhum com a resolução que eu preciso, por isso decidi abrir um novo. O problema é o seguinte, eu estou desenvolvendo uma agendinha telefônica simples pro meu trabalho. Eu preciso que ela cadastre prestadores de serviço e além dos dados do contato ela também registre que tipo de serviço aquele prestador faz (Pedreiro, Encanador, etc) Até ai tudo bem, criei uma tabela e quatro formulários. Um formulário para cadastrar o prestador, outro para consultar um prestador pelo seu nome e um menu principal para dar acesso a estes formulários. O problema está no quarto formulário, eu gostaria de selecionar um serviço no menu principal e ai ele me mostrar uma lista de todos os prestadores de serviço que prestam aquele serviço. Ex. eu seleciono Pedreiro e eme me mostra o contato de todos os pedreiros e ainda, assim que eu clicar em algum deles ele me mostre a ficha completa para aquele prestador. Tentei até criar um relatório para ver se facilitava mas não consegui do mesmo jeito. Este é o meu problema até o momento, gostaria de saber se alguém pode me ajudar a resolver. Tem mais um detalhe, quando eu pesquiso pelo nome ele retorna o formulário preenchido certinho com o contato que eu quero. Porém quando digito um nome que não existe ele mostra o formulário em branco, sem valores e sem os campos. Gostaria que quando não encontrasse o registro ele exibisse uma mensagem de erro informando que não foi encontrado prestador.

Enfim são estes os meus problemas, se alguém puder me ajudar agradeceria muito! Espero não ter alongado demais a minha explicação, mas coloquei todas as in formações que achei necessário.



Segue o Banco de dados:

Boa tarde AndreMeneghin

Faça assim,

1 Crie uma tabela Somente com os Serviços (Pedreiro, Elestricista... etc.)
2 No Menu crie botões para cada serviço ou uma combox para lista-los.
3 Crie uma caixa de texto não acoplada no Menu e renomeia de txt_grupo
3 No evento ao clicar do Botão ou no alterar da Combox:

Código:

Private Sub BtnPedreiro_Click()
Me.txt_grupo = "Pedreiro"
DoCmd.OpenForm "fml_servicos"
End Sub

4 No evento ao abrir do fml_servicos crie uma caixa de listagem e como origem coloque o prestadores de serviços
5 Crie um campo no fml_servicos e renomeie de txt_grupo
6 No evento ao abrir do fml_servicos coloque:

Código:

Private Sub Form_Open(cancel As Integer)
Forms!Menu.txt_grupo = Forms!fml_servicos.txt_grupo
End Sub

7 Nos critérios da consulta da caixa de listagem coloque:

Como [forms]![fml_servicos].[txt_grupo] & "*"

Até aqui vai estar fazendo o filtro no fml_servicos de acordo com o botão pressionado no Menu.

Olá André.

Dado o meu pitaco  

Caso prefira, sugiro que veja esse exemplo de pesquisa.

maximoaccess.com/t21906-formulario-para-pesquisas#159303

(copie e cole no endereço do navegador)

Ele foi feito com base num cadastro de mascotes de uma clínica veterinária.

Pode-se substituir o cliente(Pet) do formulário com o nome e dados principais dos prestadores de serviços

Baixe o exemplo e abra o frmPesquisa.

Embora a caixa de texto esteja escrita pesquisa por nome, pode-se digitar o que quiser que será filtrado.

Experimente digitar algum nome de cliente, depois um nome de espécie, e por raça, então irá verificar

que o resultado ficará colorido.

Teste o formulário e verá que terá toda pesquisa necessária em apenas um formulário.

Nesse formulário ou em outro que fizer para retornar a relação de prestadores de serviços, seja por profissão ou outro filtro

qualquer, deverá fazer uma função para abrir o formulário de dados do prestador (sei que tem o form de cadastro, que é

apenas para adicionar novos registros).

Crie o formulário, e na consulta da origem de registro, coloque o critério na coluna do codigoDoPrestador =frmPesquisa!codigoDoPrestador.

Desse modo, esse formulário irá abrir somente com os dados do prestador em que foi clicado no frmPesquisa.

Com o formulário feito, crie essa função, por exemplo:

Function Abreform()

Docmd OpenForm "frm_Prestadores", ......blabla

End function

No formulário frmPesquisa, na folha de propriedades de cada caixa de controle(você pode selecionar todas de uma vez)
na propriedade Ao clicar 2 vezes, digite  =AbreForm()

Pronte, teste e veja se deu certo, dúvidas retorne

[ ]'s

Pessoal, Muito Obrigado a todos! depois de muito suor, esforço e pesquisa, e graças a dica de vocês claro, consegui finalizar o trabalho! a agenda ficou ótima e do jeito que eu queria! Irei disponibilizar para download para que outras pessoas possam utilizar como modelo, ou para aprendizado. Muito Obrigado a todos.

Que bom que conseguiu, Andre!

Valeu pelo retorno!

Boa sorte!