ESCONDER CAMPOS
Alguem sabe como fazer o seguinte:
Tenho um Form com um control ADODC, onde, nesse mesmo Formulário, vizualizo os registos de clientes da minha BD. (para navegar entre os registos utilizo o control ADO).
Eu queira que, se o campo "EMPRESA" fosse "True" a Ttextbox1 fica Enabled, se não a Textbox1 fica Disabled.
Se eu ponho "EMPRESA" como true, a TEXTBOX1 fica enabled, só que depois, já não consigo voltar atrás. (mesmo que ponhs de novo False, a TEXTBOX1 fica sempre enabled)
Agradecia que alguem me desse por ai uma dica.
Tks a todos.
Tenho um Form com um control ADODC, onde, nesse mesmo Formulário, vizualizo os registos de clientes da minha BD. (para navegar entre os registos utilizo o control ADO).
Eu queira que, se o campo "EMPRESA" fosse "True" a Ttextbox1 fica Enabled, se não a Textbox1 fica Disabled.
Se eu ponho "EMPRESA" como true, a TEXTBOX1 fica enabled, só que depois, já não consigo voltar atrás. (mesmo que ponhs de novo False, a TEXTBOX1 fica sempre enabled)
Agradecia que alguem me desse por ai uma dica.
Tks a todos.
o comando enabled=false está realmente sendo executado? rode o programa debugando-o para ver se realmente a linha está sendo executada. (coloque o cursor sobre a linha, e tecle control + f8 - se a linha for executada, o programa para a execução e grafa a linha em questão com fundo amarelo - para continuar a execução, tecle f5)
Jean, veja se isto está correcto:
Private Sub campox_Click()
If campox.Text = False Then
campoy.Enabled = True
End If
If campox.Text = True Then
campoy.Enabled = False
End If
End Sub
Private Sub campox_Click()
If campox.Text = False Then
campoy.Enabled = True
End If
If campox.Text = True Then
campoy.Enabled = False
End If
End Sub
só irá funcionar assim se vc digitar no campox False ou True
agora, se vc quer que, caxo x esteja enabled=false, y seja true, use
Private Sub campox_Click()
If campox.enabled = False Then
campoy.Enabled = True
End If
If campox.enabled = True Then
campoy.Enabled = False
End If
End Sub
agora, se vc quer que, caxo x esteja enabled=false, y seja true, use
Private Sub campox_Click()
If campox.enabled = False Then
campoy.Enabled = True
End If
If campox.enabled = True Then
campoy.Enabled = False
End If
End Sub
Faça assim
Private Sub campox_Click()
campoy.Enabled = not campox.enabled
End Sub
porq nao usa assim
Private Sub campox_Click()
If campox.enabled = False Then
campoy.Enabled = True
elseIf campox.enabled = True Then
campoy.Enabled = False
End If
End Sub
falow
Private Sub campox_Click()
If campox.enabled = False Then
campoy.Enabled = True
elseIf campox.enabled = True Then
campoy.Enabled = False
End If
End Sub
falow
Tks .tá resolvido.
A dica do Marcel deu certinho.
Tks.
A dica do Marcel deu certinho.
Tks.
Tópico encerrado , respostas não são mais permitidas