accessの自動入力について教えてください。

Question

質問を変更致します。
フォームに社員番号を入れると自動で社員名が出てくるような方法を教えてください。

DLOOKUP関数を使いフォームにある社員番号入力欄から自動で氏名を呼びだすことができました。
しかし、入力しなおそうと思い社員番号のほうを消し入力しようとすると、「テーブル１.社員番号フィールドに値を入力してください」と表示されます。
このエラーの回避の仕方はありますか？
教えて頂けるとありがたいです。
DLOOKUPの式は下記になります。
=IIf(IsNull([社員番号]),"",DLookUp("[氏名]","テーブル１","[社員番号] = " & [社員番号]))
式は氏名テキストボックスのコントロールソースに入力しています。

Comments

[sazi]

社員番号と社員名を求めるテーブルと社員番号を入力するテーブルの関係が見えません。
質問に関係しているテーブルの情報を追加して下さい

[sazi]

iif()は式を全て評価してから判定を行ったはずです。
=DLookUp("[氏名]","テーブル１","[社員番号] = " & [社員番号])
だけだとどうなりますか？

[jennieruby]

同じ結果になりました・・・
あと、DLOOKUP関数で登録してもテーブルに氏名は反映されないのですね(´;ω;｀)
テーブルを見たら社員番号は登録されていましたが、氏名のところは空白になってました・・・

[sousuke]

「テーブル１.社員番号フィールドに値を入力してください」
のエラーメッセージの出所が気になるのですが、DLOOKUPの式は
何に記載されているのでしょうか？更新後処理などのイベントですか？

[jennieruby]

sousuke様
テキストボックスのコントロールソースに入力しています。

[sousuke]

DLOOKUP式のテキストと社員番号の入力時のエラーメッセージは無関係だと思います。テキストボックス削除しても入力し直そうとすればエラーが出るのでは？

Answer 1

社員番号がNullの場合に式が成り立たなくなっているのでしょう。
以下の様NZ()を使用したものにしてみてください。

=DLookUp("[氏名]","テーブル１","[社員番号] = " & Nz([社員番号]))

若しくは

=Nz(DLookUp("[氏名]","テーブル１","[社員番号] = " & Nz([社員番号])))

追記

やり方を問わないのであれば、以下をお薦めします。
コンボの２列目をテキストボックスに表示する方法（コントロールソース版）

Comments

[jennieruby]

同じエラーが出ます・・・
テキストボックスのコントロールソースに入力していますがこれがそもそも間違いでしょうか？

[sazi]

追記しました。

[jennieruby]

ありがとうございます。
こちらも検討してみます。

今のやり方にして、エラーはもう無視するとして次の問題点が登録したいテーブルに氏名が入らないことです・・・
こちらの解決策はわかりますでしょうか(´;ω;｀)

[sazi]

テーブル構造が分からないと何とも言えません。
入力しているテーブルに、社員番号と氏名の項目があり、社員番号の入力で氏名も同時にという事なら、リンクした方法ではなく、社員番号の更新後処理イベントで氏名を更新する必要があると思います。

[sazi]

ちょっと整理しましょう。
=IIf(IsNull([社員番号])～
の式があるのは社員名コントロールですよね。
それで、社員番号のテキストボックスの内容を消去するとエラーになるのですよね。
社員番号コントロールのコントロールソースが社員番号でNotNull制約があるならクリアしてコントロールを移動しようとすると当然エラーになります。内容を書き換えるだけではエラーにはならないはずです。