Estoy bloqueado con una tontería y como no tengo mucho tiempo, no puedo ir a pasear para despejarme...
El problema es el siguiente:
Yo tengo un form en el cual aparecen los datos de un trabajador. Para no tener que hacer varios forms, he creado una función dentro de este form que actúa de la siguiente manera:
Al cargar un usuario, se activa el modo Solo lectura, que lo que hace es bloquear todos los campos de texto. En caso de que pulses el botón modificar, cambia de color el fondo del form, cambia de nombre el botón "Modificar" por "Terminar Modificación" y deben ser modificables todos los campos de texto. El problema es que me cambia el color, pero no me hace nada mas... El código que tengo es este:
PUBLIC SUB convertidor(convertirEn AS String)
IF convertirEn = "Solo Lectura" THEN
nombre_txt.ReadOnly = TRUE
fechaNacimiento_txt.ReadOnly = TRUE
fechaNacimiento_btn.Enabled = FALSE
notas_txt.ReadOnly = TRUE
estado_combo.Enabled = FALSE
estado_btn.Enabled = FALSE
info_txt.ReadOnly = TRUE
tienda_txt.ReadOnly = TRUE
tienda_btn.Enabled = FALSE
tienda_btn.Text = "Ver Tienda"
modificar_btn.Text = "Modificar Ficha"
estado = "Solo Lectura"
ENDIF
IF convertirEn = "Modificacion" THEN
nombre_txt.ReadOnly = FALSE
fechaNacimiento_txt.ReadOnly = FALSE
fechaNacimiento_btn.Enabled = TRUE
notas_txt.ReadOnly = FALSE
estado_combo.ReadOnly = FALSE
estado_combo.Enabled = TRUE
estado_btn.Enabled = TRUE
info_txt.ReadOnly = FALSE
tienda_txt.ReadOnly = FALSE
tienda_btn.Enabled = TRUE
tienda_btn.Text = "Mod. Tienda"
cerrar_btn.Text = "Cerrar Ficha"
modificar_btn.Text = "Terminar Modificación"
estado = "Modificacion"
ficha.Background = 8825817
ENDIF
END
IF convertirEn = "Solo Lectura" THEN
nombre_txt.ReadOnly = TRUE
fechaNacimiento_txt.ReadOnly = TRUE
fechaNacimiento_btn.Enabled = FALSE
notas_txt.ReadOnly = TRUE
estado_combo.Enabled = FALSE
estado_btn.Enabled = FALSE
info_txt.ReadOnly = TRUE
tienda_txt.ReadOnly = TRUE
tienda_btn.Enabled = FALSE
tienda_btn.Text = "Ver Tienda"
modificar_btn.Text = "Modificar Ficha"
estado = "Solo Lectura"
ENDIF
IF convertirEn = "Modificacion" THEN
nombre_txt.ReadOnly = FALSE
fechaNacimiento_txt.ReadOnly = FALSE
fechaNacimiento_btn.Enabled = TRUE
notas_txt.ReadOnly = FALSE
estado_combo.ReadOnly = FALSE
estado_combo.Enabled = TRUE
estado_btn.Enabled = TRUE
info_txt.ReadOnly = FALSE
tienda_txt.ReadOnly = FALSE
tienda_btn.Enabled = TRUE
tienda_btn.Text = "Mod. Tienda"
cerrar_btn.Text = "Cerrar Ficha"
modificar_btn.Text = "Terminar Modificación"
estado = "Modificacion"
ficha.Background = 8825817
ENDIF
END
Alguien sabe el porque puede ser? El caso es que cuando yo metí los componentes en el form, no toque nada, es decir, no los bloquee ni nada, si no que los deje como están predeterminadamente (todos modificables) y cuando cargo el form, llamo a convertidor("Solo Lectura") entonces ya me bloquea todos los campos de texto, pero cuando llamo a convertidor("Modificacion"), se pasa por alto todos los cambios menos el ficha.Background = 8825817