von ulihueck » Fr, 24.07.2009 20:01
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
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]
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[/code]
Wo liegt der Fehler??
Grüße
Uli