別のフォームのコンボボックスからフォームを開く

Question

私はDisplayFormというフォームを持っています。そのフォームには、コンボボックスのドロップダウンがあります。コンボボックスのドロップダウンは、フォーム上のカラムの上部にあり、通常はラベルが表示されます。そのドロップダウンメニューから項目を選択し、そのデータを使用して別のフォームを開きたいとします。 Webからサンプルをコピーし、名前を変更して動作させることができません。ここにコードがあります。

If Not Me.NewRecord Then 
DoCmd.OpenForm "AreaForm", _ 
    WhereCondition:="LArea=" & Me.AreaCBDrop 
End If 

エリアは、フォームのレコードでクエリのフィールドの名前ですが、私はそれを実行すると、それは私がperamater値を入力したいのMsgBoxを開きます。私はまた、IFが何であるかを理解していません。私はこれをifとifの両方で試しましたが、同じ結果が得られました。 Me.AreaCBDropは正しい値を持っていますが、どこで動作しません。

おかげ

おかげ

Answer 1

あなたWHERE条件はテキストパラメータを期待しているが、それは1を求めているので、あなたは、予想される形式を供給されていません。

は、次のように単一引用符、とあなたMe.AreaCBDropサラウンド：

If Not Me.NewRecord Then 
DoCmd.OpenForm "AreaForm", _ 
    WhereCondition:="LArea='" & Me.AreaCBDrop & "'" 
End If