ESCONDER CAMPOS

USUARIO.EXCLUIDOS 14/07/2005 06:32:29
#94049
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.
JEAN.JEDSON 14/07/2005 08:00:37
#94055
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)
USUARIO.EXCLUIDOS 14/07/2005 08:11:48
#94058
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
JEAN.JEDSON 14/07/2005 08:31:45
#94062
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
PAGANINI 14/07/2005 09:26:29
#94079
Faça assim

Private Sub campox_Click() 
campoy.Enabled = not campox.enabled
End Sub
USUARIO.EXCLUIDOS 14/07/2005 12:21:14
#94127
Resposta escolhida
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
USUARIO.EXCLUIDOS 14/07/2005 12:34:27
#94133
Tks .tá resolvido.
A dica do Marcel deu certinho.


Tks.
Tópico encerrado , respostas não são mais permitidas