关于Access VBA文本框输入日期问题？
我想实现的功能如下：在Form窗体中有两个控件，一个为下拉菜单，一个为文本框，文本框的数据来源对应一个表中的一列；想编辑VBA程序，当单击下拉菜单时，如果文本框此时为空，则自动输入当日日期，如果文本框中有字符，则不做任何改变；请问各位大神，这段程序如何编写，望不吝教我！谢谢！ 具体的代码 我现在没空写 暂时先给你提供一个思路吧 如果你懂VBA 编程的话我下面说的话你应该能听懂使用下拉菜单控件的单击事件然后在事件触发模块里 用ifthen语句 将条件设定为 文本框 是否为空为空时 文本框赋值为当前日期（VBA里有一个现成的函数可以直接提供当前日期）
不知道你说的下拉菜单是不是 关联着一个检索的条件 如果关联的话 那么单击下来菜单也要触发一条数据库查询命令 查询的条件就是下来菜单选出来的值
哥，思路我清楚，但是现在的问题就是代码的正确写法，判断文本框为空是用=""还是is null ？现成的提供当前日期的函数是Date()还是Date，我按照这样的写好VBA发现没有得到想要的结果，所以才求助的:'(weeqw Private Sub ComboBox1_DropButtonClick()
If (Me.TextBox1.Text = "") Then
Me.TextBox1.Text = Now()
End If
End Sub 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
页:
[1]