A chamada de função no lado esquerdo da atribuição deve retornar erro de variante ou objeto

StackOverflow https://stackoverflow.com//questions/23063137

Pergunta

Estou desenvolvendo um programa em excel vba há algum tempo sem erros.Hoje, porém, depois de apenas comentar algo fora de um sub, todas as minhas funções agora lançam um Function call on left-hand side of assignment must return variant or object error erro.Veja um exemplo abaixo:

Public Function fGetEmployees() As Variant()

Dim oDB As ADODB.Connection
Dim oCM As ADODB.Command
Dim oRS As ADODB.Recordset
Dim strSQL As String

On Error GoTo Err:

strSQL = "SELECT StaffId, FirstName, LastName " & _
        "FROM ptqEmployees"

Set oDB = New ADODB.Connection
oDB.Open gcConn
Set oCM = New ADODB.Command

With oCM
    .ActiveConnection = oDB
    .CommandText = strSQL
    .CommandType = adCmdText
    Set oRS = .Execute
End With

fGetEmployees = oRS.GetRows()

oRS.Close
Set oRS = Nothing
oDB.Close
Set oRS = Nothing

Exit Function

Err:
    Call fLogDBError(Err.Number, Err.Description, 4)

End Function

O erro é lançado on-line:fGetEmployees = oRS.GetRows()

Como dito, isso está funcionando sem problemas há algum tempo.Também não há opção de depuração.

Alguém pode ajudar com qual é o problema?

Foi útil?

Solução

Muito estranho, mas exportei o módulo e depois importei e está funcionando bem agora.

Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow
scroll top