[Resolvido]Problemas com Combo box em Consulta

Bom Dia Pessoal...

Preciso de uma ajuda urgente!

Estou criando um formulário no Access 2007, e tenho dois combobox e um botão de pesquisar, porém estou tentando fazer 3 validações que quando clicar no botão de "Pesquisar" ele tem que verificar se os combos estão preenchidos ou não, se não estiverem preenchidos é para aparecer uma caixa indicando o erro.

O problema é que eu não estou conseguindo diferenciar um combo do outro... Como faço?
Segue o código abaixo...

Private Sub Bt_Pesquisa_Click()

If Me.NM_ESTADO = Empty Then
MsgBox "Escolha ao menos um estado!", vbExclamation, "Consulta á Clientes"
End If

If Me.NOME_CLIENTE = Empty Then
MsgBox "Escolha ao menos um cliente!", vbExclamation, "Consulta á Clientes"
End If

End Sub

Só que tanto o Me.NM_ESTADO como o Me.NOME_CLIENTE não funcionam a validação...

Tente assim:

If IsNull(Me.SuaCombo1) Or Me.SuaCombo1.Value = "" Then
    MsgBox "Mensagem 1", vbOkOnly + vbCritical, "Atenção"
ElseIf IsNull(Me.SuaCombo2) Or Me.SuaCombo2.Value = "" Then
    MsgBox "Mensagem 2", vbOkOnly + vbCritical, "Atenção"
ElseIf IsNull(Me.SuaCombo3) Or Me.SuaCombo3.Value = "" Then
    MsgBox "Mensagem 3", vbOkOnly + vbCritical, "Atenção"
End If

Oi Criquio, deu certo! ^^

Será que você pode me ajudar num segundo passo?

Nesse formulário eu tenho esses dois combos e um botão de pesquisar, onde eu escolho o estado e o cliente(combo) e clico no botão pesquisar pra fazer um filtro e me retornar da tabela apenas as informações dos dados selecionados nos dois combos... como faço?

Essa pesquisa já está sendo feita? Pelo que entendi de acordo o texto, já está. Mas uma forma de se fazer isso seria você criar uma consulta à partir dessa tabela e no critério dos campos a serem filtrados, você coloca a referência às combos:

Como Forms!NomeDoFormulário!NomeCombo1
Como Forms!NomeDoFormulário!NomeCombo2

Cada um no critério do respectivo campo na consulta. Se já tem o subformulário com origem na tabela, mude a origem para a consulta e no botão que você clicar para filtrar, junte a linha abaixo ao código que valida campos vazios:

Me.NomeDoSubformulário.Requery

Código completo:

If IsNull(Me.SuaCombo1) Or Me.SuaCombo1.Value = "" Then
    MsgBox "Mensagem 1", vbOkOnly + vbCritical, "Atenção"
ElseIf IsNull(Me.SuaCombo2) Or Me.SuaCombo2.Value = "" Then
    MsgBox "Mensagem 2", vbOkOnly + vbCritical, "Atenção"
ElseIf IsNull(Me.SuaCombo3) Or Me.SuaCombo3.Value = "" Then
    MsgBox "Mensagem 3", vbOkOnly + vbCritical, "Atenção"
Else
    Me.NomeDoSubformulário.Requery
End If

Bom, acho que não consegui vizualizar direito o que você disse...

Eu tenho tanto um Form quanto uma Consulta com todos os dados da tabela, só não entendi onde que eu vou colocar as informações que você passou:
Como Forms!NomeDoFormulário!NomeCombo1
Como Forms!NomeDoFormulário!NomeCombo2

No Aguardo,

Bom...tentei fazer isto aqui, mas ele aparentemente não faz nada:

If IsNull(Me.NM_ESTADO) Or Me.NM_ESTADO.Value = "" Then
MsgBox "Escolha ao menos um estado!", vbOKOnly + vbCritical, "Atenção"

ElseIf IsNull(Me.NOME_CLIENTE) Or Me.NOME_CLIENTE.Value = "" Then
MsgBox "Escolha ao menos um cliente!", vbOKOnly + vbCritical, "Atenção"

Else

DoCmd.OpenForm "FormPesquisa"
Forms!FormPesquisa!NM_ESTADO_DDD = Me.NM_ESTADO
Forms!FormPesquisa!NOME_CDC = Me.NOME_CLIENTE

End If

Poderia me explicar o que está errado?

O critério deve ser colocado na consulta, na linha critério abaixo de cada campo que será filtrado, como na figura anexa:

