[Resolvido]Sincronizar caixas de listagem

Boa noite
1- Desculpas por estar postando o mesmo tipo ade assunto.
Mas não é bem o mesmo.

Nesse meu tópico,
https://www.maximoaccess.com/t27202-resolvidoerro-4-caixas-de-listagem-sincronizadas
ajudaram-me bastante.

Todavia, encontrei um cadastro com 25 000 genéricos e suas indicações.
Para nós da área da saúde, creio que não haja nada mais completo.
só que como é muito extenso não consegui criar 4 tabelas e relacioná-las.
Optei por uma única tabela.
E não sei como sincronizar da forma correta essas 4 caixas de lista, de modo a criar um cadastro para escolha de um farmaco.

Se alguém puder ajudar...

Obrigado

Mylton como o objetivo é o Aprendizado, fiz apenas para a Segunda Combo... Faça para as demais, mas nao copie e cole... Entenda o que foi feito... Tente fazer sozinho... Se aparecer a duvida avisa aqui que respondo se souber, e claro...

Bom dia
Fábio
Apliquei seu ensinamento
Private Sub ListaClasseTerapeutica_AfterUpdate()
Me.ListaPrincipioAtivo.RowSource = "SELECT PrincipioAtivo FROM Farmaco WHERE ClasseTerapeutica = '" & Me.ListaClasseTerapeutica.Column(0) & "'"
End Sub


Lista 2.....
Private Sub ListaPrincipioAtivo_AfterUpdate()
Me.ListaApresentacao.RowSource = "SELECT Apresentacao from Farmaco where PrincipioAtivo = '" & Me.ListaPrincipioAtivo.Column(0) & "'"
End Sub

funcionou!


Lista 3....

Private Sub ListaApresentacao_AfterUpdate()
Me.ListaNomeFantasia.RowSource = "SELECT NomeFantasia from Farmaco where Apresentacao = '" & Me.ListaNomeFantasia.Column(0) & "'"
End Sub


Meu raciocínio.....
A caixa lista apresentação após atualizar manda para a caixa nome fantasia a seleção dos nomes fantasias da tabela farmaco dentro do critério apresentação, isso na caixa nome fantasia.

Não funcionou.



Outra dúvida...
Como alguns nomes acabam se repetindo, até mesmo porque se repetem mesmo na tabela, teria como na caixa deixar apenas um nome? Desde que seja idêntico em um tudo.

Seu raciocinio quase foi certo amigo.... Veja bem...

Eu quero carregar a lista seguinte (nome Fantasia) com os dados, quando o Campo Apresentação for igual ao que tiver na Combo APRESENTAÇÃO.



Private Sub ListaApresentacao_AfterUpdate()
Me.ListaNomeFantasia.RowSource = "SELECT NomeFantasia from Farmaco where Apresentacao = '" & Me.ListaNomeFantasia.Column(0) & "'"
End Sub


Correto é:

Private Sub ListaApresentacao_AfterUpdate()
Me.ListaNomeFantasia.RowSource = "SELECT NomeFantasia from Farmaco where Apresentacao = '" & Me.ListaApresentacao.Column(0) & "'"
End Sub






Sobre o Agrupamento, basta mandar agrupa no final do SQL, deve mandar agrupar por todos os campos que devem ser Iguais... Como nao sei quais são, veja vc quais devem ser a adapte de acordo com o exemplo a seguir:


Private Sub ListaClasseTerapeutica_AfterUpdate()
Me.ListaPrincipioAtivo.RowSource = "SELECT PrincipioAtivo FROM Farmaco WHERE ClasseTerapeutica = '" & Me.ListaClasseTerapeutica.Column(0) & "' GROUP BY PrincipioAtivo, Laboratorio"

End Sub


Veja que nesse Caso ele irá agrupar somente quando os dados forem iguais nos Campos: PrincipioAtivo, Laboratorio

Coloque os outros da mesma forma: PrincipioAtivo, Laboratorio, Apresentacao, ....

Rs....
Bati na trave...rsrs...
Mas sua dica certeira mais uma vez.
Obrigado.
Vou pedir ao administrador para disponibilizar no repositório, afinal o tamanho excede a capacidade de envio.
Obrigado.
Gde Abs.

Faltou o resolvido.