[Resolvido]Relacionar caixas de combinação a partir de filtragem dos dados

Sou principiante em tudo o que respeita a bases de dados e no momento encontro me a desenvolver uma BD que me informe acerca das etapas de reprocessamento médico em Access 2010.

Desta forma, pretendo fazer um formulário com duas caixas de combinação em que na primeira escolho a classe a que pertence o produto e na segunda me daria todos os produtos dessa classe e após isso me abrisse um outro formulário com as indicações das etapas de reprocessamento.

Eu já fiz o meu primeiro formulário chamado Start, que possui duas caixas de combinacao:
ClassProduct- para escolher a classe do produto a partir da tabela Class_Of_products e da coluna Class_Name
NameProduct- para me dar os produtos da tabela Type_Of_Product que pertencem à classe escolhida anteriormente.


Será possível ajudarem-me?

Obrigada

Boa tarde, libelinha, e bem-vinda ao fórum

Que tabelas, campos (e tipos de dados) já tem?

Olá e obrigada pelo interesse e resposta .
Nunca trabalhei com a Access e bases de dados e tou mesmo aflita para conseguir fazer a interface que pretendo.

A minha BD tem as seguintes tabelas e campos:
Class_Of_Product - ID, Class_Name e How_Critical
Drying - ID, Description
Level_Desinfection - ID, Level, Why_use
Medical_Products - ID, Num_Rep, Typ_Prod
Package - ID, Feactures
Sterilization_Methods - ID, Methods
Storage - ID, Indications
Type_Cleaning - ID, Typ, Description
Type_Desinfection - ID, Typ_Desinfection
Type_Of_Product - ID, Name, Num_Max_Rep, Description, CoP, ID_Storage, ID_Package, Typ_Des, Typ_Clean, Typ_Ster, ID_Drying
Type_Sterilization - ID, Type
Validation - ID, ID_Product, ID_Cleaning

Bem, continuo aqui aflita a tentar resolver o meu problema. Eu já vi alguns códigos e já percebi mais ou menos o que tenho que fazer. A minha dúvida agora é, eu preciso de fazer um sub formulário? É que eu não queria dessa forma, queria que me aparecessem apenas as caixas de combinação.
Seria possível, indicarem me apenas como faço o código para o módulo do filtro, se é que esse tem de estar como módulo? É que não sei mesmo como fazer a instrução.
Após escolher o classe e o produto no meu formulário eu tenho um botao que me abre um outro formulário, como faço para que nesse segundo formulário me apareça como produto, o produto escolhido no primeiro formulário?
Peço desculpa pela insistência.
Fico aguardando ajuda, Pf

Obrigada..

Boa tarde, libelinha

Pelos dados que indicou não consigo discernir o relacionamento entre o ID da Class_Of_Product e o ID de Type_Of_Product
Também não vislumbro o que quer dizer "as indicações das etapas de reprocessamento."

Olá,

