0

Hola buenos días Tengo este fragmento de código en visual basic que al compilar me da error

Sub ImprimirEtiquetasPorLote(NumeroLote As Long)
Dim StrSQL As String, _
    ElRs As Object, _
    MiRpt As Object, _
    StrPedidoPaquete As String, _
    IntPaginas As Integer, _
    RptConcatenado As RptEtiqPaqueteria ' DDActiveReports2.ActiveReport
mvarStrConexion = MiStrConexion
StrSQL = ObtenerSQL("ETIQUETAS PARA PAQUETERIA (POR LOTE)")
    StrSQL = Replace$(StrSQL, "$$NUMEROLOTE$$", NumeroLote & "  AND Production.Packages.CreatedByUserName<>'Auto_VLM'")
Set ElRs = RecordSetLectura(StrSQL)
**If Not ElRs.EOF Then**

Se queja en la línea que os pongo con asteriscos. He mirado que la variable StrSql me la rellena correctamente pero no veo el fallo. ¿Me podéis ayudar?

1
  • ¿Cuál es el código de RecordSetLectura(StrSQL)? a ver si es que la variable ElRsva a estar vacía
    – Esei
    Commented el 22 sept. 2019 a las 13:18

1 respuesta 1

0

Hice pruebas y de esta forma funciona:

Sub ImprimirEtiquetasPorLote(NumeroLote As Long)
    Dim StrSQL As String, _
        ElRs As Object, _
        MiRpt As Object, _
        StrPedidoPaquete As String, _
        IntPaginas As Integer
        ', _    RptConcatenado As RptEtiqPaqueteria ' DDActiveReports2.ActiveReport
    mvarStrConexion = MiStrConexion
    StrSQL = ObtenerSQL("ETIQUETAS PARA PAQUETERIA (POR LOTE)")
        StrSQL = Replace$(StrSQL, "$$NUMEROLOTE$$", NumeroLote & "  AND Production.Packages.CreatedByUserName<>'Auto_VLM'")
    Set ElRs = RecordSetLectura(StrSQL)
    If Not ElRs.EOF Then
        Debug.Print "Funciona..."
    End If
End Sub

Function ObtenerSQL(str As String) As String
    ObtenerSQL = "Any..."
End Function

Function RecordSetLectura(str As String) As Recordset
    '...
End Function

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.