如何根据参数打开一种或另一种表单？

Question

有人可以帮助我吗？ 这听起来很简单，但我不确定是否可以做到。 这个想法是：如果参数存在则打开该记录，否则打开一个新记录来输入数据。

这是我的尝试，但我什至还无法让它运行。

Private Sub Form_Load()
    If (Me.Type = Act _
        and Me.Title <> null _
        and section <> null) _
        or Me.Type in ('Proposed','Final') 
        and Me.Rule <> null
    Then 
        Docmd.OpenForm "F_Eval" (but open that specific f_Eval)

    Else
        Docmd.OpenForm "F_NewEval" (to enter new record)
    End If
End Sub

Answer 1

修改您的空比较。作为一个例子，请从您的 If 条件考虑这一点：

Me.Title <> null

没有任何东西可以“不等于”Null，就像没有任何东西可以“等于”Null。甚至另一个 Null 也不能等于 Null（或不等于 Null）。

因此，无论 Me.Title 为 Null 还是包含非 Null 值，该表达式都将返回 Null。您需要一个返回 True 或 False 的表达式。使用 IsNull() 函数。

If Not IsNull(Me.Title) Then
   'do what you want for a non-Null Title here '
End If

对于“打开特定的 f_Eval”要求，请将WhereCondition 参数与 OpenForm 方法。这是从该链接页面复制的示例。它将打开一个名为“Employees”的表单，并将该表单的记录源限制为“LastName”为“King”的那些行。

DoCmd.OpenForm "Employees", , ,"LastName = 'King'"

因此，OpenFormWhereCondition 就像查询中不带 WHERE 一词的 WHERE 子句。

Answer 2

你的第一个陈述在我看来是错误的。一方面，我怀疑你的意思是“行动”。尝试一下

If (Me.Type = "Act" _
    And Me.Title <> Null _
    And Me.Section <> Null) _
    Or (Instr("Proposed,Final",Me.Type) >0 
    And Me.Rule <> Null )

，我不相信您从代码中剪切并粘贴了示例，最好这样做。