I'm struggling to make SQL query that search through one table that contain row with exact all parameters given in variables (integer and string).
I got error "Too few parameters. Expected 1"
Here is my code:
Private Sub RoomCombo_AfterUpdate()
Dim r As DAO.Recordset
Dim sSQL As String
Dim FN As Integer 'FRA Number
Dim RN As String 'Room Name
'gather not-defaultet panels
FRACombo.SetFocus
FN = Me.FRACombo.Text
RoomCombo.SetFocus
RN = Me.RoomCombo.Text
'open recordset to get panel ports number
sSQL = "SELECT NumberOfPorts"
sSQL = sSQL & " FROM tblPort_Number_Exception10"
sSQL = sSQL & " WHERE [FRA] = " & FN & " AND [Room] LIKE " & RN
'I got error here
Set r = CurrentDb.OpenRecordset(sSQL)
Me.Side_A = r!NumberOfPorts
If r!NumberOfPorts = 48 Then
Port_A_Combo.RowSource = "SELECT Port.PortID, Port.Port_48 FROM Port;"
ElseIf r!NumberOfPorts = 12 Then Port_A_Combo.RowSource = "SELECT Port.PortID, Port.Port_12 FROM Port;"
Else: Port_A_Combo.RowSource = "SELECT Port.PortID, Port.Port_Default FROM Port;"
End If
r.Close
Set r = Nothing
End Sub
Please help