Problema com Form_Current()
Publicado por Diego (8 intervenciones) el 27/08/2008 19:33:37
Hola, os presento este problemilla que me tiene bastante liado ya por un par de días, a ver si alguien me orienta un poco ya que parece sencillo pero no logro solucionarlo.
Tengo un formulario en el cual se pueden introducir datos mediante cuadros de texto y cuadros combinados. Según el valor que tomen estos cuadros se mostrará una información en una serie de etiquetas que se encuentran al lado. Pongo un ejemplo:
Si en el cuadro de texto elijo un cliente, en la etiqueta se mostrará: "Este cliente le restan x masajes". Esto lo hago mediante un DLookUp y otros cálculos. Hasta aquí todo bien.
El problema viene cuando quiero cambiar de registro. Me gustaría que lógicamente la etiqueta volviera a quedar vacía.
Me explico, al cambiar de registro me sigue apareciendo "Este cliente le restan x masajes", aun no siendo cierto.
Me gustaría que esa etiqueta quedara en blanco, de cara a elegir los nuevos valores y ver la nueva información.
En principio lo que se me ocurrió fue esto:
Private Sub Form_Current()
Me.Infopaciente.Caption = ""
Me.InfoFecha.Caption = ""
Me.Infohora.Caption = ""
Me.InfoMasajista.Caption = ""
Me.InfoTipoMasaje.Caption = ""
End Sub
Como veis son varias etiquetas las que quiero poner en blanco. Pues esto no funciona, el evento se ejecuta bien pero no se borran las etiquetas.
Alguna idea? Muchas gracias de antemano.
Tengo un formulario en el cual se pueden introducir datos mediante cuadros de texto y cuadros combinados. Según el valor que tomen estos cuadros se mostrará una información en una serie de etiquetas que se encuentran al lado. Pongo un ejemplo:
Si en el cuadro de texto elijo un cliente, en la etiqueta se mostrará: "Este cliente le restan x masajes". Esto lo hago mediante un DLookUp y otros cálculos. Hasta aquí todo bien.
El problema viene cuando quiero cambiar de registro. Me gustaría que lógicamente la etiqueta volviera a quedar vacía.
Me explico, al cambiar de registro me sigue apareciendo "Este cliente le restan x masajes", aun no siendo cierto.
Me gustaría que esa etiqueta quedara en blanco, de cara a elegir los nuevos valores y ver la nueva información.
En principio lo que se me ocurrió fue esto:
Private Sub Form_Current()
Me.Infopaciente.Caption = ""
Me.InfoFecha.Caption = ""
Me.Infohora.Caption = ""
Me.InfoMasajista.Caption = ""
Me.InfoTipoMasaje.Caption = ""
End Sub
Como veis son varias etiquetas las que quiero poner en blanco. Pues esto no funciona, el evento se ejecuta bien pero no se borran las etiquetas.
Alguna idea? Muchas gracias de antemano.
Valora esta pregunta


0