[Resolvido]FiltroCombo - ajuda

Olá Pessoal,
Preciso mais uma vez da ajuda de vocês.
Encontrei um exemplo de Filtro perfeito para o que preciso.
O Exemplo tem as tabelas: tblEstado - TblCidade - Clientes(nesta tabela o campo chave é Tipo TEXTO.

As minhas tabelas são: Condominio - Bloco - Apartamento(campo chave Numeração Automática)

Já pude constatar que o erro que acontece, é que no exemplo o campo chave da tabela CLIENTE é texto e o da minha tabela Apartamento é numero).
Não estou sabendo corrigir o erro que mostra no VB. Poderiam me ajudar.
Estou disponibilizando o arquivo para melhor entendimento de vocês.

http://www.speedyshare.com/files/23041706/filtroCombo.zip

muito grata
Stella Maris

Olá Stella,

Onde tem: Sql = Sql & " Where CodApto='" & Me.CombApto & "'" 'tipo string
coloque: Sql = Sql & " Where CodApto=" & Me.CombApto & ";" 'tipo string

-> para dados texto: ...'abc'...
-> para dados número ...123...
-> para dados data ...#mm-dd-yyyy#

Saudações,

Alexandre,
bom dia,

Troquei a expressão, porém não funcionou.
Aparece a seguinte mensagem:
Erro 2580 - com a seguinte mensagem: A fonte de registro 'Falso' especificada neste formulário ou relatório não existe"
o que faço?
grata

Stella, no evento "Após atualizar" da terceira combo, eu substituí a linha

Sql = Sql & " Where CodApto='" & Me.CombApto & "'" 'tipo string

por

Sql = Sql & " Where CodApto=" & Me.CombApto 'tipo string

Funcionou certinho aqui. Tente aí.

Como disse o Alexandre, as aspas simples são para campos tipo texto, quando é campo tipo numérico, elas não são usadas.

Espero que resolva direitinho aí para você.

Abraço.

Criquio

Perfeito!
Adorei este exemplo e vou guardá-lo para futuro.
Funcionou mesmo

obrigada pela ajuda de Vocês
e um grande abraço

Stella

Obrigado pelo retorno, Stella. Precisando, estamos por perto.

Criquio,

me tira um dúvida com relação a este formulário.
Eu poderia criar um outro combo neste form para que fosse para preenchimento?
exemplo:
Localizo, o Condominio, Bloco e Apartamento e no 4o. combo (tab ADVERTENCIA) eu incluiria os dados, como formulario de preenchimento.
É possivel?
Eu preciso de algo deste genero
grata
Stella

Stella, você pode colocar quantas combos quiser, desde que tenha relação entre as tabelas usadas no sistema. Basta ver como as combos filtram os dados e fazer a implementação na quarta combo seguindo o esquema das anteriores.

Sim eu imaginei isso, porém acredito que na ultima combo devo colocar algum tipo de procedimento que me permita INCLUIR dados, não é isso?

Creio que não entendi muito bem a questão. Se puder explicar de forma ligeiramente diferente talvez eu entenda melhor, rsrsrs.

Eu quero aproveitar este formulário com as 3 combos existentes, porém gostaria de colocar uma 4a combo, sendo que nessa COMBO eu preencheria dados em um tabela ADVERTENCIA.

O formulário atual eu até posso alterar os dados do APARTAMENTO.
Mas eu quero colocar outra para registrar(incluir) dados.

espero ter me expressado melhor

Esses dados então não tem nada a ver com os dados das três combos já existentes, é isso? E você deseja gravá-los em outra tabela? Deseja gravar apenas esses dados vindos da quarta combo na outra tabela ou pretende adicioná-los aos dados vindos das três combos já existentes? Ou no caso da quarta combo, você não vai usar as três primeiras, mas apenas essa quarta?

Criquio

respondendo na ordem de suas perguntas:

