OpenOffice.info

Sub Main
   oForm = ThisComponent.drawpage.forms.getByName("MainForm")
   oTextfeld = oForm.getByName("AuswahlRegio")
   oTabelle = oForm.getByName("MainForm_Grid")
    sFilter= lcase(oTextfeld.Text) 
    if sFilter <>"" then
        sFilter = "%" & sFilter & "%"
        setFiltA1= " (LCASE(regio) LIKE '" & sFilter & "') "
        rem  setFiltA1= " regio LIKE '" & sFilter & "') "
     else
        setFiltA1= ""
    endif
   rem oForm.ApplyFilter=false
   oForm.Filter= setFiltA1
   'oForm.filter = "id = 1004"
   'oForm.filter = "regio = 'Enzkreis'"
   oForm.ApplyFilter=true
   oForm.Reload
End Sub

Habe die Lösung gefunden: Bei kombinationsfeld bei Ereignis "Textfeld modifiziert" das Modul eintragen:

[code]
Sub Main
oForm = ThisComponent.drawpage.forms.getByName("MainForm")
oTextfeld = oForm.getByName("AuswahlRegio")
oTabelle = oForm.getByName("MainForm_Grid")
sFilter= lcase(oTextfeld.Text)
if sFilter <>"" then
sFilter = "%" & sFilter & "%"
setFiltA1= " (LCASE(regio) LIKE '" & sFilter & "') "
rem setFiltA1= " regio LIKE '" & sFilter & "') "
else
setFiltA1= ""
endif
rem oForm.ApplyFilter=false
oForm.Filter= setFiltA1
'oForm.filter = "id = 1004"
'oForm.filter = "regio = 'Enzkreis'"
oForm.ApplyFilter=true
oForm.Reload
End Sub
[/code]