[Resolvido]Seleção Multipla com pesquisa em tabela

Boa tarde, a um tempo atras tirei algumas duvidas com relação a este assunto conforme o link,
[url=Seleção Múltipla]http://maximoaccess.forumeiros.com/t7350-resolvidoabrir-relatorio-com-selecao-multipla[/url], que já esta resolvido, mas surgiu uma nova dúvida:

Eu tenho a caixa de listagem com valores e gostaria que o sistema preenchesse automaticamente baseado em uma tabela ou consulta, por exemplo

tabela com cores
1 - azul
2 - preto
3 - amarelo
4 - vermelho


e a lista

azul
pink
amarelo
branco
preto
vermelho
verde


gostaria que ao carregar ele ja selecionasse as cores azul, preto, amarelo, vermelho, conforme a tabela de cores.

Ps... eu usei como tabela, mas farei uma seleção utilizando de recordset, onde ele navegue nos registros 1 / 2 / 3/ 4 ..... 10.000 verificando quais as cores preencher.

Teria como fazer isso?

De mais detalhes... se possivel poste um pequeno exemplo.

Cumprimentos.

Boa tarde, entao não sei detalhar melhor, eu vou tentar separar algumas partes do banco para fazer isso...

pq a tabela que tenho é assim

CampoA CampoB CampoC CampoCor
Sac Pap Acordao M3 Azul
Sac Pap Acordao M3 Branco
Sac Pap Acordao M3 Vermelho
Sac Pap Acordao M3 Amarelo
Sac Pap Acordao M2 Azul
Sac Pap Acordao M2 Rosa
Sac Pap Acordao M2 Vermelho


entao no formulario eu gostaria que ao selecionar nos campos (caixa de combinação)
CampoA = Sac Pap
CampoB = Acordao
CampoC = M3

nesta hora ele ja assinalaria na caixa de listagem, que contem todas as cores, as cores (Azul, Branco, Vermelho, Amarelo) ou se o campoC fosse = M2 entao ele assinalaria as cores (Azul, Rosa, Vermelho).

entende?

Caixa de listagem não pode exibir cores... Podes fazer isto em subform.. ou em uma listview... há exemplos de listview na sala de repositório.

Se possivel poste um exemplo.


Cumprimentos.

Bom dia Piloto, primeiramente peço desculpas pela minha ausência e a falta de resposta no tópico, tive alguns problemas pessoais e não pude conectar e nem trabalhar em meus projetos.

Bom voltei este semana ao trabalho, mas ainda nao consegui resolver aquele problema com a lista.
estou colocando um exemplo aqui para facilitar, conforme solicitado.

Então seria assim, no formulario frm_CadastroDeProdutos
ao preencher os campos de:

Linha: SAC PAP
modelo: ACORDAO
Material: DPCOLOR
Tamanho: 3

e clicar no botão consultar, o sistema deveria preencher automaticamente com as cores da tabela "tbl produto completo" evitando que seja clicado.

ou entao:
Linha: SAC PLAST
modelo: AV
Material: ASECA
Tamanho: 20X30

E o procedimento é o mesmo.

*** motivo disso: estou colocando algumas guias para atualização de cada produto, pois o que muda é só a cor e o restante é tudo igual.

Não veio o modelo ainda amigão.

Cumprimentos.

opa desculpe.
agora sim.
Obrigado.

Segundo este modelo que me enviou... cite o que deseja.. especificando os passos.

Cumprimentos.

Então seria assim, no formulario frm_CadastroDeProdutos
ao preencher os campos de:

Linha: SAC PAP
modelo: ACORDAO
Material: DPCOLOR
Tamanho: 3

ou entao:

Linha: SAC PLAST
modelo: AV
Material: ASECA
Tamanho: 20X30

e clicar no botão consultar, o sistema deveria preencher automaticamente com as cores da tabela "tbl produto completo", a caixa des listagem "txtCores", evitando que seja clicado.

*** motivo disso.. tenho varios produtos que só mudam as cores. Então ao executar o procedimento vou preencher todos os dados de uma só vez e o sistema irá atualizar todos os itens ja existentes ou entao incluir novos itens com os dados completos, caso eu inclua cores novas.

Bom dia a todos... em algumas tentativas e erros... estou em uma parte do "erro" kkk que quase deu certo.
estou colocando o arquivo de novo que faz o que eu preciso... porém ele pega as cores erradas, pois seleciona baseado pelo indice e nao pelo codigo.

Código:

CodCor = DLookup("Cod_Cores", "[tbl Produto Cores]", "[Descrição da Cor]='" & rs("[Cod_Cores]") & "'")

Me.TxtCores.Selected(CodCor) = True

onde o CodCor é a chave primaria da tabela... mas a propriedade "selected" da caixa de listagem seleciona pelo indice.


