演算子がありません、と表示されます

Question

お世話になります。

アンケート集計のシステムを作っておりまして

1日ごと、受付番号を管理しております。

例えば1月1日に受付番号1番の方のアンケート入力、2番の人のアンケート入力・・・

次の1月2日はまた受付番号1番の入力、2番の入力・・・

となっております。

アンケート自体は、オプショングループでの入力としております。

ご相談なのですが

例えば1月1日の受付番号３のひとを検索して、アンケートを再度入力させたいと考えております

日付を指定して、かつ受付番号を指定して、コマンドボタンを押すと

その人のアンケート結果が出てくる、という内容で、出てくる結果は文字ではなく

過去に入力したオプショングループを表示させるという内容です。

 VBAは以下のようになります。

 Private Sub コマンド_Click()

 Dim C

 C = "[実施日]=#" & [txt実施日] & "# AND [受付No]=" & [txt受付No]

フレーム46 = DLookup("購入品", "データ", C)

フレーム59 = DLookup("購入額", "データ", C)

フレーム76 = DLookup("購入回数", "データ", C)

フレーム95 =・・・

・

・

・

 End Sub

この状態でフレーム46が黄色くなって

クエリ式'[実施日]＝＃＃AND[受付No]＝’の構文エラー：演算子がありません。

と出ます。

どこが間違っているのでしょうか。

お知恵をお貸し下さい

Answer 1

> 入力規則**で受付Noテキスボックスに

> DCount("*","データ","実施日=[txt実施日] AND　受付No=[txt受付No]")=0

> とつけており

> 実施日、受付Noを入力してコマンドボタンを押した場合、重複よりも

> 上記VBAが優先して動くようにしたいのです。

この場合、[txt受付No]に対して入力された値が入力規則に引っかかっている限り、

[txt受付No]にあるフォーカスは固定され続ける

-> 他のコントロールにフォーカスを移動することができない

-> フォーカスを移せないので**[コマンド]のクリックを行なうこと** 自体が出来ない

-> 当然 コマンド_Click プロシージャも実行されない

ということになるので、優先順位がどうこうという問題ではないですね。

Answer 2

ありがとうございました。勉強になりました。

Answer 3

ご回答ありがとうございます。

たしかにNULLでした。すみません。

ちょっと話がずれるのですが

入力規則で受付Noテキスボックスに

DCount("*","データ","実施日=[txt実施日] AND　受付No=[txt受付No]")=0

とつけており、例えば受付１を入力すると受付Noがすでにある場合は

”Noが重複しています”とメッセージが出ます

入力規則とVBAの間で優先順位をつけることはできないでしょうか

実施日、受付Noを入力してコマンドボタンを押した場合、重複よりも

上記VBAが優先して動くようにしたいのです。

よろしくお願いします。

Answer 4

> C = "[実施日]=#" & [txt実施日] & "# AND [受付No]=" &[txt受付No]

> この状態でフレーム46が黄色くなって

> クエリ式'[実施日]＝＃＃AND[受付No]＝’の構文エラー：演算子がありません。

> と出ます。

フォーム（のカレントレコード）の[txt実施日]の値と[txt受付No]の値が

どちらも Null だからでは。