Suchen innerhalb einer datentabelle

[Karl]

Ja sowas geht.

hier mal ein Auszug aus meinem Code:

Code: Alles auswählen

sub suchenKunde()
	dim oField1 as object
	dim oSubForm as object
	dim oComboBox as object
	dim oListbox1 as object
	
	oDoc = ThisComponent
	oForm = oDoc.DrawPage.Forms.getByName("Adressdaten")
	oSubForm = oForm.getByName("UnterFormular")
	oField1 = oForm.getByName("SearchBoxCompany")
	oComboBox = oForm.getByName("ComboBox1")
	select case oComboBox.selectedItems(0)
		case 0:
			oForm.Filter="`Kontaktname` LIKE '"+ oField1.CurrentValue + "%'" 
		case 1:
			oForm.Filter="`Ansprechpartner` LIKE '"+ oField1.CurrentValue + "%'" 
		case 2:
			oForm.Filter="`PLZ` LIKE '"+ oField1.CurrentValue + "%'"
			
   end select
   if oSubForm.Filter<>"" then
    oSubForm.Filter="" 
   end if
   oForm.reload
   gotoSuchfeld()
end sub 

Aus der Combobox wählt man aus, was machen haben möchte, Name, Ansprechpartner, PLZ, gibt dann im Textfeld den Begriff ein und das Programm setzt einen Filter auf das Formular. Ich hoffe das reicht euch so.