o que fazer agora?

Veja se é isto.

https://dl.dropboxusercontent.com/u/26441349/PCP%20-%20Acesso%20-%20TesteLista.zip

Cumprimentos.

Agradeço o retorno.
Boa tarde. O link nãoo esta funcionando.

Tente novamente.

Cumprimentos.

Se for para selecionar na lista as cores dos produtos já cadastrados:

1 - Desativei na SQL as demais filtros pois não retornavam registros... Como o produto é o mesmo mudando apenas a cor, deixei apenas o primeiro critério
2 - Diminui 1 do Cod_Cor pois a listBox inicia da linha de número 0

Private Sub btnConsultar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strPegarCor As String

strPegarCor = "Select * FROM [tbl Produto Completo] WHERE [Cod_Linha] ='" & Me.txtLinha.Column(1) & "'" ' And [Cod_Modelo] = '" & Me.txtModelo.Column(1) & "' And [Cod_material] = '" & Me.txtMaterial.Column(1) & "' And [Cod_Formato] = '" & Me.txtFormato.Column(1) & "'"

Set db = CurrentDb

Set rs = db.OpenRecordset(strPegarCor, dbOpenDynaset, [dbSeeChanges])
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF

''''Comando para preencher as cores na caixa de listagem
MsgBox rs!Cod_Cores
'a Primeira linha da listBox é a de número 0 por isso há necessidade de diminuir em 1
CodCor = (DLookup("Cod_Cores", "[tbl Produto Cores]", "[Descrição da Cor]='" & rs("[Cod_Cores]") & "'") - 1)

MsgBox "Cor: " & CodCor & " / " & rs("[Cod_cores]")

Me.lstCores.Selected(CodCor) = True ' o código da cor não é o indice.

'''Final do Comando para preencher as cores na caixa de listagem
rs.MoveNext

Loop

rs.Close

Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Bem... cheguei a conclusão de que era isto que necessitava... Pois na sua explicação não havia sido claro o suficiente.

Cumprimentos.

Obrigado pelo retorno.
Mas não é bem isso, eu até cheguei bem perto, mas dai barrei nos "indices" que não batem com os cod_cores (numero da cor).
como no exemplo anexo.

Veja meu último post...

Você não havia sido claro na tua dúvida pois não é preencher a listBox com as cores.. e sim 
Selecionar em uma lista de valores múltiplos!

Boa tarde, desculpe não tinha mesmo visto o seu ultimo post.
é bem isso mesmo... era só diminuir um... e claro a forma de se expressar...

Muito obrigado pelo retorno...
e peço desculpas pela demora inicial para resolvermos o post.

Piloto. Tenho uma nova dúvida relacionada a este post:

Quando eu coloco a caixa de listagem para ordenar pela "Descrição da Cor", fica tudo fora de novo... eu obrigatoriamente tenho que manter ele ordenado pelo "código da cor"?

Da forma que está voce está checando a linha... então obrigatoriamente deve estar como na tabela.... se ordenar por cores não dará certo..

Para poder ordenar por cores terá que checar o valor na coluna da list.. e em caso igual coloca como True..

Para isto deverá utilizar o comando For Each.


Cumprimentos.

Obrigado. Vou tentar qualquer coisa posto aqui.
Valeu.

Para fazer isto independente da ordenação:

Private Sub btnConsultar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strPegarCor As String
Dim X As Integer
strPegarCor = "Select * FROM [tbl Produto Completo] WHERE [Cod_Linha] ='" & Me.txtLinha.Column(1) & "'" ' And [Cod_Modelo] = '" & Me.txtModelo.Column(1) & "' And [Cod_material] = '" & Me.txtMaterial.Column(1) & "' And [Cod_Formato] = '" & Me.txtFormato.Column(1) & "'"

Set db = CurrentDb

Set rs = db.OpenRecordset(strPegarCor, dbOpenDynaset, [dbSeeChanges])
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF

''''Comando para preencher as cores na caixa de listagem

Codcor = DLookup("Cod_Cores", "[tbl Produto Cores]", "[Descrição da Cor]='" & rs("[Cod_Cores]") & "'")

MsgBox "Cor: " & Codcor & " / " & rs("[Cod_cores]")

For X = 0 To Me.lstCores.ListCount - 1
If Me.lstCores.Column(0, X) = CInt(Codcor) Then
    Me.lstCores.Selected(X) = True
End If
Next X
'Me.lstCores.Selected(CodCor) = True ' o código da cor não é o indice.

'''Final do Comando para preencher as cores na caixa de listagem
rs.MoveNext

Loop

rs.Close

Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Perfeito, agora ficou perfeito mesmo.
era exatamente isso... Muito Obrigado.

O Fórum agradece o Retorno.