如果Null则清除,如果没有,那么单独留下

时间:2014-03-26 20:12:06

标签: vba ms-access access-vba

在我的表单中,我有一个搜索功能设置,我可以在其中输入任何字段并搜索该特定数据,如果我没有预先为其字段选择某些内容,则课程字段需要清除。我的默认值为null。目前代码看起来像

Private Function SearchClear()
Me.cboDevelopment1 = ""
Me.cboDevelopment2 = ""
Me.cboDevelopment3 = ""
Me.cboDevelopment4 = ""
Me.cboDevelopment5 = ""
'focus on ID text box
Me.txtEmpID.SetFocus
'set button edit to enable
Me.cmdEdit.Enabled = True
'change caption of button add to Add
Me.cmdAdd.Caption = "Add Record"
'clear tag on txt id for reset new
Me.txtEmpID.Tag = ""
End Function 

我想写IF NULL然后清除字段,但如果不是,那就让他们这样查找指定的课程。

我甚至尝试在后台运行但不起作用的搜索查询中添加And Is Not Null。

1 个答案:

答案 0 :(得分:0)

所以你有一张搜索课程的表格。

你说你已经将默认值设置为null,所以它看起来像这样吗?

Me.cboDevelopment1 = NULL
Me.cboDevelopment2 = NULL
Me.cboDevelopment3 = NULL
Me.cboDevelopment4 = NULL
Me.cboDevelopment5 = NULL

或者,当你说如果他们没有预先选择的东西必须被清除,那么用户已经选择了一个值,现在你的表单在运行搜索之前就是这样吗?

Me.cboDevelopment1 = NULL
Me.cboDevelopment2 = VALUE1
Me.cboDevelopment3 = NULL
Me.cboDevelopment4 = VALUE2
Me.cboDevelopment5 = NULL

然后用户点击搜索,你会在搜索前执行这个CLEAR吗?

相关问题