检查未绑定的文本框是否等于字符串

时间:2017-05-19 16:49:18

标签: vba ms-access access-vba

在访问表单中,包含公式时,我有一个未绑定的文本框。公式返回"是"或"否"根据表格是否已完成(确保填写所有必填箱)。

在同一表格上,我有一个命令按钮,我想用它来过滤掉已完成的表格。基本上,它是一个保存"保存记录"当点击时,表格 - 如果完成 - 应该消失(即过滤掉)。

以下是我的内容,但我不了解VBA。

Private Sub bttn_Save_Click()
    Me.Filter = Me.MainFormComplete = Yes
    Me.FilterOn = True
End Sub

如何检查我的字段(MainFormComplete)是否等于"是"?

2 个答案:

答案 0 :(得分:1)

不太确定你要做什么,但可能是:

Private Sub bttn_Save_Click()
    Me.Filter = "MainFormComplete = 'Yes'"
    Me.FilterOn = True
End Sub

或:

Private Sub bttn_Save_Click()
    Me.Filter = "MainFormComplete <> 'Yes'"
    Me.FilterOn = True
End Sub

答案 1 :(得分:0)

if Me.MainFormComplete = Yes then
    ....
end if

如果只是输入文本而不保存文本,则文本框可能无法读取。阅读文字:

if Me.MainFormComplete.Text = Yes then 'or "Yes" or True
    ....
end if