[Resolvido]Como aplicar um código semelhante de uma combobox para se obter o mesmo resultado em uma caixa de texto?

Olá Pessoal!

Tenho uma caixa de combinação (combobox) com o seguinte código:

Private Sub Comb_Quant_AfterUpdate()
Me.Comb_VT1.RowSource = "SELECT V_id, Valores FROM V WHERE Q_id=" & Me.Comb_Quant
Me.Comb_VT1.Requery
End Sub

E funciona perfeitamente. Só que eu quero que o resultado desta combobox, seja exibida em uma caixa de texto.

Alguém poderia me ajudar a como redigir um código para caixa de texto?

Desde já, muito agradecido!

Arquivo para TESTE:
https://mega.nz/file/pRxlRQYA#X9ykl0do6IDV6pdKxH4c5UwLrcdVnfBUvsfjmr07Kkg

Olá,

Pelo que eu entendi, copie e cole no código do form:

Código:


'-- by Alexandre Fim - Forum Maximo Access
Private Sub Comb_VT1_AfterUpdate()

    Me.Texto177.Value = Comb_VT1.Column(1)

End Sub


É isso.

Att,
FIM

Olá Alexandre!

Já tentei isso também, mas para aparecer o valor na caixa de texto, tenho que clicar na aba da combobox e selecionar o valor.

Poderia me ajudar de outra forma?

Giliard,

Por gentileza, me informe que valor que vc quer.
Seria algum cálculo?
Especifique.

Att,
FIM

Oi Alexandre!

O valor vai corresponder a quantidade que eu selecionar na outra combobox.
Baixe o arquivo teste pra compreender melhor.

Byg, já baixei o arquivo!
Preciso do nome dos campos pra poder te ajudar e qual o resultado esperado.

De qual combobox vc se refere e qual o valor que precisa ser preenchido no campo.


Dê um exemplo, por favor!

Att,
FIM

Boa noite Alexandre

Vamos ver se me entende agora: na combobox "quantidade de diárias" uso um código acima citado, que me trás o valor na combobox "valor total". Só que o valor só aparece se eu clicar na aba da combobox. Por isso que eu estou tentando e pedindo ajuda de como criar um código que mostre o resultado automaticamente na caixa de texto abaixo.
Igual acontece na combobox "para" e na caixa de texto "valor unitário"! Perceba que ao selecionar o tipo de cargo, automaticamente aparece o valor na caixa de texto "valor unitário".

Espero que tenha me compreendido

Desde já, muito obrigado

Byg,

Acredito que seja isso:


Era mais fácil você ter falado que era pra calcular o campo Valor Total....rss

Segue versão.

Att,
FIM

Bom dia meu amigo Alexandre!

Seria uma boa solução essa sua forma, mas a caixa de texto "valor total" tem que receber os valores predefinos na tabela "V" (valor), que está recionada com a tabela "Q" (quantidade)! Pois por exemplo: 1 diária para prefeito vale R$ 910,00  mas 0,5 vale R$ 460,00, então pela sua fórmula, a metade de R$ 910,00 seria R$ 455,00, que não corresponderia ao valor da tabela, qual seja, 0,5 = R$ 460,00.

Por isso acho que seria melhor um código semelhante ao da combobox "quantidade de diária" que me traz o resultado na combobox "valor total".

Muito obrigado pela força!

Byg,

Este processo está um pouco confuso.

"então pela sua fórmula, a metade de R$ 910,00 seria R$ 455,00..."

É a Matemática...rsss

E também esse valor que "0,5 = R$ 460,00" vc mencionou, não encontrei em nenhuma tabela.

Uma coisa é calcular o Valor Unitário*Quantidade, e outra é definir uma equivalência de valores, onde 1 diária = 960,00 e 0,5 diária = 460,00.

A minha sugestão é que tenha uma tabela de valores (que já existe), e que seja feito o cálculo através das quantidades informadas, conforme ajustei no exemplo anterior.

É isso
Att,
FIM

Olá Alexandre!

Eu sei que a metade de 910 é 455! Não estou subestimando sua inteligência. Mas os valores são com base na Tabela de Diárias daqui do meu município, conforme mostro abaixo. Eu consegui obter os valores (após selecionar quantidade) através do código (Me.Comb_VT1.RowSource = "SELECT V_id, Valores FROM V WHERE Q_id=" & Me.Comb_Quant), só que em uma combobox (que para aperecer o valor, tem que clicar na aba), então eu queria que alguém me ajudasse a desenvolver um código ou outro caminho de se obter o valor na caixa de texto diretamente.

Espero que tenha me compreendido melhor e vai desculpando aí por alguma coisa!



Private Sub Comb_Quant_AfterUpdate()
Me.Comb_VT1.RowSource = "SELECT V_id, Valores FROM V WHERE Q_id=" & Me.Comb_Quant
Me.Comb_VT1.Requery
End Sub

Só quero que o resultado desta combobox (Comb_Quant) através de algum código ou outro caminho, seja exibida em uma caixa de texto.

Byg,

"Eu sei que a metade de 910 é 455! Não estou subestimando sua inteligência. "

 sem crise....rssss

Ops...agora eu percebi que existem preços distintos de um mesmo serviço para Tipos de Servidores diferentes.
A tabela "Q" acredito que pode ser descontinuada, pois os as quantidades são comuns para todos os "TS_Id".
Ou vc utiliza ela para controlar a quantidade de diárias informadas?
Digamos que a quantidade de diária ultrapasse a 3 (que é a quantidade maior comum), voce não conseguirá cadastrar e calcular corretamente.
Posso deixar esse campo de quantidade livre para preenchimento?

Fica tranquilo que vou ajustar pra você.

Valeu

Att,
FIM

Byg,

Segue versão do teu sistema.
Acredito que agora esteja correto.

Att,
FIM

Bom dia meu nobre Alexandre!


Obrigado pela ajuda e paciência

Era exatamente dessa forma que eu queria que os campos se relacionassem! Muito obrigado por tudo. Deus abençoe a você e sua família!

E obrigado também aos idealizadores deste site!!!

Valeu Byg.
O fórum agradece.
Sucesso, meu jovem!!