- Sim
- Sim, na tabela ADVERTENCIA
- Pretendo gravar apenas os dados vindos da 4a combo na tabela Advertencia (o vinculo é o codApto na tab advertencia) NÃO pretendo adicionar aos dados das outras combos.
- Eu quero aproveitar para locaizar os dados com as 3 combos existentes, e usar a 4a. combo onde eu irei gravar os dados na tab advertencia.

grata

Isso vai ficar um pouco estranho, pois a terceira combo já joga dados no formulário e para a quarta combo provavelmente serão outros campos, outros dados. Existe a possibilidade de, ao atualizar a quarta combo, tornar alguns campos já inseridos no formulário inativos, caso necessário, e usar campos do formulário, preenchidos pela terceira combo, como entrada de dados para a quarta combo. Para isso seria interessante mudar tambem o caption dos labels para ajustar ao valor dos campos. outra possibilidade seria colocar uma checkbox que ao ser marcada, permitisse que só seja jogados os dados no form após atualizar a quarta combo.
Mas acho que o melhor seria colocar um botão para abrir um segundo formulário filtrado pelos campos que você precisa do formulário ativo.

Criquio,

Consegui o que queria, vou te explicar o que fiz e ficou perfeito!
Aproveitei as 3 combos iniciais, vinculei o campo cod_apto com o cod_advert, criei dento do formulário um subformulario com este vinculo e funcionou perfeitamente, está localizando nas 3 combos e incluindo dados na tabela ADVERTENCIA.
Parece maluquice, mas está funcionando perfeitamente, estou fazendo os testes.
obrigada por sua boa vontade,

Acho que esta dica seria interessante para o pessoal do forum, vc pode testar no arquivo que vc tem ai que mandei e vê se não vale a pena passarmos essa dica para o pessoal!
Adorei irei fazer todos os meus forms desta forma, até porque tudo é baseado no Condominio, Bloco e Apartamento.

um abraço
Stella

Ótimo. Você pode colocar o exemplo no Repositório, se quiser, coloando só os elementos necessários em uma cópia do bd e com dados fictícios.

Criquio

mas eu como usuario posso colocar este exemplo?
E como faço para colocar, existe alguma ordem ou regra?

Stella

Stella, você pode colocar em um site público, criar um tópico no Repositório e postar o link. Eu recomendo colocar em um site que não exclua o arquivo caso fique um tempo sem acesso. Eu uso o www.esnips.com e o www.dropbox.com
O dropbox instala um add-on no seu pc que faz com que você possa colocar o arquivo na pasta pública dele e imediatamente ele fica disponível no servidor do dropbox para download. Aí é só clicar no arquivo com o botão direito, escolher a opção Copiar link e colar aonde quiser.

Criquio
Preciso de mais uma orientação sua.
Preciso trocar a tabela APARTAMENTO pela consulta ConsGaragemForm, na 3a. combo, porém está dando erro, a seguir te mando o codigo com a alteração para vc analisar onde estou errando.

Option Compare Database
Option Explicit

Private Sub CombApto_AfterUpdate()
Dim Sql As String
If Me.CombApto.ListIndex = -1 Then Exit Sub
Sql = "SELECT *"
Sql = Sql & " FROM query.ConsGaragemForm"
Sql = Sql & " Where CodApto=" & Me.CombApto 'tipo string
Me.RecordSource = Sql
Me.Section(0).Visible = True
End Sub

Private Sub CombBloco_AfterUpdate()
Dim Sql As String
Sql = "SELECT CodApto,Apt_Numero, ConsGaragemForm.CodBloco"
Sql = Sql & " FROM query.ConsGaragemForm
Sql = Sql & " Where query.ConsGaragemForm.CodBloco=" & Me.CombBloco & "" 'tipo numerico
Me.Section(0).Visible = False
Me.CombApto = ""
Me.CombApto.SetFocus
Me.CombApto.RowSource = Sql
End Sub

