その後、他の場合とのDLookup挑戦Accessで2010

Question

その私はVBAでコード化された使用している、と私はさびていますので、...久しぶりコンボボックスによって移入されたフィールド、見しようとすると

テーブル内でNULLかどうかを確認します。値を持つフィールドに基づいて、コードはどのフォームを開くかを決定します。

[テーブル]は、ここで

は、私は、これはエラーなしで実行するために得ることができない無駄

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

にしようとしたものであるForm2の

Form1の

を選択図】図。助けて！

Answer 1

フォーム上にコンボボックスがあることを意味しますか？コンボボックスは、その値をテーブルから取得します。選択した値が空白の場合は、別のフォームを開く値がある場合は、1つのフォームを開きますか？ 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 

：

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 

2つの列コンボボックス（列0、列1は、我々は後にしている値を保持し、隠されたキー値である）に基づいて