textbox conditionare visible

[nicole]

buna seara,
vreau ca un textbox sa fie vizibil sau nu, sau sa-l blochez -as agrea orice varianta- in functie de valoarea
dintr-un combobox situat in acelasi subformular.
multumesc pt orice sugestie
am incercat:

Cod: Selectaţi tot

     Private Sub Work_AfterUpdate()
If [Phase].Value = "abc" Then
[q].Visible = True
Else
[q].Visible = False
End If 
End Sub

si

Cod: Selectaţi tot

Private Sub Work_AfterUpdate()
If Phase = "abc" Then
Me.q.Enabled = True
Me.q.Locked = False
Else
Me.q.Enabled = False
Me.q.Locked = True
End If

[alcoool2]

salut
Codul este relativ simplu

Cod: Selectaţi tot

Private Sub Combo0_AfterUpdate()
If Me.Combo0 = 2 Then
    Me.Text2.Visible = False
    Else: Me.Text2.Visible = True
End If
End Sub

la fel este si pentru locked -- dor schimbi visible cu locked

[nicole]

multumesc
Are pitici pe creier combobox-ul meu,nu merge si pace.Are definita si o prodecura pt "not in list" ,l-o fi incurcand.primesc eroare" rune time 13 type mistmatch."
am continuat pe exemplul tau o simulare -subformular,combo legat si textul cu pricina se blocheaza indiferent de conditie .

[alcoool2]

Nu compara valoarea câmpului ci poziția valorii sa în lista

daca alb este pe pozitia 1 atunci compara cu 1

Cod: Selectaţi tot

]
Private Sub Combo10_AfterUpdate()
If Me.Combo10 = 1 Then
Me.Text8.Enabled = True
Me.Text8.Locked = False
Else
Me.Text8.Enabled = False
Me.Text8.Locked = True
End If
End Sub

se pare ca accessul nu se uita la valoare ci la pozitie

[nicole]

da,am facut un artificiu si am notat campul care ma interesa cu 1_.... ca sa fie pe permanent pe pozitia 1,pt ca lista nu este fixa,acolo se mai pot adauga inregistrari.
Problema cu mesajul "time run error 13" am citit ca e naspa, nu e dina cauza codului ci probabil din cauza serverului.
multumiri
numai bine,

[nicole]

Cod: Selectaţi tot

Private Sub phase_AfterUpdate()
Dim Phase As String
Phase = Val(Me.Phase.Column(1))
If Phase = "text3" Then
q.Visible = True
Else
q.Visible = False
End If
End Sub

Revin cu problema conditionare textbox in functie de valoare combobox in ADP.
Cu acest cod,in sfarsit ....ceva se vede.si anume orice as alege din lista,textul se face invizibil si asa
ramane.Este vizibil doar cand deschid formularul,ca dupa prima inregistrare se face nevazut.

vreo parere?