Bom...fiz as modificações que você me disse mas ele fica acusando este erro na linha do

Me.FormPesquisa.Requery

Ele da o erro de Método ou membro de dados não encontrado.

Verifiquei o nome do form tudo direitinho mas esse erro persiste.

Outro problema... coloquei critério na consulta
Como [Formulários]![Forms]![FormPesquisa]![NM_ESTADO]
Como [Formulários]![Forms]![FormPesquisa]![NOME_CLIENTE]

Só que ele abre uma janela pra digitar o estado e o nome do cliente, pra daí fazer o filtro...No caso pra mim eu precisava que ele funcionasse direto do combo e clicando no botão ele já trouxesse a pesquisa...

Aguardo respostas.

Tire o Forms!:

Como [Formulários]![FormPesquisa]![NM_ESTADO]

Verifique se está usando o nome certinho do controle do subform no Requery. É o nome do controle que está no form principal e não o do formulário que alimenta esse controle.

tirei o Forms!, mas continua pedindo as informações novamente....

Tente adicinar .Column(0) depois do nome das combos. Se tiver mais de um campo nelas, tem que trocar o (0) pelo número do índice certo.

Bom Dia Criquio,

Infelizmente não deu certo nem assim:
Como [Formulários]![FormPesquisa]![NM_ESTADO].Column(0)

e nem assim:
Como [Formulários]![FormPesquisa]![NOME_CLIENTE]

Ou eu devo estar fazendo muito errado ou não entendi...

O erro do Me.Formulario.Requery abaixo do Else continua...

Pode me dar um help?

Cibele bom dia.

Se preferir, você pode colocar o seu banco ou parte dele neste site publico e depois colocar aqui o link que gera, para analisarmos melhor o seu problema.

http://www.speedyshare.com/

Por outro lado, o .Column(0) não funciona nem nunca funcionou em criterio direto na consulta.

O Como [Formulários]![Forms]![FormPesquisa]![NM_ESTADO], é um erro do Criquio na imagem passada, mas errar é humano, basta ter em atenção e ver que tem duas vezes Formulários escrito, mas um deles está em Inglês.

Bom Dia JPaulo, tudo bem?

Você poderia me passar seu e-mail pra que eu te envie o cenário? aqui no trabalho eu não consigo passar as imagens pro fórum.

Vou dar um "overview" na situação...

Criei um Form com dois campos de seleção: ESTADO e CLIENTE, essas informações eu trago de uma consulta que criei pra cada(Até ai tudo bem). A idéia é selecionar um estado e um cliente e clicar no botão de Pesquisar e ele me trazer uma consulta filtrada com os dados do combobox. Só que eu não estou conseguindo fazer esta parte...

Poderia me ajudar?

jpaulo65@gmail.com

Você só mandou as imagens, e eu fico sem saber na mesma.

Esse form Base_Mobilidade, é só um form para pesquisa, certo ?


E quando você pressionar o botão Pesquisar, quer que abra já filtrado o quê ?

Um form, popular um SubForm ou abrir a consulta ?

Desculpe, não foi o arquivo?

O form Base_Mobilidade é sim form para pesquisa.

Eu criei um form baseado na tabela e uma consulta, eu queria saber como abrir tanto a consulta como o form.

Veja o simples;

http://dl.dropbox.com/u/771097/Cibele%20.rar

Oi JPaulo,

Seu exemplo me ajudou a entender e muito!!!

Porém...Olhei o seu arquivo e fiz as alterações no meu, só que na hora de clicar no pesquisar ele está trazendo apenas a 1ª linha de resultado e trazendo o restante...

O que pode ser?

Não entendi...rsrsrsrs

apenas a 1ª linha de resultado e trazendo o restante

Ao que parece você quer é filtrar uma combo à partir de outra para depois filtrar o formulário à partir dessas duas, não? Eu não tinha entendido a princípio a necessidade. Acho que quando fui escrever o critério na consulta para printar, devo ter dado enter e o form passou para formulário a depois acabei coloando outro form sem querer e por isso a foto ficou errada.

Magina Criquio, você me ajudou muito também!

O exemplo que o JPaulo me passou, exemplo: eu entendi que selcionando "Amazonas" no primeiro combo o segundo já me mostra apenas os clientes que estão em "Amazonas", e ai clicando no botão de Pesquisar ele busca as duas informações dos combos e traz filtrando no form de resultado... é isso né?

