El lun, 19-10-2009, Ariel Constenla-Haile escribió:
> sí, *era* obra mía.
> No he probado si es que funciona con OOo 3.* y hace muuuucho que no la
retoco.
Don't worry, yo estoy trabajando con OOo 2.4 y te estoy muy agradecido
por ella, ya que me está ayudando a resolver problemas y a aprender
> como aquí está oModelo inicializada [¿dónde está definida? debería ser
una
> variable local, y pasarla como parámetro]
Acabo de añadir:
PRIVATE oModelo
al inicio del Module1, Y ÉSTE ERA EL PROBLEMA, así que YA SE SOLUCIONÓ
Aún no sé prácticamente nada de Basic y eso se nota. :(
> pásala como parámetro en la llamada:
>
> > SUB_GenerarListaAlumnos("SeleccionarAlumno", sSQL)
La pasaba como parámetro, lo cambié para ver si era el error, pero visto
que no es el motivo, lo volveré a cambiar.
> cambia la interfaz de la subrutina:
>
> Sub SUB_GenerarListaAlumnos(oModelo as Object, sNombreLista$, sComando
$)
>
No sé qué quieres decir con esto, lo siento.
> (¿quién diseñó semejante espertento? ah, yo....)
>
> > Sub SUB_GenerarListaAlumnos(sNombreLista$, sComando$)
> > Dim sMatriz$(0), oListaAlumnos
Tampoco sé por qué esto es un esperpento.
> si esto sigue generando un error, pon un punto de quiebre, y verifica
que
> oModelo no sea NULL.
> Si no es null, y genera error, tal vez sea que no existe un control
con el
> nombre sNombreLista (¿has modificado los nombres de los controles?)
> Pero en ese caso, se genera una excepción UNO, que OOo Basic la
muestra con un
> mensaje diferente.
>
> > oListaAlumnos = oModelo.Parent.getByName(sNombreLista)
> > oListaAlumnos.ListSourceType =
> > com.sun.star.form.ListSourceType.SQLPASSTHROUGH
> > sMatriz(0) = sComando
> > oListaAlumnos.ListSource = sMatriz()
> > oListaAlumnos.Enabled = TRUE
> > End Sub
>
> Si la base no tiene datos privados, puedes pasármela que le pego una
mirada
> (si no, una copia con datos ficticios). Ahora tan sólo puedo adivinar
que es lo
> que anda pasando.
>
> Regards
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
