Ocultar Botones
Publicado por Tronic (28 intervenciones) el 18/01/2008 11:49:31
Hola buenas:
Tengo un formulario de resultado de busqueda, es decir un formulario que se abre segun lo que busque en un cuadro de texto, pues bien ese formulario me muestra una serie de registros segun el valor a buscar. y con los botones de desplazamiento me desplazo por ellos en caso de que sean varios los registros encontrados.
pues bien lo que quiero es si solo encuentra un registro que los botones desplazamiento no aparezcan. para ello tengo un campo que me cuenta de la consulta el numero de registros encontrados, ese campo se llama contar.
el texto en vba es:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Contar = 1 Then
Me.primero.Visible = False
Me.ultimo.Visible = False
Me.anterior.Visible = False
Me.siguiente.Visible = False
Else
Me.primero.Visible = True
Me.ultimo.Visible = True
Me.anterior.Visible = True
Me.siguiente.Visible = True
End If
End Sub
el problema es que los botones siguen apareciendo aunque solo se encuentre un registro.
no se si tendre algo mal en el codigo. he puesto los Me. antes de los campos porque lo he estado mirando por ahí pero tambien he probado sin ellos.
tambien he probado con poner if me.contar <2 then, pero seguia igual.
No se si me podran ayudar, de todas formas gracias de antemano.
Tengo un formulario de resultado de busqueda, es decir un formulario que se abre segun lo que busque en un cuadro de texto, pues bien ese formulario me muestra una serie de registros segun el valor a buscar. y con los botones de desplazamiento me desplazo por ellos en caso de que sean varios los registros encontrados.
pues bien lo que quiero es si solo encuentra un registro que los botones desplazamiento no aparezcan. para ello tengo un campo que me cuenta de la consulta el numero de registros encontrados, ese campo se llama contar.
el texto en vba es:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Contar = 1 Then
Me.primero.Visible = False
Me.ultimo.Visible = False
Me.anterior.Visible = False
Me.siguiente.Visible = False
Else
Me.primero.Visible = True
Me.ultimo.Visible = True
Me.anterior.Visible = True
Me.siguiente.Visible = True
End If
End Sub
el problema es que los botones siguen apareciendo aunque solo se encuentre un registro.
no se si tendre algo mal en el codigo. he puesto los Me. antes de los campos porque lo he estado mirando por ahí pero tambien he probado sin ellos.
tambien he probado con poner if me.contar <2 then, pero seguia igual.
No se si me podran ayudar, de todas formas gracias de antemano.
Valora esta pregunta


0