Então... no meu... selecionando (exemplo) "SP", ele continua trazendo todos os clientes no combo debaixo... e ao selecionar o cliente (exemplo) "5 Estrelas" e clico no botão de pesquisar, ele traz a primeira linha com o cliente "5 Estrelas" só que abaixo ele traz todos os registros também...

Tô errando legal em algum ponto... =/

JPaulo... acabei de te mandar um e-mail com o meu banco de dados... porque infelizmente não posso publicá-lo aqui por conta das informações contidas nele...

Mas o anexo do JPaulo é um exemplo muito bacana e funcional!

Oi pessoal...como faço pra subir um arquivo .rar?
Tô tentando subir o meu, mas ele da erro de nome inválido...

No Aguardo,

Seu arquivo precisa ser do tipo zip e não rar. E precisa enxugar bem senão ultrapassa o tamanho máximo permitido tambem.

Cibele bom dia !

Você tem de estudar bem o exemplo que lhe passei, não só para aprender como tambem para perceber como funciona.

Veja com atenção, as modificações que fiz no seu banco;

http://dl.dropbox.com/u/771097/Banco%20de%20Dados1_OLD.rar

Nota:
Deletei tudo o que não fazia falta para este teste, e tambem deletei os 34.200 registros, ficando apenas alguns para você ver os filtros a funcionarem.

Bom Dia Pessoal,

JPaulo... estou revisando o seu exemplo e a minha "aplicaçãozinha"... Logo postarei o resultado pra vocês...

Obrigada desde já!

Alguém poderia me ajudar a "enxergar" o que fiz de errado?

Nesse código aqui, executando ele pela consulta ele tá fazendo certinho, me trazendo todos os registros do mesmo estado e cliente... só que quando eu executo pelo formulário não da certo...

SELECT Base_Mobilidade.ANOMES, Base_Mobilidade.NO_CPF_CGC_TITULAR, Base_Mobilidade.[RAIZ CNPJ], Base_Mobilidade.NM_ESTADO_DDD, Base_Mobilidade.RAIZ_UF, Base_Mobilidade.RAZAO_SOCIAL, Base_Mobilidade.NOME_CDC, Base_Mobilidade.GRUPO, Base_Mobilidade.CD_DIRETORIA_B2B, Base_Mobilidade.QTD, Base_Mobilidade.NOME_GER_VENDAS, Base_Mobilidade.SUPERVISOR_VENDAS, Base_Mobilidade.NOME_GER_CONTA_NAC, Base_Mobilidade.REGIONAL, Base_Mobilidade.RELACIONAMENTO
FROM Base_Mobilidade
GROUP BY Base_Mobilidade.ANOMES, Base_Mobilidade.NO_CPF_CGC_TITULAR, Base_Mobilidade.[RAIZ CNPJ], Base_Mobilidade.NM_ESTADO_DDD, Base_Mobilidade.RAIZ_UF, Base_Mobilidade.RAZAO_SOCIAL, Base_Mobilidade.NOME_CDC, Base_Mobilidade.GRUPO, Base_Mobilidade.CD_DIRETORIA_B2B, Base_Mobilidade.QTD, Base_Mobilidade.NOME_GER_VENDAS, Base_Mobilidade.SUPERVISOR_VENDAS, Base_Mobilidade.NOME_GER_CONTA_NAC, Base_Mobilidade.REGIONAL, Base_Mobilidade.RELACIONAMENTO
HAVING (((Base_Mobilidade.NM_ESTADO_DDD) Like "*" & [Forms]![FormPesquisa]![NM_ESTADO] & "*") AND ((Base_Mobilidade.NOME_CDC) Like "*" & [Forms]![FormPesquisa]![NOME_CDC] & "*"));

Cibele boa tarde !

Você quer resolver isto de uma vez só ?

Então vamos lá:

1º Delete o seu formulario "Base_Mobilidade"

2º Importe para o seu banco o formulario "Base_Mobilidade" deste ultimo que lhe mandei e que o link ainda aqui está.

JPaulo, Boa Noite!

Muito obrigada pelo seu exemplo... nem cheguei a baixar o outro arquivo que você postou aqui no Fórum... Na verdade a dificuldade que tive foi porque os nome tanto de tabelas quanto consultas eram semelhantes...então comecei a confundir um com o outro...

Muito obrigada pela ajuda e pelo tempo de vocês!

Só vou abrir outro tópico pq a dúvida agora é outra...rs

Obrigado pelo retorno o forum agradece.