A chamada de função no lado esquerdo da atribuição deve retornar erro de variante ou objeto
-
26-12-2019 - |
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?
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