关于Access VBA文本框输入日期问题？

Raidwk

我想实现的功能如下：在Form窗体中有两个控件，一个为下拉菜单，一个为文本框，文本框的数据来源对应一个表中的一列；想编辑VBA程序，当单击下拉菜单时，如果文本框此时为空，则自动输入当日日期，如果文本框中有字符，则不做任何改变；请问各位大神，这段程序如何编写，望不吝教我！谢谢！

sunv52pojie

具体的代码 我现在没空写 暂时先给你提供一个思路吧 如果你懂VBA 编程的话  我下面说的话你应该能听懂
使用下拉菜单控件的单击事件  然后在事件触发模块里 用if  then  语句 将条件设定为 文本框 是否为空  为空时 文本框赋值为当前日期（VBA里有一个现成的函数可以直接提供当前日期）
不知道你说的下拉菜单是不是 关联着一个检索的条件 如果关联的话 那么单击下来菜单也要触发一条数据库查询命令 查询的条件就是下来菜单选出来的值

Raidwk

哥，思路我清楚，但是现在的问题就是代码的正确写法，判断文本框为空是用=""还是is null ？现成的提供当前日期的函数是Date()还是Date，我按照这样的写好VBA发现没有得到想要的结果，所以才求助的

whlg0501

Private Sub ComboBox1_DropButtonClick()
    If (Me.TextBox1.Text = "") Then
        Me.TextBox1.Text = Now()
    End If
End Sub

Raidwk

whlg0501 发表于 2020-2-28 11:43
Private Sub ComboBox1_DropButtonClick()
    If (Me.TextBox1.Text = "") Then
        Me.TextBox1.Te ...

大哥我最后测试成功了，您的这个我在测试中没有通过，也没有正确显示，应该是用这段语句才能够正确显示：
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(记账日期) = True Then
Me.记账日期.Value = Date
End If
End Sub