ich versuche vergeblich per Makro ein Formular nach einem Datumswert zu filtern.
In der Datenbank (Lo 4.3, Mysql, Win 7) werden Formulare zur einheitlichen Aufbereitung ausschließlich von diesem Makro aufgerufen:
Code: Alles auswählen
SUB openFormParm (StForm AS STRING, StFilter AS STRING, FilterJN AS INTEGER)
DIM oFormDocs AS OBJECT
DIM oFeld AS OBJECT
DIM oBearbForm AS OBJECT
DIM oForm AS OBJECT
DIM oDrawpage AS OBJECT
DIM oDoc AS OBJECT
DIM iForm AS STRING
DIM iFilter AS STRING
iForm = StForm
iFilter = StFilter
oFormDocs = ThisDatabaseDocument.FormDocuments.getByName(iForm).open
If glbExpertenmodus = FALSE THEN
oForm = oFormDocs.Drawpage.Forms.getByName(iForm)
oFeld=oForm.getByName("Head")
glbFormularname = oFeld.getCurrentValue()
END IF
CALL GUI_Anpassen (oFormDocs)
oBearbForm = oFormDocs.Drawpage.Forms.getByName(iForm)
If FilterJN = 1 THEN
' Filter setzen
oBearbForm.Filter = StFilter
oBearbForm.ApplyFilter = True
End IF
oBearbForm.reload()
End Sub
Aufgerufen wird das Makro z.B. so:
Code: Alles auswählen
nID = "20141014" REM Filterwert zuweisen
' Bearbeitungsmaske öffnen
Call openFormParm ("fUmsatzdetail", " ""kal_datum"" LIKE '" & nID & "'" , 1)
Ich habe alles Mögliche versucht, um so auch ein Datumsfeld zu filtern.
Zunächst natürlich mit einem Vergleichswert im ISO-Format "JJJJMMTT", aber die Eregebnismenge war leer.
TT.MM.JJJJ, TT-MM-JJJJ, TT.MM.JJ, TT-MM-JJ haben auch nichts gebracht.
Komme auch nach einer Nacht Pause von dem Thema nicht weiter.
Kann mit bitte jemand einen Hinweis geben was ich falsch mache.
Mit Dank im voraus,
WSO