Вызов функции в левой части присваивания должен возвращать ошибку варианта или объекта
-
26-12-2019 - |
Вопрос
Я уже некоторое время разрабатываю программу в excel vba без каких-либо ошибок.Однако сегодня, когда adter только комментирует что-то за пределами вложенного файла, все мои функции теперь выдают Function call on left-hand side of assignment must return variant or object error
ошибка.Смотрите пример ниже:
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
Ошибка выдается в строке:fGetEmployees = oRS.GetRows()
Как уже было сказано, это уже некоторое время функционирует без проблем.Возможности для отладки также нет.
Кто-нибудь может помочь разобраться, в чем проблема?
Решение
Очень странно, но я экспортировал модуль, а затем импортировал его, и теперь он работает нормально.
Не связан с StackOverflow