Hallo Robert!

Sieht so aus als ob du dich intensiv mit Base Makros beschäftigst.
Sub setFechaImporte
    Dim oForm, oDate
    oForm = ThisComponent.DrawPage.Forms.getByName("FormZahlen")
    oDate = oForm.getByName("datDatum").Date
    If oDate=0 Then
        oForm.getByName("datDatum").Date = CDateToIso(date())
Else
         MsgBox (oDate )
     end if
End Sub

Du schreibst das Datum nur als Ansicht auf den Bildschirm, nicht aber als Wert in das entsprechende Feld. Ich hab' jetzt auch einige Zeit daran rumprobiert, aber keinen Weg gefunden, wie das zu bewerkstelligen ist.
Habe auch schon einiges probiert und gesucht und nichts gefunden. Ich nehme an das der komplette Datenstz in einem Array gespeichert ist und man eigentlich dort verändern müsste. Das automatisieren ist wichtig in einer Datenbank, im Moment versuche ich eine Datenbank für unseren Club zu machen. Im Formular für jährlichen Beiträge möchte ich nachdem das Mitglied aus einer liste ausgewählt wurde erstens das Datum und die höhe des Beitrages automatisch einsetzen. Mal sehen ob ich's gelöst bekomme.
Das ist so ähnlich wie mit Javascript. Wenn ich in ein Formularfeld scriptgesteuert einen neuen Wert schreibe, so zieht der Eventhandler "onchange" nicht daraus den Schluss, dass sich etwas geändert hat. Dies passiert nur bei Tastatureingaben.
Bin mir nicht ganz sicher mit Javascript glaube aber das beim abschicken vom Formular  
die Daten richtig erkannt werden obwohl kein "onchange" stad gefunden  hat.
.

Saludos
Jürgen

---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Antwort per Email an