Microsoft Access 掲示板

ありがとうございます！！早速ダウンロードを試みましたが、「404 File Not Found」となりました。
もう削除されてしまったでしょうか…遅くなり申し訳ありません。

あっ、ごめなさい。アップロードするフォルダーを間違えてました。今、移動させましたので、ダウンロードできるはずです。ご確認ください。

ダウンロードできました！作っていただいたアクセスファイルを直接確認できるなんて、感動してます。仕事中のためあとでゆっくり見ます。ありがとうございました！

やってみたのですが、うまくいきませんでした。txt担当者を作るためにQ_案件で担当者と案件をつなぐと、F_案件に担当者が入ったものしか表示されなくなってしまうのですが、担当者が全部に入っていません。訳の分からないことを言っていたらすみません。パニック気味です…

問題が解決しました。Q_案件で担当者と案件を外部結合できていませんでした。また、外部結合がエラーでできなかったのですが、担当番号にデフォルトで０が入ってしまっていたことが原因でした。色々お騒がせしました。

先日こちらの件を教えていただき、正常に動いていたのですが、色々なところを触っている内に壊れてしまいました。原因を解明するためにもう、3時間以上確認していると思いますが、全く原因がわかりません…症状としては、全ての帳票のコンボボックスの選択肢が、一番上のコンボボックスの選択肢と同じになっています。どのような原因が考えられるでしょうか…なんだか「txt顧客番号」（作っていただいたところのｃｂ顧客番号）を無視しているように感じます。本当に悩み苦しんでおります…どこに問題があるのか、思いつくところがありましたら助かります。

まずは、下記の点を確認してください。

コンボボックスを重ねていると思いますが、その前後関係は正しくなってますか。リストを絞り込んでいる方が背面にくるようにしてください。

次に、２つのコンボボックスのフォーカス取得時のイベントプロシージャは正しく動作しているか確認してください。
下記のようにDebug.Printのコードを埋め込んで、イミディエイトウィンドウを表示させながら、コンボボックスを操作うしイベントが発生するとイミディエイトウィンドウに出力されるので確認できます。

Private Sub cb2担当者_Enter()
    Me.cb担当者.SetFocus
    Debug.Print "前面コンボボックスフォーカス取得"
End Sub

Private Sub cb担当者_Enter()
    Me.cb担当者.Requery
    Debug.Print "背面コンボボックスフォーカス取得"
End Sub

ご回答ありがとうございました！正直なところ、なぜなおったのかわからないのですが、hatena様の記載してくださったｄｅｂｕｇコードを入れたりVBAに改行を入れたりしているうちになおりました。昨夜からあれやこれやとこねくり回して、さんざんもがき苦しんでいましたが、魔法のようです…本当に助かりました。ありがとうございました！！

なおりました。それはよかったです。
Debugコードはなおったなら必要ないので削除ておいてください。

こちらの機能、複数ののフォームで利用しています。よく使う機能なので、教えてもらい本当に助かりました。ちなみに今、1つのレコード（帳票）で上記のコンボボックスを複数配置したいのですがどうしたら良いでしょうか…1つの案件に担当者を複数配置したくて、コンボボックスを複数配置したいのですが方法がわからず苦しんでいます