Buenas noches,a ver si hay alguien que me eche un cable
el tema es esl siguiente
En la tabla estudiante tengo un campo llamado ano_lectivo con este formato que es el que quiero que salga (2017/2018), si bien he buscado, requetebuscado he probado varia macros sin resultado alguno.
en el formulario tengo un boton amarillo que dice buscar por año lectivo lo que yo quiero que haga la base es que solo me deje visualizar en el formulario el año lectivo que escoja y ya puestos si hay otra macro para quitar el filtro mejor que mejor.
de ante mano muchas gracias y felices fiestas a todos
EDITADO por RMG, título en mayúsculas
[RESUELTO] Filtrar un campo en formualrio
[RESUELTO] Filtrar un campo en formualrio
Última edición por ALBARRAN7 el Dom Dic 24, 2017 2:22 pm, editado 1 vez en total.
OpenOffice 4.1.3 en windows 10
Re: Filtrar un campo en formualrio
de nuevo Felices fiestas para todos
OpenOffice 4.1.3 en windows 10
Re: Filtrar un campo en formualrio
Hola,
El tema de los filtros se ha contestado varias veces en el foro, de todas formas te pongo un ejemplo que te puede valer.
Saludos y felices fiestas
El tema de los filtros se ha contestado varias veces en el foro, de todas formas te pongo un ejemplo que te puede valer.
Código: Seleccionar todo
Sub FiltrarCurso( Evento )'boton que filtra
Dim oFormulario As Object
Dim oCurso As Object
Dim sFiltro As String
oFormulario = Evento.Source.getModel.Parent()
oCurso = oFormulario.getByName("ANO_LECTIVO")
sFiltro = oCurso.Text
If sFiltro = "" Then
oFormulario.ApplyFilter = False
oFormulario.reload()
Else
oFormulario.Filter = "("& """ESTUDIANTES"""&"."&"""ANO_LECTIVO""" &" = '" & sFiltro &"' )"
oFormulario.ApplyFilter = True
oFormulario.reload()
End If
End Sub
Sub Reiniciar (Evento)'botón que reicia
Evento.Source.getModel.Parent.ApplyFilter = False
Evento.Source.getModel.Parent.Reload()
End Sub
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: Filtrar un campo en formualrio
muchas gracias RMG
y felices fiestas para ti tambien y toda tu gente.
y felices fiestas para ti tambien y toda tu gente.
OpenOffice 4.1.3 en windows 10