需要今天的日期作为 Libre Office 表单字段中的默认值

Question

Libre Office Base 的新成员。

我找到了如何将表中的默认值设置为当前日期。现在我需要将当前日期显示在表单的相应字段中。

我尝试插入“默认值”TODAY()和CURRENT_DATE. 由于某种原因，他们都给了我 1899 年 11 月 18 日。

有人对如何做到这一点有任何想法吗？

Answer 1

使用以下宏代码。这里，表的列（不是控件名称）称为“MyDate”。

Sub DefaultDateInForm (oEvent As Object)
    oForm = oEvent.Source
    lDateCol = oForm.findColumn("MyDate")
    If oForm.getString(lDateCol) = "" Then
        dateStamp = Format(Now, "YYYY-MM-DD")
        oForm.updateString(lDateCol, dateStamp)
    End If
End Sub

编辑表单，然后在表单属性中，将宏分配给“记录更改后”事件。

现在，每当记录的日期为空时（例如开始新记录时），日期字段应默认为当前日期。

openoffice 论坛上有一些关于此主题的讨论：

• https://forum.openoffice.org/en/forum/viewtopic.php?f=13&t=19140
• https://forum.openoffice.org/en/forum/viewtopic.php?f=39&t=38005
• https://forum.openoffice.org/en/forum/viewtopic.php?f=39&t=75991
• https://forum.openoffice.org/en/forum/viewtopic.php?f=39&t=131