none
Access 2013 deja de funcionar al asignar un objeto RecordSet ADO a un formulario mediante VBA RRS feed

  • Pregunta

  • Hola,

    En una base de datos programada con VBA y  utilizando Access 2013, al realizar la siguiente asignación de un objeto recordset  ADO a un formulario abierto, mediante la propiedad "Recordset" del mismo, Access deja de funcionar y obtengo el error que les muestro.

     NOTA: La aplicación está programada tipo Front-End, mediante acceso a tablas vinculadas.

    Este mismo código con la versión 2007 de Access, que fue con la que programé la aplicación, no se generaba.

      

        CODIGO: 

            Dim lrsEntradas As ADODB.Recordset
            Set lrsEntradas = New ADODB.Recordset

    '' el parámetro lstrSQL es una variable texto con la sentencia SQL.

    '' el parámetro gcnConexion es un variable con objeto ADO.connection 

             With lrsEntradas
                .CursorLocation = adUseClient
                .CursorType = adOpenStatic
                .LockType = adLockOptimistic
                .Open lstrSQL, gcnConexion, , , adCmdText
            End With

            'Asigno el recordset creado al formulario. AL EJECUTAR LA SIGUIENTE SENTENCIA ES CUANDO SE PRODUCE EL ERROR
             Set Forms("frmRegistroEntradas").Recordset = lrsEntradas

    DETALLE DEL ERROR:

    Nombre de la aplicación con errores: MSACCESS.EXE, versión: 15.0.4569.1503, marca de tiempo: 0x52b0b06b

    Nombre del módulo con errores: MSACCESS.EXE, versión: 15.0.4569.1503, marca de tiempo: 0x52b0b06b

    Código de excepción: 0xc0000409

    Desplazamiento de errores: 0x008a90e2

    Id. del proceso con errores: 0x1230

    Hora de inicio de la aplicación con errores: 0x01d0db2a939d2601

    Ruta de acceso de la aplicación con errores: C:\Program Files\Microsoft Office\Office15\MSACCESS.EXE

    Ruta de acceso del módulo con errores: C:\Program Files\Microsoft Office\Office15\MSACCESS.EXE

    Id. del informe: e65b5bdb-471d-11e5-bd25-a0d3c10a832e

    miércoles, 9 de septiembre de 2015 8:02