アクセス2000を使ってます。
顧客台帳のフォームにCAコードのテーブルから「担当者」「リスト順」のデータを顧客台帳の営業部員コードのフィールドに営業部員コードNOを入力したら自動的に入力されるようにしたいのですがうまく出来ません。
担当者=DLookup("担当者","CAコード","営業部員コード="&営業部員コード)
リスト順=DLookup("担当者","CAコード","営業部員コード="&営業部員コード)
で設定しましたが自動入力されません。
ちなみに担当者・営業部員コード等はテキスト型ですが、営業部員コードにマウスを移動した時にはEmpty値って出ます。
どのようにしたら良いのでしょうか?
私は、アクセスは全くの初心者ですので詳しく説明していただけると助かります。
宜しくお願い致します。
No.5ベストアンサー
- 回答日時:
再度、nekです。
VBエディターのイミディエイトウインドウを開いて
?DLookup("担当者", "CAコード", "営業部員コード = '@@@@'")
って書き込み実行(enter)してみてください。
注:@@@@は実際に存在している営業部員コードを直接記入する。
上記の状態で、担当者が表示されない限り
プログラムを走らせても無理です。
まず、一番デバッグしやすいイミディエイトウィンドウで色々確認してみてください
カンマやダブルコーテーション等は全角になっていませんか?
構文エラー;演算子がありません・・・というのは
文法が間違っていますので色々試してみるしかありません。
「営業部員コード」を主キーにしてる事は問題ありません。
この回答への補足
おはようございます。
教えていただいた方法で
担当者=DLookup("担当者", "CAコード", "営業部員コード = '320'")
を入れてみたら320のデータは出ました。
って事は文法は間違ってないって事ですよね?
宜しくお願い致します。
No.4
- 回答日時:
第一回答のnekです。
実際の動作を見てないので
なかなか対応するのは、難しいですが
こういう場合は、まず原因を特定してください。
一度に動作させようとするので、原因がわからなくなるわけです。
今回の場合は、ifの使い方、Dlookupの使い方、営業部員コードの値が代入されてない
という3つが考えれます。
まず、ifを一時的に辞めて実行してみてください
担当者 = DLookup("担当者", "CAコード", "営業部員コード='" & 営業部員コード & "'")
もし、これでもエラーが出る場合、
営業部品コード値が代入されているかを確かめる為に
※営業部員コードにマウスを移動した時にはEmpty値が出るという事はこれが一番怪しい
担当者 = DLookup("担当者", "CAコード", "営業部員コード = '@@@@'")) 注:@@@@は実際に存在している営業部員コードを直接記入する。
と変更して実行してみましょう。
これでも駄目なら、Dlookupに原因があると思います。
文法は問題なさそうなので、CAコードというテーブルに「担当者」「営業部員コード」が存在するか、誤字脱字が無いか確認してみましょう。
あとは、&の前後に空白が入ってるかとか?(違うエラーが出そうだけど)
こんな感じで原因を把握して、対応してみては?
この回答への補足
アドバイス有難うございます。
3パターンの方法をしてみましたがやっぱりエラーが出ます。
1つ疑問に思ったのが、CAコードテーブルには「担当者」と「営業部員コード」は
存在するし、スペル等も間違ってませんが、「営業部員コード」を主キーにしてる
のですがこれが何か原因なのでしょうか?
ご迷惑お掛けしますが宜しくお願いします。
No.3
- 回答日時:
再びmaruru01です。
そのIf~も込みで、
担当者 = IIf(IsNull(Me!営業部員コード),"",DLookup("担当者", "CAコード", "営業部員コード = '" & Me![営業部員コード] & "'"))
ならどうですか。
では。
この回答への補足
度々お返事有難うございます。
実行時エラー クエリ式'営業部員コード=’の構文エラー;演算子がありません
って出てきます。
デバックで担当者=~の担当者の所は相変わらずNull値ってマウスを近づけたら出ますが・・・
ご迷惑お掛けしますが宜しくお願い致します。
こんにちは、maruru01さん。
ごちゃごちゃになってたみたいで、今朝から始めからmaruru01さんので設定しなおしました。そうしたら無事出来るようになりました。
本当に有難うございました。
で、もう1つ質問ですが、同じフォームで住所コードってあるですが、同じ様にしたい場合は、同じ設定でコード名等を変えるだけで良いのでしょうか?
No.2
- 回答日時:
こんにちは。
maruru01です。>顧客台帳の営業部員コードのフィールドに営業部員コードNOを入力したら
とありますが、顧客台帳というフォームにある[営業部員コード]というテキストボックスに値を入力したらということですよね。
そういう仮定で、
担当者 = DLookup("担当者", "CAコード", "営業部員コード = '" & Me![営業部員コード] & "'")
でどうですか。
では。
この回答への補足
アドバイス有難うございます。
教えていただいたように入力してみたら、演算子が見つかりませんってエラーメッセージが出ました。
1つ疑問に思ったんですが、担当者=DLookup~の担当者にマウスを近づけた時にNull値って出たのですが、担当者=Dlookup~の前に If Not IsNull(営業部員コード)Thenって式を入れてるのですがそれが原因なのでしょうか?
宜しくお願い致します。
No.1
- 回答日時:
担当者=DLookup("担当者","CAコード","営業部員コード='" & 営業部員コード & "'")
でいけると思います。
テキスト型の場合は前後を ' で挟む必要があります。
この回答への補足
教えていただいたとおりに入力してみて、フォームに営業部員NOを入れてみたのですが、実行時のエラーでクエリ式営業部員コード="'"の構文エラー演算子がありませんって出てしまいました。
これって、担当者=の前に If Not IsNull(営業部員コード)Then と入れたのですがこれが原因でしょうか?
Empty値ってなってるのが原因でしょうか?
お手数かけますが宜しくお願いします。
有難うございました。
教えていただいたとおりに入力してみて、フォームに営業部員NOを入れてみたのですが、実行時のエラーでクエリ式営業部員コード="'"の構文エラー演算子がありませんって出てしまいました。
これって、担当者=の前に If Not IsNull(営業部員コード)Then と入れたのですがこれが原因でしょうか?
Empty値ってなってるのが原因でしょうか?
お手数かけますが宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(ビジネス・キャリア) スポット取引とは? 1 2023/04/06 15:23
- IT・エンジニアリング このような電子カルテ導入SEの仕事の大変さとは何なのでしょうか? 開発部と営業部は別にあるため、コー 2 2022/07/12 19:43
- 知的財産権 取扱説明書の取扱いで違法になるのはどれでしょうか? 2 2022/08/01 17:12
- 会社・職場 職場にクセの悪い営業担当者がいて、イベントに使う参加者の名札の製作も頼んでくるのですが、顧客がFax 2 2023/08/17 10:32
- その他(スマートフォン・携帯電話・VR) スマホの操作について 3 2022/08/28 21:47
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
- Access(アクセス) ExcelのVBAコードについて教えてください。 4 2023/01/20 09:44
- Visual Basic(VBA) VBA&マクロのシート転記について。 6 2022/06/01 16:44
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- JavaScript 空白で入力フォームのボタンをクリックしたら、ブラウザの上部からjavascriptで 表示されるアラ 1 2022/05/20 11:16
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
AccessでIDを入力したら他の項目も自動で表示
Access(アクセス)
-
AccessのDLookUpの第3引数の値について
Access(アクセス)
-
-
4
2つ目のレコードの値を取得するには?
Access(アクセス)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
Access2010 「演算子がありません」エラー
その他(データベース)
-
7
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
8
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
9
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
10
テーブルでメモ型になっているのにクエリで結合ができません。
その他(データベース)
-
11
VBAをつかってクエリの情報を抽出するには??
Visual Basic(VBA)
-
12
Nullの使い方が不正です。
Visual Basic(VBA)
-
13
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
14
ACCESS クエリの抽出条件に他のテーブルの値を参照する方法
Access(アクセス)
-
15
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
16
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
17
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
18
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
19
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
20
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JAN コードとITFコードの違い...
-
マイクロソフト 一時使用コード...
-
CODE関数から他の文字コードの...
-
JANコード、ITFコードの作成
-
ギターのTAB譜の記号 N.C....
-
オーシャンゼリゼのギターコー...
-
『車の中でかくれてキスをしよ...
-
マイクロソフト OFFICEが 安い...
-
Excel VBA Tabコードの出力
-
VBA ダブルクリックするたびに...
-
電気コードがスルスルと巻き戻...
-
サイトによってコード譜が違う...
-
ギター最近始めました。 コード...
-
ベース 初心者 バンド キー
-
束ねられて売られている電源コ...
-
家電の長い電源コードを短く結...
-
DLookupがうまく出来ません
-
【マクロ】PasteSpecialメソッ...
-
pinコード
-
ドライアーのコードから煙が出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マイクロソフト 一時使用コード...
-
こんにちは。 私の車はデイズル...
-
ギターのTAB譜の記号 N.C....
-
VBA ダブルクリックするたびに...
-
JAN コードとITFコードの違い...
-
ドライアーのコードから煙が出...
-
マイクロソフト OFFICEが 安い...
-
JANコード、ITFコードの作成
-
開封した延長コードが型着いて...
-
マイナーの裏コードは存在する?
-
CODE関数から他の文字コードの...
-
◎PPMのコードをお教えいただ...
-
電源コードをござの下にくぐら...
-
ギターコードについて
-
【EXCEL-VBA】PDFファイルを開...
-
【マクロ】PasteSpecialメソッ...
-
『車の中でかくれてキスをしよ...
-
電気製品のコードが溶けました
-
Excel VBA Tabコードの出力
-
コードを白く塗りたい
おすすめ情報