Private Sub combCondo_AfterUpdate()
Dim Sql As String
Sql = "SELECT DISTINCT Bloco.Codbloco, BlocoNome, CodCondo"
Sql = Sql & " FROM Bloco INNER JOIN query.ConsGaragemForm ON Bloco.CodBloco = query.ConsGaragemForm.CodBloco" - ESTA DANDO ERRO AQUI INNER JOIN
Sql = Sql & " Where Bloco.CodCondo=" & Me.combCondo & "" 'tipo numerico
'Limpa as combos
Me.CombBloco = ""
Me.CombApto = ""
Me.CodBloco.Requery
'Limpa a lista cliente
Me.CombApto.RowSource = ""
'Deixa invisível a seção detalhe do form
Me.Section(0).Visible = False
'Direciona o foco para o próximo controle
Me.CombBloco.SetFocus
'preenche a lista cidade com os dados retornados na Sql
Me.CombBloco.RowSource = Sql
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.combCondo.SetFocus

End Sub


OBRIGADA

Stella Maris

Conforme eu disse outro dia, acho mais fácil identificar problemas se estiver trabalhando no sistema, mas tente o código abaixo:

Option Compare Database
Option Explicit

Private Sub CombApto_AfterUpdate()
Dim Sql As String
If Me.CombApto.ListIndex = -1 Then Exit Sub
Sql = "SELECT *"
Sql = Sql & " FROM query.ConsGaragemForm"
Sql = Sql & " Where CodApto=" & Me.CombApto 'tipo string
Me.RecordSource = Sql
Me.Section(0).Visible = True
End Sub

Private Sub CombBloco_AfterUpdate()
Dim Sql As String
Sql = "SELECT CodApto,Apt_Numero, ConsGaragemForm.CodBloco"
Sql = Sql & " FROM query.ConsGaragemForm
Sql = Sql & " Where query.ConsGaragemForm.CodBloco=" & Me.CombBloco 'tipo numerico
Me.Section(0).Visible = False
Me.CombApto = ""
Me.CombApto.SetFocus
Me.CombApto.RowSource = Sql
End Sub

Private Sub combCondo_AfterUpdate()
Dim Sql As String
Sql = "SELECT DISTINCT Bloco.Codbloco, BlocoNome, CodCondo"
Sql = Sql & " FROM Bloco INNER JOIN query.ConsGaragemForm ON Bloco.CodBloco = query.ConsGaragemForm.CodBloco" - ESTA DANDO ERRO AQUI INNER JOIN
Sql = Sql & " Where Bloco.CodCondo=" & Me.combCondo 'tipo numerico
'Limpa as combos
Me.CombBloco = ""
Me.CombApto = ""
Me.CodBloco.Requery
'Limpa a lista cliente
Me.CombApto.RowSource = ""
'Deixa invisível a seção detalhe do form
Me.Section(0).Visible = False
'Direciona o foco para o próximo controle
Me.CombBloco.SetFocus
'preenche a lista cidade com os dados retornados na Sql
Me.CombBloco.RowSource = Sql
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.combCondo.SetFocus

End Sub

Criquio
Estou te mandando o arquivo, porque não funcionou, preciso usar esta consulta, onde também tem o campo cod_apto.

http://www.speedyshare.com/files/23091236/CONDO2.zip

grata

Stella

Estou fora de casa e meio atrapalhado com umas coisas aqui. Se alguem puder dar uma mãozinha para a nossa amiga, ficaríamos gratos.

Bom Dia Stella;
Veja se é isto, teste na Combo Condominio escolher "LIMA CONDOMINIO"
http://dl.dropbox.com/u/771097/CONDO2_OLD.rar

JPaulo

Perfeito, é isso mesmo.
Você pode me dizer onde eu estava errando?
Porque irei usar este formulário como base, e usarei com outras consultas.
Obrigada por atender-me
um grande abraço

Stella

No Access não existe esta instrução;

query.ConsGaragemForm.CodBloco

A referencia é feita sempre pelo nome da tabela ou consulta, por isso não se deve ter os nomes das consultas igual aos das tabelas.

Você tambem não coloca no vba:

table.BLOCO.CodBloco

Valew pelo retorno, tópico resolvido.

JPaulo

Muito obrigada, Você é show, sempre me ajudando!
Estou sempre aprendendo com vocês !

um grande abraço
Stella