Utilizar un Recordset en una función pública.

03/03/2014 - 11:37 por Toni | Informe spam

Buenas de nuevo,

Office 2007.

He diseñado una función pública en un formulario continuo que realiza diferentes acciones y calculos sobre tablas temporales, a partir de los registros del formulario, que captura con un recordset rst = me.recordset.

Ahora me doy cuenta que esta misma instrucción me podria servir en otras partes de la base de datos, en otros formularios.

He intentado pasar esta función pública a un mòdulo, para poder llamarla desde otros formularios, però el origen del recordset da un error.

Como puedo resolver esta duda sin tener que copiar toda la instrucción en cada formulario?

Muchas gracias

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 José Mª Fueyo

10/03/2014 - 18:05 | Informe spam

Hola
¿En que linea te da el error? por otra parte, sí no defines explicitamente el tipo, es como si lo declararas como variant. Convierte

Dim sFormName, sReportName As String

a

Dim sFormName as String, sReportName As String

Salu2
José Mª Fueyo
[MS MVP Access]

Responder a este mensaje

#7 Toni

12/03/2014 - 11:02 | Informe spam

El error no se da en la ejecución del código.
Es de sintaxis, cuando ejecuto la depuración del còdigo:

Private Sub CmdInforme_Click()

Dim sFormName As String
Dim sReportName As String

sFormName = "OVPExp_1"
sReportName = "Historial_Pral"

ObrirInformes (sFormName,sReportName)

End Sub

Gracias

El dilluns 10 de març de 2014 18:05:31 UTC+1, José Mª Fueyo va escriure:

Hola

¿En que linea te da el error? por otra parte, sí no defines explicitamente el tipo, es como si lo declararas como variant. Convierte

Dim sFormName, sReportName As String

a

Dim sFormName as String, sReportName As String

Salu2

José Mª Fueyo

[MS MVP Access]

Responder a este mensaje

#8 Toni

13/03/2014 - 08:22 | Informe spam

El error no se da en la ejecución del código. Es de sintaxis, cuando entro la linea que llama a la función ObrirInformes, y también cuando ejecuto la depuración del còdigo.

Si modifico la función pública ObrirInformes a una sola variable, y la ejecuto desde la función privada - ObrirInformes (sFormName) -, entonces funciona:

Private Sub CmdInforme_Click()

Dim sFormName As String
Dim sReportName As String

sFormName = "OVPExp_1"
sReportName = "Historial_Pral"

ObrirInformes (sFormName,sReportName)

End Sub

Gracias

El dilluns 10 de març de 2014 18:05:31 UTC+1, José Mª Fueyo va escriure:

Hola

¿En que linea te da el error? por otra parte, sí no defines explicitamente el tipo, es como si lo declararas como variant. Convierte

Dim sFormName, sReportName As String

a

Dim sFormName as String, sReportName As String

Salu2

José Mª Fueyo

[MS MVP Access]

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida