访问报告中的条件声明

Question

如何在报表访问中设置条件 if else 语句？

这是报告中搜索特定数据的编码.....

Dim lngID As String
lngID = InputBox("Enter RF No")
If lngID = "" Then
DoCmd.ClearMacroError
Else
DoCmd.OpenReport "Requisition_ReportComplete", acViewReport, , "[RF_no]=" & lngID
End If

这是 if else 语句的编码

Dim lngID As String

lngID = InputBox("Enter RF No")
If lngID = "" Then
DoCmd.ClearMacroError
ElseIf lngID <> RF_no Then
MsgBox "Data not exist"
Else
DoCmd.OpenReport "Requisition_ReportComplete", acViewReport, , "[RF_no]=" & lngID
End If

用于搜索的 if else 语句不能满足我的需求..我不知道为什么....

Answer 1

我假设 RF_no 是参考编号并且是主键。如果 RF_no 只是您在 If 语句之前定义的一个特定数字，您的代码将正常工作。在打开表单之前检查表中是否存在记录的一种方法是使用 Dcount 或 Dlookup，即：

ElseIf DCount("SomeField", "YourTable", "RF_no=" & lngID) = 0 Then

ElseIf IsNull(DLookup("[Some Field]", "YourTable", "[RF_no] = " & lngID)) Then

任何一个都应该可以正常工作。他们将检查您的表中是否存在 ID = lngID 的记录，如果没有找到，则会打开表单。