割り当ての左側に関数呼び出しは、バリアントエラーまたはオブジェクトエラーを返す必要があります。

Question

エラーなしで今度はしばらくの間、Excel VBAでプログラムを開発しています。しかし、今日、副社外に議論することだけが、私の全ての関数は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()

これは今すぐの問題なしでは機能していません。どちらもデバッグするオプションはありません。

誰もが問題が何であるかを支援することができますか？

Answer 1

非常に奇妙だが、モジュールをエクスポートしてからインポートし、それは今や大丈夫です。