[Resolvido]Filtragem de Listas

Boa Noite

Tenho uma duvida não sei onde estão a fazer mal o código.

O pretendido e fazer o clik e mostra a listagem a caixa mas aparece um caixa para colocar o valor do parâmetro.







Aqui carrega a lista principal (Equipamentos Fornecidos)
Private Function fCarregaLista()
Dim mysql As String
On Error Resume Next
mysql = "Select id_Cliente, id_Equipamento, Modelo, Marca, Data, obs "
mysql = mysql & "FROM TblEquipamentos WHERE id_Cliente = " & Nz(Me!id_Cliente, 0) & " ORDER BY Modelo;"
Me!ListaNota.RowSource = mysql
Me!cboListaParcelas = Null
Me!cboListaParcelas.RowSource = mysql
End Function

Ao Dar o Click em (Equipamentos Fornecidos) carrega a lista em (Tabela de Peças Por Modelo)
Private Sub ListaNota_Click()
Call fMontaListaAuxiliar1
End Sub

Private Function fMontaListaAuxiliar1()
Dim mysql As String
mysql = "Select id_Modelo, Codigo_Peça, Descriçao, Modelo, Marca, Peso, Dimençoes "
mysql = mysql & "FROM tblEquipamentosTabelaPeças WHERE id_Modelo = " & Nz(Me!ListaNota.Column(2), 1) & " ORDER BY id_Modelo;"
Me!ListaParcelas = Null
Me!ListaParcelas.RowSource = mysql
End Function
-------------------------------------
Agradeço uma ajudinha

Comprimentos a todos

Os nomes dos campos e da tabela estão corretos? Essa mensagem aparece quando falta algo em algum deles.

Bom dia

Inteiramente agradecido pela disponibilidade

Vou verificar essa situação as só poderei responder perto das 19h PT quando estou em casa porque no trabalho tenho a web desactivada, só tenho o email de trabalho activo.

Ate la só estou contactável por luisaraujo@eralfrio.com

Comprimentos

Bom Dia

Imposiblidado de vir a net mas robando internete do PC do patrao =P

Para referenciar que os campos colocados estao correctos.



Mas ma lista (Tabela de Peças Por Modelo) sao para aparecer multiplos valores referentes a um modelo.

Boa Noite

Sera que alguém me poderia ajudar a concluir esta situação

Comprimentos

Bom trabalho a todos

Coloque uma cópia do seu banco para que o pessoal possa ver melhor.

Pois isto faz parte de um projecto grande e tem muita coisa

Vai demorar a dividir os componentes vou ver que posso fazer

...............
Aditado.! 23h

Pensando bem vou tentar dar a volta a situação.

Se conseguir dar resolver informo.

Comprimentos agradecido pela sua disponibilidade.

ola

Tive cá a pensar numa coisa.

Será que dava para facultar um exemplo parecido com o referenciado.

Passo a explicar:

Tabela-Clientes
Tabela-equipamentos
Tabela-Peças
Tabela-serviços
Tabela-Compras
Tabela-Vendas
Coisa Simples mas...

Em vez de utilizar SubFormularios(assim teria bastantes formulários)
Utilizavando um controle de listagem onde indicamos a origem a linha ou então através de código VB

onde os campos idênticos são:
Tabela-Clientes-idcliente
Tabela-equipamentos-idcliente;N_serie;Modelo
Tabela-Peças-Modelo
Tabela-serviços-N_serie
Tabela-Compras-N_serie
Tabela-Vendas-N_serie

Tomando como ponto de partida a selecção única na caixa de listagem de Equipamentos aplica o filtros as outras caixas de listagem através dos campos semelhantes.

--- Se Poder elaborar um exemplo eu depois estudarei isso e adapto a minha necessidade e servira de base para outros componentes que tenho que elaborar no mesmo projecto.

Inteiramente Grato pela sua disponibilidade e compreensão.

Reveja os relacionamentos. Se estiver tudo correto, o que você precisa fazer é colocar o subformulário dentro do pai dele. Assim, se tiver três hierarquias, você deve ter um subformulário dentro de outro. Se for um pai com vários filhos, então fica cada filho dentro do principal.

Ola Viva

Agradeço desde já a sua ajuda.
Mas acho que seleccione uma questão....

Ao utilizar o referido código abaixo Tive que trocar as propriedades na tabela.

Estava a tentar concluir um modulo que também tinha a mesma função.

Irei indicar o código:
Private Sub ListaAR_Click()
'Mapa lista de armazens detalhado
Dim mysql As String
mysql = "Select IdArmazem, NAtribuido, CódigoDoProduto, NomeDoProduto, UnidadesEmEstoque, NomeUnidade, Bloqueado, Vasilhame "
mysql = mysql & "FROM tblEstoqueArmazem WHERE IdArmazem = " & Nz(Me!ListaAR.Column(0), 0) & ""
Call fncLxStAR
Me!LxStAR = Null
Me!LxStAR.RowSource = mysql
End Sub

Private Sub fncLxStAR()
'Mapa lista de armazens detalhado VASILHAME
Dim mysql As String
mysql = "Select NumeroAtribuido, CódigoDoProduto, Descriçao, Modelo, Numero, PesoTotal, Tara, TotalDisponivel, Unid, Limite, Destruido "
mysql = mysql & "FROM qryArmazem WHERE IdArmazem = " & Nz(Me!ListaAR.Column(0), 0) & ""
Me!ListaNota = Null
Me!ListaNota.RowSource = mysql
End Sub

O que Acontece e o seguinte Com a propriedade dos campos em "numérico"
ele acusa e mostra a listagem.

Mas se eu tiver as propriedades em forma de "txt" ele ja nao mostra nada:

Sera que tem solução?


Comprimentos

Para campos texto é preciso adicionar aspas simples:

... WHERE IdArmazem = '" & Me!ListaAR.Column(0) & "'"

Nesse caso, retire o nz.

Agradecido pela sua ajuda

Comprimentos e sucesso

Esqueci de colocar resolvido

Agradecido