[RESUELTO] Filtrar un campo en formualrio

Discute sobre las herramientas de la base de datos
Responder
ALBARRAN7
Mensajes: 27
Registrado: Jue Dic 14, 2017 2:38 am

[RESUELTO] Filtrar un campo en formualrio

Mensaje por ALBARRAN7 »

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
Ú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
ALBARRAN7
Mensajes: 27
Registrado: Jue Dic 14, 2017 2:38 am

Re: Filtrar un campo en formualrio

Mensaje por ALBARRAN7 »

studiante.rar
descomprimir rar
(36.08 KiB) Descargado 132 veces
Adjunto fichero por si alguien me puede ayudar.
de nuevo Felices fiestas para todos
OpenOffice 4.1.3 en windows 10
RMG
Mensajes: 3879
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Filtrar un campo en formualrio

Mensaje por RMG »

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.

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
Saludos y felices fiestas
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)
ALBARRAN7
Mensajes: 27
Registrado: Jue Dic 14, 2017 2:38 am

Re: Filtrar un campo en formualrio

Mensaje por ALBARRAN7 »

muchas gracias RMG
y felices fiestas para ti tambien y toda tu gente.
OpenOffice 4.1.3 en windows 10
Responder