我有一个包含两个字段的查询; SID&状态。
我已将我的条件设置为仅包含空白状态'。
我现在想在我的表单中设置验证规则,因此当用户尝试输入SID时,它会检查查询结果中是否存在。如果没有,请返回一个消息框,通知用户SID已经完成。
答案 0 :(得分:1)
在文本框的AfterUpdate事件中,执行以下操作:
Dim db as Database
Dim rec as Recordset
Set db = CurrentDB
Set rec = db.OpenRecordset("SELECT Status FROM MyTable WHERE SID = '" & txtSID.Value & "'")
If rec.EOF Then
'All is well, the SID hasn't been found
Else
MsgBox "This SID has already been completed"
End If
答案 1 :(得分:0)
因此,在表单上,您希望用户在文本框中输入SID并检查SID是列表中具有空白状态的SID之一。
这听起来你需要将文本框更改为基于查询的组合框,并且组合框“limit to list”属性设置为true。这只允许用户选择(或手动输入)列表中出现的SIDS。
排序!
听起来不错?