OpenOffice.info

Hallo DaWolf,
Gino

Hallo NetterLausbub,

versuche es mal mit dem Import wenn das Datumsformat wie folgt vorliegt:

2009-05-03

Mit einem Makro funktioniert das bei mir wie folgt:
Sub Import_Data
Dim DatabaseContext As Object
Dim DataSource As Object
Dim oStatement As Object
Dim Connection As Object ...

Hi eBayer,

das ist wirklich eine saubere Lösung. Da muss man erst mal drauf kommen.
Vielen vielen Dank. Auch für das saubere Auskommentieren der Zeilen. Muss ich mir auch mal angewöhnen.
Dann kann man Dinge später leichter nachvollziehen.
Aber ich denke, es lohnt sich, dein Programm noch einmal ...

Guten Morgen Charly,

das ist klasse das die Function doch funktioniert.

Vielen Dank für Deinen Geistestblitz.
Da muss man erstmal drauf kommen.

Einen schönen Tag wünsche ich Dir.

Gino

Guten Abend eBayer,

vielen Dank für die wirklich kompetente Unterstützung.
Du hast mir sehr geholfen.

Ich habe noch etwas rumprobiert und komme zu folgendem Fazit:

Die Daten der DateFields werden nur übernommen wenn nachfolgend in einem anderen Feld ein noch Eintrag erfolgt

Und wenn zum ...

Hi Charly,

Das funktioniert ja prächtig. Tausend Dank.
Das bringt mich wieder einen Riesenschritt weiter. :D

Ich habe es noch auf meien Bedürfnisse angepasst (15 Monate):

Function Monatsverschiebung(Datum,Zahl)

Jahr = Year(Datum)
Monat = Month(Datum)
Tag = Day(Datum)

Monat = Monat + Zahl

If ...

Hallo Charly,

erstmal Danke für die schnelle Antwort.

Die Grundidee von Dir ist wirklich gut. Sie hat aber leider einen Haken. Der Code berücksichtigt leider keinen Jahreswechsel.
Somit funktioniert: Sub Example_Edate
Dim lDate as Long

lDate = DateSerial(2009, 12, 9)

result = DateSerial(Year ...

Hallo Experten,

kann mir bitte einer sagen wie ich die Function "EDATE" ans Laufen bekomme.

Sub Example_Edate
Dim lDate as Long

lDate = DateSerial(2009, 4, 9)
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
result = oFunctionAccess.callFunction("EDATE",array(lDate,2 ...

Hallo eBayer,

erstmal vielen Dank für Deine Infos.

bei mir klappt das einwandfrei, wie ich es beschrieben habe.
Bei Textfields ist das bei mir auch kein Problem, wogegen sich die DateFields immer noch störrisch verhalten.

Bist Du sicher, daß Du keinen Fehler im Code hast?
Da bin ich mir sehr ...

Hallo eBayer,

vielen Dank für die schnelle Antwort.

Ich habe Deinen Code ausprobiert und dabei festgestellt, dass das Datum jetzt wie eingefroren in den Datefields bleibt.
Wenn ich in einen anderen Datensatz wechsele bleibt das Datum immer noch in den Feldern mit gleichem Wert.

Es wird auch ...

Hallo Zusammen,

ich habe mit meiner Datenbank genau das gleiche Problem.
Dort werden vier verschiedene Revisionstermine in 4 Datefields im Formular via Makro eingetragen. Beim speichern des Datensatzes wird kein Datum in die Datenbank übernommen.
Der Trick mit oDocView.getControl(DF_2).setFocus ...

Hallo Olli,

Sub Search_String
Dim oReplaceDesc As Object
Dim Doc As Object
Dim oFoundCursor As Object
Doc = thisComponent
oReplaceDesc = Doc.createReplaceDescriptor
oReplaceDesc.SearchString = "a"
Found = Doc.findFirst (oReplaceDesc)
While not IsNull(Found)
oFoundCursor = Found.Text ...