Access VBA Withエラー

Question

前提・実現したいこと

編集で使用するテキストボックス名を配列に代入し、
繰り返し処理にて、配列の値を使用したテキストボックスのプロパティ指定を実行しようとしています。

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

繰り返し処理中に、withを使用して配列に代入したテキストボックスのプロパティ設定を行いたかったのですが、型が異なるそうです。
どのように修正すればWithが使用できますか？

実行時エラー'13'型が一致しません。

該当のソースコード

'『Module_Hiragana』という標準モジュールに記述しています。
Public Sub Hiragana_Load()
  Call Txt_Name
  '整数型の変数を宣言し、初期値を格納する
  Dim i, j, k, ken, a As Integer: ken = 0
  'フォーム名用の変数を宣言し、フォーム名を格納する
  Dim FormName(1) As Form: Set FormName(0) = Forms!F02_メイン!F02_1_サブ.Form
  Set FormName(1) = Forms!F02_1_サブ.Form
  'コントロール名用の変数を宣言する
  Dim TxtName, SubForm, LaName, TxtName2 As String
  'サブフォーム名を設定する
  SubForm = "F02_1_入力画面"
  '現在押されたボタンの文字コードを変数に格納する
  Now(0) = Asc(Hiragana(0))
  
  '押されたボタンが『あ』～『の』の場合
  If Now(0) <= -32052 Then
    '検索開始のレコード(行)番号と検索終了のレコード(行)番号を変数に格納する
    Hiragana(1) = 0: Hiragana(2) = No
  '押されたボタンが『は』～『わ』の場合
  Else
    '検索開始のレコード(行)番号と検索終了のレコード(行)番号を変数に格納する
     Hiragana(1) = Ha: Hiragana(2) = Wa
  '分岐処理を終了する
  End If
  
  '処理開始行と処理終了行の初期値を－１とする
  Hiragana(3) = -1: Hiragana(4) = -1
  '処理開始行と処理終了行を検索する
  For i = Hiragana(1) To Hiragana(2)
    '押されたボタンと最初に一致した場合
    If Now(0) <> Asc(Stock(i, 3)) And Now(0) = Asc(Stock(i, 3)) Then
      '現在参照中の行番号を変数に格納する（処理開始行番号）
      Hiragana(3) = i
    '押されたボタンと最後に一致した場合
    ElseIf Now(0) = Asc(Stock(i, 3)) And Now(0) <> Asc(Stock(i + 1, 3)) Then
      '現在参照中の行番号を変数に格納する（処理終了行番号）
      Hiragana(4) = i
      '繰り返し処理から強制離脱する
      Exit For
    '分岐処理を終了する
    End If
  '繰り返し処理に戻る
  Next

  '処理を実施する行のあいだ繰り返す
  For i = Hiragana(3) To Hiragana(4)
    '処理を実施する列のあいだ繰り返す
    For j = 0 To 9
      '省略記述を開始する
　　　'この行で型不一致のエラーが出ます。
      With FormName(0).Controls(TxtName(ken, j))
        'テキストボックスを画面に表示し、編集可能状態にする
        .Visible = True: .Enabled = True: Locked = False
        '貯蔵品配列の列番号が３ ・ ５以外の場合
        If j <> 2 And j <> 4 Then
          '貯蔵品配列の情報をテキストボックスに出力する
          .Visible = Stock(i, j + 1)
        '貯蔵品配列の列番号が３ ・ ５の場合
        Else
          .Visible = ""
        End If
      '省略記述を終了する
      End With
    '繰り返し処理に戻る
    Next
  '繰り返し処理に戻る
  Next
  '親フォームの水平と垂直のスクロールバーを表示する
  FormName(1).ScrollBars = 3
  '現在の行数を変数に格納する
  TxtVisible = i - 1
  '現在の画面に表示している行が３０行未満の場合
  If TxtVisible < 30 Then
    '現在の画面に表示している行が１０行未満の場合
    If TxtVisible <= 10 Then
      '親フォームのスクロールバーを水平方向だけにする
      FormName(1).ScrollBars = 1
    '分岐処理を終了する
    End If
    '３０行目まで繰り返す
    For i = TxtVisible + 1 To 30
      '１０列分繰り返す
      For j = 0 To 9
        'テキストボックスを非表示にする
        FormName(0).Controls(TxtName(i, j)).Visible = False
      '繰り返し処理に戻る
      Next
    '繰り返し処理に戻る
    Next
  '分岐処理を終了する
  End If
End Sub

'『Module_Txt』という標準モジュールに記述しています。
Public Sub Txt_Name()
'『F02_1_サブ』というサブフォームのテキストボックス名を変数に格納する処理
  'カウント用変数を宣言する
  Dim i, j, moji As Integer
  '行数分繰り返す
  For i = 0 To 29
    LaName(i) = "La_a" & i + 1
    '文字コードを９８『ｂ』にセットする
    moji = 98
    '列数分繰り返す
    For j = 0 To 9
      'テキストボックス名を変数に格納する
      TxtName(i, j) = "Txt_" & Chr(moji) & i + 1
      '文字コードを加算する『ｂ → ｃ → ｄ → ｅ …』
      moji = moji + 1
    Next
  Next
End Sub

'『F02_3_ひらがなボタン』という名称のサブフォームに設置しているボタンで動作します。
Private Sub Img_A_Click()
  DoCmd.OpenForm "F02_1_入力画面", acNormal, , , acFormEdit, acHidden
  '『あ』ボタンが押されたことを変数に記録する
  Hiragana(0) = "あ"
  'ひらがな処理に移動する
  Call Hiragana_Load
End Sub

Private Sub Img_E_Click()
  '『え』ボタンが押されたことを変数に記録する
  Hiragana(0) = "え"
  'ひらがな処理に移動する
  Call Hiragana_Load
End Sub

Private Sub Img_I_Click()
  '『い』ボタンが押されたことを変数に記録する
  Hiragana(0) = "い"
  'ひらがな処理に移動する
  Call Hiragana_Load
End Sub

Private Sub Img_No_Click()
  Hiragana(0) = "の"
  Call Hiragana_Load
End Sub

Private Sub Img_O_Click()
  '『お』ボタンが押されたことを変数に記録する
  Hiragana(0) = "お"
  'ひらがな処理に移動する
  Call Hiragana_Load
End Sub

Private Sub Img_U_Click()
  '『う』ボタンが押されたことを変数に記録する
  Hiragana(0) = "う"
  'ひらがな処理に移動する
  Call Hiragana_Load
End Sub

Comments

[meg_]

「FormName.Controls((TxtName(i,j))」にてカッコの数が不一致のように見えますが。コピペミスでしょうか？？

Answer 1

手打ちのソースでは、エラーの判定が出来ません。

ソースコードは、実際にエラーが起きているプログラムをコピペしてください。

Comments

[Yoshikun_0945]

コードを修正いたしましたのでご確認いただけますでしょうか。

[yorozuya]

(1) 変数宣言の強制について
各モジュールの先頭に
Option Explicit
と書いてください。
変数の宣言／使用に誤りがあったり、
スペルに誤りがある場合コンパイルエラーになります。

(2) 変数の型宣言について
Dim i, j, k, ken, a As Integer
と書いた場合は、
Dim i As Variant, j As Variant, k As Variant, ken As Variant, a As Integer
と書いたのと等価です。
また、32／64ビット環境では、Integer を使用するメリットはありません。
Dim i As Long, j As Long, k As Long, ken As Long, a As Long
としましょう。

Dim TxtName, SubForm, LaName, TxtName2 As String
等も同様です。

(3) 変数のスコープについて
Public Sub Hiragana_Load()
の中で TxtName の宣言をしていますが、
そのままでは、
Public Sub Txt_Name()
の中で使うことは出来ません。
いろいろな方法がありますが、引数で渡すのが王道です。
Public Sub Hiragana_Load()
の中で、
Dim TxtName(29, 9) As String
と宣言しておいて
Call Txt_Name(TxtName)
と、引数を付けて呼び出す。
呼ばれる方では、
Public Sub Txt_Name(ByRef TxtName() As String)
のように宣言する。

Answer 2

Hiragana_Loadプロシージャの冒頭で TxtName をVariant型で宣言していますね。（型を省略するとVariant型になります）

Dim TxtName, SubForm, LaName, TxtName2 As String

Hiragana_Loadプロシージャの中頃で、TxtName(ken, j)というように配列変数のように記述してますね。

     With FormName(0).Controls(TxtName(ken, j))

配列でないものを配列として扱おうとしているので当然、「型が一致しません。」と怒られます。

おそらくグローバル変数として TxtName を配列として宣言しているだと推測しますが、同じ名前の場合、ローカルで宣言した変数が優先されます。

グローバル変数を多用するとコードが読みづらくなるし、今回のようなバグの原因にもなるので、なるべく使わないようにするのが常識です。

プロシージャ間で共有するデータは、引数や戻り値で引き渡すようなコーディングにすることをお勧めします。