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 5 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: 1226
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 8 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