Funktionsaufruf auf der linken Seite der Zuweisung muss Varianten- oder Objektfehler zurückgeben

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

Frage

Ich entwickle seit einiger Zeit ein Programm in Excel vba ohne Fehler.Heute jedoch, wenn Adter nur etwas außerhalb eines Sub auskommentiert, werfen alle meine Funktionen jetzt eine Function call on left-hand side of assignment must return variant or object error Fehlermeldung.Sehen Sie sich unten ein Beispiel an:

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

Der Fehler wird in die Zeile geworfen:fGetEmployees = oRS.GetRows()

Wie gesagt, das funktioniert seit einiger Zeit ohne Probleme.Es gibt auch keine Möglichkeit zum Debuggen.

Kann mir jemand helfen, was das Problem ist?

War es hilfreich?

Lösung

Sehr seltsam, aber ich habe das Modul exportiert und dann importiert und es funktioniert jetzt einwandfrei.

Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow
scroll top