
Cambiar Hyperlink a TextBox
Publicado por Cris (22 intervenciones) el 06/05/2008 13:38:06
Hola a todos:
tengo un formulario con un campo que es un Hipervínculo. Este formulario se puede abrir de 3 formas distintas: consultas, altas y modificaciones.
Si se abre como CONSULTA, el campo debe seguir siendo Hipervínculo.
En cambio, si se abre como MODIFICACIONES, el campo debe ser un TextBox, porque debe permitir pinchar y modificar el texto, pero al ser un Hipervínculo, cada vez que se pincha abre el enlace.
He probado con el siguiente código y con otras pruebas, pero no resulta:
For Each ctl In Me.Controls
If TypeOf ctl Is Hyperlink Then
ctl.ControlType = acTextBox
End If
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is CheckBox Then
ctl.Enabled = True
ctl.Locked = False
End If
Next ctl
Gracias!!
tengo un formulario con un campo que es un Hipervínculo. Este formulario se puede abrir de 3 formas distintas: consultas, altas y modificaciones.
Si se abre como CONSULTA, el campo debe seguir siendo Hipervínculo.
En cambio, si se abre como MODIFICACIONES, el campo debe ser un TextBox, porque debe permitir pinchar y modificar el texto, pero al ser un Hipervínculo, cada vez que se pincha abre el enlace.
He probado con el siguiente código y con otras pruebas, pero no resulta:
For Each ctl In Me.Controls
If TypeOf ctl Is Hyperlink Then
ctl.ControlType = acTextBox
End If
If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is CheckBox Then
ctl.Enabled = True
ctl.Locked = False
End If
Next ctl
Gracias!!
Valora esta pregunta


0