Olá galera, sou iniciante e esforçado, mas de conhecimento em Acces e Vba limitado, porém esforçado, assisto video aulas leio muito e consegui montar um banco de dados para gerenciar as proposta comerciais aqui da empresa...E ao longo das minhas pesquisas sempre encontro algo que posso utilizar em meu banco, assim, se baseia a minha dívida abaixo:
Tenho um campo em um sub-formulário de nome "Txt_TpProd", esse campo é preenchido com 0, 1 ou 2...No formulário principal tenho um campo chamado "TxtObs", onde o texto apresentado está relacionado ao código do campo "Txt_TpProd", assim:
Quando Txt_TpPro=0, o campo TxtObs será vazio "" ;
Quando Txt_TpPro=1, o campo TxtObs deverá ser preenchido com o texto "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 1-uso e/ou consumo]";
Quando Txt_TpPro=1, o campo TxtObs deverá ser preenchido com o texto "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 2-industrialização/comercialização]".
Usei o seguinte código no VBA no evento antes de atualizar em TxtObs:
Private Sub TxTObs_BeforeUpdate(Cancel As Integer)
If Forms![Frm_RetPsqCotação]![Frm_RetPsqCotaçãoSub].Forms![TxT_TpProd] = 0 Then
Me![TxTObs] = "Serviços"
ElseIf Forms![Frm_RetPsqCotação]![Frm_RetPsqCotaçãoSub].Forms![TxT_TpProd] = 1 Then
Me![TxTObs] = "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 1-uso e/ou consumo]"
ElseIf Forms![Frm_RetPsqCotação]![Frm_RetPsqCotaçãoSub].Forms![TxT_TpProd] = 2 Then
Me![TxTObs] = "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 2-industrialização/comercialização]"
End If
End Sub
Com o código acima, não consigo retorno da condição, não sei se em que estou errando, pensei até em fazer a condição pela tabela, mas não sei como...agradeço a quem poder me ajudar, e desculpe se minha pergunta está de forma desordenada.
Tenho um campo em um sub-formulário de nome "Txt_TpProd", esse campo é preenchido com 0, 1 ou 2...No formulário principal tenho um campo chamado "TxtObs", onde o texto apresentado está relacionado ao código do campo "Txt_TpProd", assim:
Quando Txt_TpPro=0, o campo TxtObs será vazio "" ;
Quando Txt_TpPro=1, o campo TxtObs deverá ser preenchido com o texto "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 1-uso e/ou consumo]";
Quando Txt_TpPro=1, o campo TxtObs deverá ser preenchido com o texto "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 2-industrialização/comercialização]".
Usei o seguinte código no VBA no evento antes de atualizar em TxtObs:
Private Sub TxTObs_BeforeUpdate(Cancel As Integer)
If Forms![Frm_RetPsqCotação]![Frm_RetPsqCotaçãoSub].Forms![TxT_TpProd] = 0 Then
Me![TxTObs] = "Serviços"
ElseIf Forms![Frm_RetPsqCotação]![Frm_RetPsqCotaçãoSub].Forms![TxT_TpProd] = 1 Then
Me![TxTObs] = "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 1-uso e/ou consumo]"
ElseIf Forms![Frm_RetPsqCotação]![Frm_RetPsqCotaçãoSub].Forms![TxT_TpProd] = 2 Then
Me![TxTObs] = "Informar se o material destina-se a: 1-uso e/ou consumo; 2-industrialização/comercialização [ICMS calculado com base em: 2-industrialização/comercialização]"
End If
End Sub
Com o código acima, não consigo retorno da condição, não sei se em que estou errando, pensei até em fazer a condição pela tabela, mas não sei como...agradeço a quem poder me ajudar, e desculpe se minha pergunta está de forma desordenada.