Access VBA 出力エラー

Question

前提・実現したいこと

Accessのレポートを読み込み時にフィールドの文字列に応じて、レポートに表示する文字列を指定するというマクロを作成しています。

発生している問題・エラーメッセージ

各行（レコード）のごとに文字列を取り込み、結果を出力したいのですが、実行してみると、文字列を読み込むたびに、すべての行（レコード）に対して結果が表示されてしまっているようです。
どのように修正すればよろしいでしょうか？

該当のソースコード

Private Sub Report_Load()
  Dim rs As Recordset
  'レコードセットにてクエリを指定する
  Set rs = CurrentDb.OpenRecordset("Q01_商品")
  'レコードがなくなるまで繰り返す
  Do Until rs.EOF
    '３文字目から検索を開始し、３文字目を変数に格納する
    i = 3: Todoke = Mid(rs(0), i, 1)
    '検索した文字が部でなければ繰り返す
    Do While Todoke <> "部"
　　　'次の文字を検索する
      i = i + 1: Todoke = Mid(rs(0), i, 1)
      '検索した文字が空欄だった場合（文字列に部がない場合）
      If Todoke = "" Then
　　　　 '繰り返し処理から離脱する
        Exit Do
      End If
    Loop
    '一つ手前に戻る
    i = i - 1
    'レポートの『Txt_届け先フィールド』にて部の手前の文字まで出力する
    '部がない場合は、文字列のすべてを出力する
    Me.Txt_届け先.Value = Left(rs(0), i)
    '次のレコードに移動する
    rs.MoveNext
  Loop
End Sub

Answer 1

呈示のコードはAccessのレポートの機能をまったく理解していないピント外れの方法になります。

まずはレポート(Access)の基本から学習したほうかいいかと思います。

レポートやフォームの基本的な使い方は、レコードソースにテーブルまたはクエリを設定して（連結レポート、連結フォーム）、テキストボックスのコントロールソースにフィールド名または式を設定してデータを表示するという設計になります。

呈示のコードからやりたいであろうことを推測すると、
"Q01_商品"クエリの1番目のフィールドのテキストの"部"より左側の文字列をテキストボックスに表示したいことだと思われます。

下記の手順で簡単に実現できます。
レコードソースに Q01_商品 と設定する。
テキストボックスのコントロールソースに下記の式を設定する。

=Left([F1],InStr(1,[F1] & "部","部",0))

一番目のフィールド名を「F1」と仮定しています。

これで実現できるはずです。

Comments

[Yoshikun_0945]

ご返信遅くなり誠に申し訳ございませんでした。
ご回答いただきましたコードにて実行できました。
ありがとうございました