none
Ayuda run-time error 13 RRS feed

  • Pregunta

  • Buenas tardes, tengo un problema con una consulta en VBA.

     While Cells(i, 2).Value <> ""
     
     Rif = Cells(i, 2).Value
    Fecha = Cells(i, 4).Value

    MsgBox (Fecha)
       SQLSTRING = "SELECT CustomerName FROM Customer WHERE CustomerTaxNumber =" + "'" + Rif + "'" + " AND CONVERT(smalldatetime, '" + Fecha + "') <= ISNULL(CustomerVisibilityTo,CONVERT(smalldatetime, '06/06/2079'))"
        
    Set rsData = adoCN.Execute(SQLSTRING)

    MsgBox (rsData.Fields(1).Value)

                i = i + 1
            Wend

     

    Cuando está ejecutando esto Set rsData = adoCN.Execute(SQLSTRING) me da un error Run-time error '13' TypeMismatch.

    Alguien puede ayudarme por favor?

    Gracias :)

    miércoles, 27 de marzo de 2013 21:31

Todas las respuestas

  • Hola!

    Es un error de tipos, estás asignando un recordset ADO a una variable rsData  que no ha sido definida como tal.


    Saludos a todos desde Huelva
    http://www.mvp-access.es/emilio/

    miércoles, 27 de marzo de 2013 22:47