[pmonica]

haverá algum código que, quando se selecciona um optionbutton de um grupo e este fica com valor true, instantaneamente coloque uma textbox (ou um label) com enabled = true?

há formas de efectuar esta acção mas em sub’s do tipo “private sub userform_initialize” ou “private sub commandbutton1_click”. a minha pergunta é se há opções de código que permitam o enabled=false de textbox’s quando activamos um optionbutton!

paulo mónica :dry:

[jorgerod]

boas, paulo,

vê o seguinte exemplo, talvez te sirva:

private sub optionbutton1_change()
if me.optionbutton1 = true then
me.textbox1.value = “”
me.textbox1.enabled = false
me.textbox1.visible = false
else
me.textbox1.enabled = true
me.textbox1.visible = true
end if
end sub

[pmonica]

boa! :woohoo:
acertaste na “mouche”. como é hábito! só havia uma pequena troca de “true’s” e “false’s”.
ps: qual a diferença de utilizar o me. ou não?

e para quem interessar, fica aqui o código adaptado que combina optionbutton’s e textboxes e mais em baixo checkbox’s e textbox’s:

——————————————————-
private sub optionbutton1_change()
if me.optionbutton1 = true then
me.textbox1.enabled = true
me.textbox1.visible = true
else
me.textbox1.enabled = false
me.textbox1.visible = false
end if
end sub
——————————————————
private sub checkbox1_click()
if me.checkbox1 = false then
me.textbox1.enabled = false
me.textbox1.visible = false
else
me.textbox1.enabled = true
me.textbox1.visible = true
end if
end sub
——————————————————-

saudações
paulo mónica

[jorgerod]

como é referido em http://pubs.logicalexpressions.com/pub0009/lpmarticle.asp?id=362 (mousetrax computing solutions),

“me” is a vba keyword that a form can use to refer to itself.

🙂 🙂

[Autor]

Artigos