automatischer Filter für Unterformular?

[ulihueck]

Hallo.
Ich möchte ein Rechnungsformular mit einem Unterformular erstellen, in dem die Leistungen eingetragen werden.
Soweit so gut.
Leider sind aber die Preise für ein Produkt von Kunde zu Kunde unterschiedlich.
Im Formular möchte ich der besseren Übersicht wegen nur die Leistungen auswählen können, für die ich bei dem entsprechenden Kunden einen Preis angegeben habe.
Ich habe mir ein Makro geschrieben, aber irgendwie kann ich die Kunden-Id nicht bei der Auswahl berücksichtigen

Code: Alles auswählen

Sub ComTabSel(oEvent)

Dim oEreignis,  oListBox, oTable, oDoc, sFilter as String, n
Dim  oFormular, osubform as object

   oFormular = ThisComponent.CurrentController.Frame
   oSubForm = oFormular.getByName("Leistungen")
   oListBoxModel = oEvent.Source.getModel()
    sFilter = oComboBoxModel.StringItemList(oListBoxModel.SelectedItems(0))
   oFormular.filter = "Kunden-ID  = " & "'" & sFilter & "'"
   oFormular.reload
   
End Sub

Wo liegt der Fehler??

Grüße
Uli