Function returnerer kun nul
HejJeg prøver at lave en funktion, som kørers fra Excel og som henter et bestemt id fra en record. Der er kun ét id som opfylder begge kriterier.
Der kommer ikke nogen errors, men der kommer heller ikke noget id og jeg har checket at recorden eksiterer i access db.
Min funktion og nede under mit kald af funktionen.
Public Function GetPlanID(fBU As String, fID As Integer) As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sqlQuery As String
sqlQuery = "SELECT Id FROM Plans WHERE Unit = '" & fBU & "' AND PlanID = " & fID
' Make sure we're connected to the database.
If Connect Then
Set Command = New ADODB.Command
With Command
.ActiveConnection = connection
.CommandText = sqlQuery
.CommandType = adCmdText
End With
rs.Open Command.Execute(recordsAffected)
rs.ActiveConnection = Nothing
Set Execute = rs
Set Command = Nothing
End If
iDBID = GetPlanID(sUnit, iPlanID)
