OpenOffice.info

Hallo Zusammen,
danke für die Antworten.
Mit "jjjj-mm-tt" funktioniert es.
Sonnige Grüße,
WSO

[quote="Karolus"][quote]...Vergleichswert im ISO-Format "JJJJMMTT"[/quote]
Das ist kein ISO-format[/quote]
Sorry, da muss ich widersprechen. Neben »JJJJ-MM-TT« sind [b]auch[/b] »JJJJMMTT« und noch einige andere Formate, wie z.B. »JJJJTTT« und »JJJJWWT« [i]ISO 8601 konform[/i]. (s. z.B. → [url=http://www.cl.cam.ac.uk/~mgk25/iso-time.html]A summary of the international standard date and time notation[/url].)

Gruß
lorbass

Hallo

[quote]...Vergleichswert im ISO-Format "JJJJMMTT"[/quote]
Das ist kein ISO-format, sondern das Format in dem Datumswerte in Datumsfeldern von Formularen und Dialogen [color=#FF0000]vor LO4[/color] gespeichert [b]wurden[/b]

ISO ist
[b]jjjj-mm-tt[/b]

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

nID = "20141014"  REM Filterwert zuweisen 

   ' Bearbeitungsmaske öffnen
    Call openFormParm ("fUmsatzdetail", " ""kal_datum"" LIKE '" & nID & "'" , 1)

Hallo Zusammen,
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]
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
[/code]

Aufgerufen wird das Makro z.B. so:
[code]
nID = "20141014" REM Filterwert zuweisen

' Bearbeitungsmaske öffnen
Call openFormParm ("fUmsatzdetail", " ""kal_datum"" LIKE '" & nID & "'" , 1)
[/code]
und funktioniert einwandfrei, wenn das zu filternde Feld ein Integer oder String ist.

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