Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

ComboBox para combinar 3 informações.

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Nata1991
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Ter Out 08, 2019 11:46 am

ComboBox para combinar 3 informações.

Mensagem por Nata1991 » Ter Out 08, 2019 5:36 pm

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.
Anexos
DB_RENATA.rar
Modelo Access Dúvidas Renata
(388.45 KiB) Baixado 16 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1248
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: ComboBox para combinar 3 informações.

Mensagem por Reinaldo » Ter Out 08, 2019 10:43 pm

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];


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Nata1991
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Ter Out 08, 2019 11:46 am

Re: ComboBox para combinar 3 informações.

Mensagem por Nata1991 » Qua Out 09, 2019 9:56 am

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.
Anexos
DB_Gerenciador_Orçamento_AQ_rev14.rar
(363.51 KiB) Baixado 24 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder