アクセス DLookUpについて

質問

職員番号入力後、自動で部署コードを入力できるようにしたいのですが、このアクセスのフォームで、正常に動くフォームと動かないフォームがあり困っております。どこが悪いか御教示お願いできませんでしょうか。

--------------------------------------------------------
使用テーブル
T_職員名簿　：　ID、氏名漢字、氏名カナ、部署コード、部署名

イベントプロシ―ジャ内容
Private Sub 職員番号_AfterUpdate()
Me.[部署コード] = DLookup("部署コード", "T_職員名簿", "職員番号= " & Me![職員番号] & "")
End Sub

エラー内容
イベントプロパティに指定した式更新後処理でエラーが発生しました。
--------------------------------------------------------

回答No.5

chayamati

-------------------------------------------------------->>>使用テーブル
＞　T_職員名簿：ID、氏名漢字、氏名カナ、部署コード、部署名
★T_職員名簿に【職員番号】が含んでいますね
　・部署のテーブルありますか
　・【職員番号】は重複無しに定義されていますか？
　・重複無しに定義するにはテーブルデザインで２通りあります。
　　1.主キーにする
　　2.インデックスプロパティで「重複無し」にする

回答No.4

chayamati

添付図をご覧ください。今開発中の見積管理システムです
よくご存知の【選択クエリー】ですね、クエリビルダーは
フォームからも起動できます
これでVBA無しで目的は達成できますね
全てのテーブルが１:∞のリレーションシップシップで
繋がっています
リレーションが切れていると各テーブルのレコード数の
　乗数になり膨大なレコード数になります
・クエリの作成手順
【作成リボン】→【クエリデザイン】
　→【右端のテーブルリストからドラッグ】
　※リレーションの繋がりの無いテーブルはリレーションシップの
　再構築が必要です。この問題をVBAでは解決できません
・リレーションシップ構築
　【データベースツールリボン】→【リレーショできません
　→【右端のテーブルリストよりドラッグ】
　　※テーブルを重複するとテーブル名に番号が付いて
　　　表示されるので右クリックから削除

回答No.3

chayamati

回答№2です
「リレーションシップシップ」ご理解出来ましたか
　添付をご覧ください
フォームをデザインビューで開いたときプロパティーシートのレコードソース右端の…をクリックすると
クエリービルダ―が起動し添付図のクエリ画面になります
リレーションシップで関連付けられているので、
一つのテーブルになり、T_職員名簿の部署コードは必要有りません
またT_職員名簿の部署ID(長整数型)をT_部署の部署名に
　ルックアップすると部署名がコンボボックスになり、
　T_職員名簿の部署名も除去
次にご存知と思いますが、VBAの作成について
1.空の「メニュー」フォームを作成します
2.メニューに「部署登録」のラベルボックス」を配置
　ラベルボックスを配置すると入力した文字列は表示名でラベルは「ラベル858」のようになります
　プロパティーのその他タグに在ります、ラベル名を表示名に
　再入力します
3.イベントタグのクリックを選択するとVBAの表示になり
　先頭行と　END SUB　行が追加され表示され、

回答No.2

chayamati

＞職員番号入力後、自動で部署コードを入力できるようにしたいのですが、
このアクセスのフォームで、
　正常に動くフォームと動かないフォームがあり困っております。
どこが悪いか御教示お願いできませんでしょうか。
--------------------------------------------------------------------------
今晩は貴方のやろうとしている事はテーブルの「ルックアップ」
プロパティー」で解決できます。
添付図をご覧ください。
T_見積のIDとT_部署の見積IDが線でつながっていますね、これをリレーションシップシップと呼びます
リレーションシップシップの設定は「ツール」リボンから入ります。
「DLookup」は使った事有りませんが
Private Sub 部署コード_BeforeUpdate(Cancel As Integer)
を次をお試しください
Private Sub 部署コード_DblClick(Cancel As Integer)
Private Sub 部署コード_Exit(Cancel As Integer)

回答No.1

m3_maki

「T_職員名簿」には「職員番号」フィールドが無いようですが。

もしかしたら
Me.[部署コード] = DLookup("部署コード", "T_職員名簿", "ID= " & Me![職員番号] & "")