A relacçção entre a tabela Class_Of_Product e Type_Of_Product é de 1 pa N. Vários produtos podem ter a mesma classe mas um produto não pode pertencer a mais que uma classe. Estas duas tabelas tão ligadas apartir do campo CoP, onde a cada produt eu coloco o ID da classe a que pertence.
As etapas do reprocessamento são descriminadas nas outras tabelas, Clening, Desinfection, Sterilization, Package, entre outras. A minha tabela principal é Type_Of_Product e por isso nessa tabela tenho campos especificos para a relacionar com os ID das outras tabelas.
Não sei se me estou a fazer perceber. =(

Olá, libelinha

vamos começar e melhorar a cada passo
Nome da caixa de combinação das classes
CxcClasses.Rowsource="SELECT ID, Class_Name FROM Class_Of_Product ORDER BY Class_Name;"
CxcProdutos.Rowsource="SELECT ID, Name FROM Type_Of_Product WHERE CoP=" & CxcClasses & " ORDER BY Name;"
pode ter as caixas de combinação com duas colunas, a primeira com largura de 0cm para que fique invisível o ID

no código de botão para abrir o segundo formulário com o filtro para que apareça apenas o produto escolhido, coloque
Docmd.openform "NomeDoFormulário",,,"ID=" & CxcProdutos

Olá Alexandre,
peço desculpa pela minha ingenuidade mas realmente não percebo nada de códigos em Access.
Os códigos que me deu inicialmente devo colocados onde?
Eu já criei duas caixas de combinação, na minha primeira eu consigo escolher a classe do produto, o meu problema está em após isso na segunda aparecer me apenas os produtos respectivos a essa classe.
A minha primeira caixa chama-se fmClassProduct e a segunda fmName.

Peço desculpa pelo aborrecimento =(.

Olá, libelinha

Não peça desculpa. Os membros do fórum participam e auxiliam com sentido de voluntariado, sem esperar pagamento ou agradecimento. É sempre de bom tom só perguntar o que se tente e não consegue e, depois, os códigos cedidos ou criados pelos outros devem ser anotados como tal.
Sobre o seu caso, coloque o código no acontecimento ao entrar da caixa de combinação fmName
fmName.Rowsource="SELECT ID, Name FROM Type_Of_Product WHERE CoP=" & fmClassProduct & " ORDER BY Name;"

Eu abro o formulário, coloco em vista de estrutura, selecciono a caixa de combinação e propriedades, em evento e na opção ao clique insiro o código em construtor de código. Só que não fica a funcionar e agora quando tento escolher a classe aparece me uma lista em branco e não a lista das classes.
Que estou a fazer de errado?

Pode disponibilizar a bd, no dropbox, por exemplo?

Está disponível no seguinte link:

http://dl.dropbox.com/u/50862380/medical%20single-use%20products%20.accdb

Bom dia, libelinha

Coloque na versão 2003

Bom dia Alexandre,

no Access 2010 não é possível gravar ficheiros em formatos anteriores.
No entanto, eu fui a opções e coloquei a converter todos os dados para serem compatíveis com versões anteriores.

Não sei se é o suficiente.

O novo link é:
http://dl.dropbox.com/u/50862380/medicalProducts.accdb

Olá, libelinha

Não consigo abrir. Veja este assunto aqui tratado
http://maximoaccess.forumeiros.com/t563-conversao-access-2007

penso que agora está
http://dl.dropbox.com/u/50862380/MedicalProducts.mdb

Olá, libelinha

Tive de refazer o formulário Start porque me dava erro grave
Veja agora
http://dl.dropbox.com/u/24017093/bdLibelinha.mdb

Muito muito obrigada pela ajuda.

Já coloquei na base de dados em Access 2010 e funciona perfeitamente.

Coloquei agora um botão para me abrir um segundo formulário (RepProduct) e nesse segundo formulário aparece logo em cima uma caixa de texto (product). Nessa caixa eu queria que quando abrisse o formulário me aparecesse automaticamente o produto escolhido no formulário Start. Tentei o código que me tinha dado na mensagem anterior mas não funcionou.
Devo coloca-lo apenas na caixa de texto e antes do update, certo?

Libelinha,

Veja agora
http://dl.dropbox.com/u/24017093/bdLibelinha.mdb

Vou-me deitar que amanhã tenho de me levantar cedo. Durante a semana, será difícil voltar ao fórum mas, se puder, aparecerei.
Bom trabalho.

Tá a funcionar mesmo como queria.
Muito muito obrigada, ainda por cima por disponibilizar parte do seu tempo a um Domingo. Se houver alguma maneira de agradecer por favor diga-me.
Mais uma vez obrigada, tentarei fazer o resto sozinha já que agora acho que me basta adaptar os códigos iniciais. Se tiver alguma dúvida eu posto caso não consiga resolver.

Boa tarde, seria possivel apenas indicar me a linha de código para que no segundo formúlário (RepProduct), na caixa de texto (Description), me aparecesse a descricao do produto indicado numa primrira caixa de texto (TxtProduct)?
os dados para filtrar essa descricao encontram-se na tabela Type_Of_Product, no campo Description.

Boa tarde,

na minha base de dados eu tenho dois formulários (Start e RepProduct). No RepProduct eu possua duas caixas de texto, a primeira (TxtProduct) é utomaticamente preenchida a partir do primeiro formulário que serve para escolher um produto dentro de uma classe de produtos.
Agora pretendo que na segunda caixa (TxtDescription) me apareça a descrição do produto escolhido automaticamente. Os dados estão numa tabela designada Type_Of_Product.

Eu coloquei o seguinte código, mas ao clicar na caixa de texto aparece me a instrução em SQL em vez de me ir buscar os dados á tabela.

Option Compare Database
Option Explicit



Private Sub TxtDescription_Enter()
Dim strSql As String
strSql = "SELECT Description FROM Type_Of_Product WHERE Name=TxtProduct';"
Me.TxtDescription = strSql
End Sub

Será possivel ajudarem me?

Boa tarde, libelinha
crie caixa de texto TxtDescription, coloque como origem do controlo o campo Description.

Boa tarde Alexandre,

Essa parte eu já consegui a partir do código seguinte:
Private Sub TxtDescription_Enter()
Dim rs As Recordset


Set rs = CurrentDb.OpenRecordset("Type_Of_Product", dbOpenDynaset)
rs.Filter = "Name like '" & TxtProduct & "'"
Set rs = rs.OpenRecordset
Me.TxtDescription = rs("Description")

End Sub


Agora, tenho outra caixa de texto (TimesRep) que me vai buscar os valores a uma consulta (How many more times Rep) para o mesmo produto escolhido. Mas dá-me um erro na linha Me.TimesRep = rs('Num_Rep'). É pelos valores tarem em forma de numero? O que devo alterar?


Private Sub TimesRep_Enter()

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("How many more times Rep", dbOpenDynaset)
rs.Filter = "ID like '" & TxtProduct & "'"
Set rs = rs.OpenRecordset
Me.TimesRep = rs('Num_Rep')

End Sub

Olá, libelinha

Não precisa utilizar o código, basta fazer como referi. Aliás, testei e funcionou
Sobre a segunda questão, utilize a função dlookup. Provavelmente, terá de utilizar dois dlookup's aninhados, o primeiro vaiprocurar o ID correspondente e o segundo vai buscar a descrição a partir do ID

A parte da descrição está a funcionar correctamente.
Acho que não percebeu, o que quero é que a partir da caixa de texto (TimesRep), me vá á consulta (How many more times Rep) e me indique quantas vezes o material cujo nome aparece automaticamente na caixa de texto (TxtProduct) já foi reprocessado.
Eu já tentei com essa função seguindo um exemplo do Norbs que vi num post neste fórum, mas não funcionou. Então fiz esse código para me ir buscar a descrição do produto e funciona perfeitamente, mas na segunda caixa onde quero que me dê o número de vezes reprocessadas já não funciona, fiquei com a ideia de que seria por ser número e não texto nesse caso.

Os dois dlookup's aninhados que falei
Private Sub TimesRep_Enter()
Me.TimesRep = DLookup("Num_Rep","How many more times Rep","ID =" & DLookup("ID","Type_Of_Product","name='" & TxtProduct &"'") )
End Sub

Alexandre,

Mais uma vez muito obrigada pela ajuda e disponibilidade.
Já tinha tentado com essa função mas não tinha conseguido.
O resto acho que será fácil fazer sozinha uma vez que os códigos devem ser idênticos.

Obrigada

Libelinha resolveu então só falta marcar o famoso "Resolvido" ou se algum moderador puder.....

Marcado Resolvido