Hej!

Jag har två grupper av option button:
Grupp ett: Val av sökfunktion, sök via listrutor eller via textbox.
Grupp två: Val av textsökfunktion, sök via grupp, parameter eller kit.

Val vid grupp ett inga problem.

Val vid grupp två "hänger sig" på att listrutan som sökresultatet visas i, RowSource = "Search Text Parameter Kit" hela tiden oavsett om man väljer grupp eller kit.

Har även en knapp som kör requery på listrutan när man vill använda textsök funktionen.

Private Sub SearchOptionList_Click()
    If Me.SearchOptionList.Value = True Then
        Me.SearchOptionText = False
        Me.ListGroup.BackColor = 16777215
        Me.ListParameter.BackColor = 16777215
        Me.SearchText.BackColor = -2147483633
        Me.ListKit.RowSource = "Sales Kit Search List Kit"
    Else: Me.SearchOptionList.Value = True
    End If
End Sub

Private Sub SearchOptionText_Click()
    If Me.SearchOptionText.Value = True Then
        Me.SearchOptionList.Value = False
        Me.SearchText.BackColor = 16777215
        Me.ListGroup.BackColor = -2147483633
        Me.ListParameter.BackColor = -2147483633
        If Me.SearchOptionTextGroup = True Then
            Me.ListKit.RowSource = "Search Text Group Kit"
        ElseIf Me.SearchOptionTextParameter = True Then
            Me.ListKit.RowSource = "Search Text Parameter Kit"
        ElseIf Me.SearchOptionTextKit = True Then
            Me.ListKit.RowSource = "Search Text Kit Kit"
        Else:
        End If
    Else: Me.SearchOptionText.Value = True
    End If
End Sub

Private Sub SearchOptionTextGroup_Click()
    If Me.SearchOptionTextGroup.Value = True Then
        Me.SearchOptionTextParameter.Value = False
        Me.SearchOptionTextKit.Value = False
    Else: Me.SearchOptionTextGroup.Value = True
    End If
End Sub

Private Sub SearchOptionTextKit_Click()
    If Me.SearchOptionTextKit.Value = True Then
        Me.SearchOptionTextGroup.Value = False
        Me.SearchOptionTextParameter.Value = False
    Else: Me.SearchOptionTextKit.Value = True
    End If
End Sub

Private Sub SearchOptionTextParameter_Click()
    If Me.SearchOptionTextParameter.Value = True Then
        Me.SearchOptionTextGroup.Value = False
        Me.SearchOptionTextKit.Value = False
    Else: Me.SearchOptionTextParameter.Value = True
    End If
End Sub

Tankeverksamheten är inte på topp fredag eftermiddag...

Löst!