Question

自从我在VBA中使用编码以来已经很长时间了，我生锈了......

尝试在表中查看由组合框填充的字段，以查看它是否为null。根据具有或不具有值的字段，代码确定要打开的表单。

[表]点域

Form1中窗体2

这是我试图无效的

If DLookup("[field]", "table", IsNull) Then
        DoCmd.OpenForm "form1", acNormal
        End If
    If DLookup("[field]", "table", NotIsNull) Then
        DoCmd.OpenForm "form2", acNormal

我无法正常运行。救命啊！

Answer 1

你的意思是你在表单上有一个组合框，组合框从表中获取它的值。如果所选值为空，则打开一个表单，如果它的值打开另一个表单？

基于两列组合框（第0列是隐藏键值，第1列保存我们之后的值）：

Private Sub Combo0_AfterUpdate()
    With Me.Combo0
        If .Column(1) = "" Then
            DoCmd.OpenForm "Form2", acNormal
        Else
            DoCmd.OpenForm "Form3", acNormal
        End If
    End With
End Sub

基于1列组合：

Private Sub Combo0_AfterUpdate()
    With Me.Combo0
        If IsNull(.Value) Then
            DoCmd.OpenForm "Form2", acNormal
        Else
            DoCmd.OpenForm "Form3", acNormal
        End If
    End With
End Sub

如果那么在Access 2010中的其他和dlookup挑战

1 个答案: