Microsoft Access 掲示板

遅くなりました。
まずは「T_特記事項」「T_クレーム履歴」に関するSELECT文です。

 strSQL = _
    "SELECT ID, 特記事項, 特記事項詳細 " & _
    "FROM T_特記事項 " & _
    "WHERE 口座番号 = '" & Me.txt_口座番号.Value & "';"
    
  Set daoRs = daoDb.OpenRecordset(strSQL)

  Dim R As Long: R = 1
  Do Until daoRs.EOF = True
    If R > 10 Then
      MsgBox "表示できないレコードが存在しています", vbExclamation, "エラー"
      Exit Do
    End If
  
  Me("txt_特記ID" & R).Value = daoRs!ID
  Me("txt_特記事項" & R).Value = daoRs!特記事項
  Me("txt_詳細リンク" & R).Value = daoRs!特記事項詳細
  
    daoRs.MoveNext
    R = R + 1
  Loop
  
  daoRs.Close
   
  strSQL = _
    "SELECT ID, 発生年月, クレーム内容, 是正処置, クレーム詳細 " & _
    "FROM T_クレーム履歴 " & _
    "WHERE 口座番号 = '" & Me.txt_口座番号.Value & "';"
      
  Set daoRs = daoDb.OpenRecordset(strSQL)

  Dim Z As Long: Z = 1
  Do Until daoRs.EOF = True
    If Z > 10 Then
      MsgBox "表示できないレコードが存在しています", vbExclamation, "エラー"
      Exit Do
    End If
  
  Me("txt_クレームID" & Z).Value = daoRs!ID
  Me("txt_発生年月" & Z).Value = daoRs!発生年月
  Me("txt_クレーム内容" & Z).Value = daoRs!クレーム内容
  Me("txt_是正処置" & Z).Value = daoRs!是正処置
  Me("txt_クレーム詳細リンク" & Z).Value = daoRs!クレーム詳細
  
    daoRs.MoveNext
    Z = Z + 1
  Loop

  daoRs.Close