insert timestamp in a base field pressing a button in a form

edit

should it be for "oField" the table plus the field? something like "Adressen.KONTAKT_ZEIT" ?

@Uhradone,

oField is referring to the control on the form. The table is referenced by the internal form and withing the control the property is set to a bound field.

Do not understand why you basically duplicated my answer in your original question?

Sorry if I made some confusion while duplicating the form, I just wanted to refer to the code I have right now (including my specific names and values) and that is for some reason is not working.

In my case the form top layer is the "filter" table and the sub-layer is my "Adressen" table is this the problem? But the button and the bound field are still on the "Adressen" layer.

@Uhradone,

This is why information is so important. The field you are dealing with is on a sub form and not a form. The location of the button is not important.

Replace these lines:

oForm =ThisComponent.Drawpage.Forms.getByName("F_Adressen")
Dim aTD As New com.sun.star.util.DateTime
oField = oForm.getByName("KONTAKT_ZEIT")

with these:

Dim oSubForm as Object
oForm =ThisComponent.Drawpage.Forms.getByName("Filter")
oSubForm =oForm.getByName("F_Adressen")
Dim aTD As New com.sun.star.util.DateTime
oField = oSubForm.getByName("KONTAKT_ZEIT")

If you continue to have problems please post a scrubbed sample of your Base file.

Edit:

Looking at the screen shots again (not the best way for information - sample is better), it may be a sub form name is incorrect in the code you listed:

oSubForm =oForm.getByName("F_Adressen")

possibly should be:

oSubForm =oForm.getByName("Adressen")

So new lines should most likely be:

Dim oSubForm as Object
oForm =ThisComponent.Drawpage.Forms.getByName("Filter")
oSubForm =oForm.getByName("Adressen")
Dim aTD As New com.sun.star.util.DateTime
oField = oSubForm.getByName("KONTAKT_ZEIT")

Don't know where you got "F_Adressen" from.

Just my personal preference perhaps, but would it not be easier just to use a prepared SQL statement to inject or create the timestamp value in the db itself, and which fires when you click on the button, and then simply refresh the form ?

Thanks Alex for your additional advice, that's what I tried to start in the first place, but then I don't know how I get the selected field in the selected dataset on a form output. What I see on the screen is a selected set of data from all my data I can reach there on the form in many ways but I have no idea how I could target this with SQL exept by typing in the ID and do some find, where, ID. But then I also can typ in the date.

macro not working yet, still try to target the field

Now I made things very simple: Table: TestTable (has Fields: ID, Vorname, KONTAKT_ZEIT as Timestamp) Form: TestForm (has all Fields plus one Push Button 1) Push Button 1 has: "Action": Refresh form; Events Key pressed: macro setTimestamp.DtTime (document, Basic) The Macro is stored in Test.odb

It is still not working!

Option Explicit

Sub DtTime
    Dim oForm As Object
    Dim oSubForm AS Object
    Dim oDocCtl As Object
    Dim oField As Object
    Dim oCtlView As Object
    Dim oBoundField As Object
    oForm =ThisComponent.Drawpage.Forms.getByName("TestForm")
    Dim aTD As New com.sun.star.util.DateTime
    oField = oForm.getByName("KONTAKT_ZEIT")
    aTD.Day = DAY(Now())
    aTD.Month = MONTH(Now())
    aTD.Year = YEAR(Now())
    aTD.Hours = HOUR(Now())
    aTD.Minutes = MINUTE(Now())
    aTD.Seconds = SECOND(Now())
    oBoundField = oField.BoundField
    oBoundField.updateTimestamp(aTD)
End Sub

@Uhradone,

You have only said it is not working but did not explain what is happening such as if the is an error message and what it is specifically.

I have also noted in a previous comment:

If you continue to have problems please post a scrubbed sample of your Base file.

but don't see that either. Have created a rough sample. Will place in edited answer shortly.

Here is my sample file with only two data-sets

https://transfer.zazu.berlin/index.ph...

(also above in my initial text)

Didn't get any error messges. Is there a special log-file or something similar to check error codes? What is strange, is that my very simple test file also doesn't work.

Sorry for making so much trouble!