Q&A
> 顧客名称を表示させるラベルにはプロパティシートからコントロールソースに・・・
ラベルにはコントロールソースはないですが、これはテキストボックスのことですか。
前提・実現したいこと
当方ACCESS、プログラミング初心者です
１．コンボボックスで値を選択、その選択した値を横のラベルに表示する。
２．コンボボックスにAfterUpdateイベントを用意しておき、コンボボックスの値が変更された際に選択した値を用いMe.RecordSourceでレコードソースを抽出する。
３．各ラベル等に設定していたコントロールソースを元に先ほどMe.RecordSourceで設定したレコードソースの値が入る。
発生している問題・エラーメッセージ
ブレイクポイントを挿入し検証
１．コンボボックスで選択した値がラベルに表示される。
２．値を選択後AfterUpdateが発動しMe.RecordSourceが実行される。
問題→コンボボックスで選択した値を表示するラベルの値がクリアされてしまう
※コンボボックスの値を基に抽出したレコードソースの値は各ラベルにきちんと表示されています。
※コンボボックスで選択した顧客IDで抽出したレコードソースが存在する場合は顧客名称は表示される
該当のソースコード
コンボボックスにプロパティシートから値集合ソースを設定します。今回は顧客マスタを設定しています（顧客IDと顧客名称）
コンボボックスで選択した値をラベルに表示させます。コンボボックスで顧客IDを選択しその横のラベルに顧客名称を表示させます
顧客名称を表示させるラベルにはプロパティシートからコントロールソースに=[顧客ID].Columnと設定しています。
コンボボックスにはAfterUpdateイベントを用意しておりAfterUpdateで下記のSetRecordSource()が実行されます。
Private Sub SetRecordSource()
Dim strSQL As String
strSQL = "" strSQL = strSQL & "select " strSQL = strSQL & " * " strSQL = strSQL & " from " strSQL = strSQL & " 顧客買い物 "
strSQL = strSQL & "Where"
strSQL = strSQL & "'" & コンボボックスの値 & "'"
Me.RecordSource = strSQL Me.Requery Me.Recalc
End Sub
試したこと
ブレイクポイントを用いてMe.RecordSource = strSQLを実行しレコードソースが変更されると顧客名称を表示するラベルがクリアされることが分かった。
補足情報（FW/ツールのバージョンなど）
ACCESS2019
ここにより詳細な情報を記載してください。
ラベルと記述している部分はすべてテキストボックスです。
失礼いたしました。
コンボボックスの下記プロパティの設定を質問に追記してください。
コントロールソース
連結列
値集合ソース
列幅
返信遅くなり申し訳ありません。
コントロールソース：空白
値集合ソース ：M_顧客
連結列１ ：１
列幅 ：3cm;8cm
です
回答1件
0
RecordSource の変更を行った場合、Requeryしなくとも自動的に反映されるはずです。
RequeryおよびRecalcをコメントアウトするとどうなりますか。
また、SQLのwhere条件については誤記だと思いますが、コンボボックスの参照をSQL内に埋め込めば、RecordSource の変更は不要になります。
投稿2020/09/24 03:06
総合スコア25327
ご回答ありがとうございます。
Requery、Recalcをコメントアウトしても変化はありませんでした。
Recordsourceの行を実行したタイミングで名称表示用のテキストボックスがクリアされてしまいます。
コンボボックスの参照については試してみます！
名称表示用のテキストボックスに対しての処理がどこかで呼ばれていたりしないですか？
VBAで記述されているのは検索で何とか見つかりますけど、マクロとかだと探しづらいですけどね。
返信遅くなり申し訳ありません。
VBAのエディタでテキストボックスを探してみましたが特にイベント等使用はございませんでした。
マクロは特に作成しておりませんのでございません。
現状対策としてコントロールソース変更後イベントの処理後、変更されるテキストボックスをサブフォームにする事で実現したい状態になりました。
あなたの回答
tips
プレビュー
