El lun, 19-10-2009, Francisco Martagón Gordillo escribió:
> Y en ésta segunda es en la que se detiene, en la línea que marco con
> **>>** . Además me sale un mensaje de error que dice "Variable de objeto
> no establecida".
Perdón, se me olvidó marcar la línea en la que se detiene el depurador
>
Aquí les dejo el código de las macros, y gracias por su ayuda:
REM ***** BASIC *****
Sub AlApretarBoton1(oEv)
Dim oForm1, oSeleccionUnidad
Dim sFiltroNombre$
Dim sSeleccion$, sSelect$, sORDER$, sSQL$
oModelo = oEv.Source.Model
oForm1 = oModelo.getParent()
sSelect = "SELECT ""PrimerApellido"" || ' ' || ""SegundoApellido"" ||
', ' || ""Nombre"" AS Alumno, ""Unidad"" FROM ""Alumnos"""
oSeleccionUnidad = oForm1.getByName("SeleccionarUnidad")
sSeleccion =
oSeleccionUnidad.StringItemList(oSeleccionUnidad.SelectedItems(0))
sFiltroNombre = " WHERE ""Unidad"" = '" & sSeleccion & "'"
sORDER = " ORDER BY ""PrimerApellido"", ""SegundoApellido"",
""Nombre"""
sSQL = sSelect & sFiltroNombre & sORDER
SUB_GenerarListaAlumnos("SeleccionarAlumno", sSQL)
End Sub
Sub SUB_GenerarListaAlumnos(sNombreLista$, sComando$)
Dim sMatriz$(0), oListaAlumnos
**>>** oListaAlumnos = oModelo.Parent.getByName(sNombreLista)
oListaAlumnos.ListSourceType =
com.sun.star.form.ListSourceType.SQLPASSTHROUGH
sMatriz(0) = sComando
oListaAlumnos.ListSource = sMatriz()
oListaAlumnos.Enabled = TRUE
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
