Página 1 de 1

ComboBox para combinar 3 informações.

Enviado: Ter Out 08, 2019 5:36 pm
por Nata1991
Pessoal boa tarde,
Eu preciso relacionar o seguintes campos Categoria -> Modelo = Preço.
No qual quando eu selecionar o modelo da máquina com base na sua categoria o campo preço será preenchido automaticamente.
Para isso eu estou usando o sample da "Northwind" e criei uma comboBox e uma tabela "Categories" e já a relacionei com a tabela "Products".
No VBA eu escrevi o seguinte para selecionar o modelo conforme sua categoria :

Private Sub cboCategories_AfterUpdate()

Me.cboProducts.RowSource = "SELECT ProductName FROM" & _

" Products WHERE CategoryID = " & Me.cboCategories & _

" ORDER BY ProductName"
End Sub

Porém agora não sei como escrever para que o preço que eu especifiquei para cada modelo na tabela "Products" apareça no campo "Unit Price" do formulário, quando eu selecionar o modelo.
Alguém pode me ajudar, coloquei o arquivo em anexo?

Muito Obrigada.

Re: ComboBox para combinar 3 informações.

Enviado: Ter Out 08, 2019 10:43 pm
por Reinaldo
Nãoconsegui determinar onde consta o preço esperado;
Sua tabela Categories tem apenas Id e Name, está relacionada no tabela products até ai OK,
o preço/valor está onde?
Sua consulta poderia ser algo

Código: Selecionar todos

SELECT Products.ID, Products.[Cód Produto], Products.ProductName, Categories.CategoryName, Products.[List Price]
FROM Categories INNER JOIN Products ON Categories.[CategoryID] = Products.[CategoryID];

Re: ComboBox para combinar 3 informações.

Enviado: Qua Out 09, 2019 9:56 am
por Nata1991
Bom dia Reinaldo,

O preço/valor está na tabela "Products" também. O código que você sugeriu acima eu inseri no campo "Origem da linha" da minha caixa de combinação "Modelo", porém aparece o seguinte erro: "O valor que você inseriu não é válido para este campo".
Eu anexei o arquivo accbb, você poderia por gentileza verificar se eu inseri o código no campo certo?
Eu ainda sou leiga, mas acho que para fazer essa relação que eu quero tem que construir um script no VBA, eu só não sei o que escrever... :cry:

Muito Obrigada.