【ACCESS】VBA コントロールソースに入れる[フィールド名&変数]で指定

Question

前提・実現したいこと

フォーム.テキストボックス1~40のコントロールソースに直接計算式を
記述するのは修正があったときに面倒なので非連結にしたい。

なのでVBAでテキストボックス140のコントロールソースに
for文などで140のそれぞれのテキストボックスの値を入れた計算式を追加したい。

現状はテキストボックス1~40までのコントロールソースに
for文で文字列を入れることはできてます。

問題は下記の[txt_g_o_a1]、[txt_o_kara1]、[txt_b_o_a1]の1~40まで
あるフィールドをどうやって参照すればいいのか悩んでいます。

For i = 1 To 40 Step 1
        Me.Controls(txtName_wt_o_a & i).ControlSource = _
        "=([txt_g_o_a1]-[txt_o_kara1])*1/1000*[txt_ml_o_a]/1000*100/[txt_smp_g_a]*[txt_b_o_a1]"
    Next i

該当のソースコード

'//////////////////////////////////////////////////////////
' フォーム：描画時処理
'//////////////////////////////////////////////////////////
Private Sub Form_Resize()
On Error GoTo Err_Proc

    ' 初期化処理
    Call InitialSettigs
    
Exit_Proc:
    Exit Sub

Err_Proc:
    MsgBox Err.Description
    Resume Exit_Proc
End Sub
'//////////////////////////////////////////////////////////
' 初期設定
'//////////////////////////////////////////////////////////
Private Sub InitialSettigs()
On Error GoTo Err_Proc
    Dim i As Long                                                   '変数
    Dim txtName_smp_g_a As String: txtName_smp_g_a = "txt_smp_g_a"  'サンプル重量a
    Dim txtName_smp_g_b As String: txtName_smp_g_b = "txt_smp_g_b"  'サンプル重量b
    Dim txtName_ml_o_a As String: txtName_ml_o_a = "txt_ml_o_a"     '王水液量a
    Dim txtName_ml_o_b As String: txtName_ml_o_b = "txt_ml_o_b"     '王水液量b
    Dim txtName_o_kara As String: txtName_o_kara = "txt_o_kara"   'カラ
    Dim txtName_g_o_a As String: txtName_g_o_a = "txt_g_o_a"    '重量a
    Dim txtName_g_o_b As String: txtName_g_o_b = "txt_g_o_b"     '重量b
    Dim txtName_b_o_a As String: txtName_b_o_a = "txt_b_o_a"    '希釈倍率a
    Dim txtName_b_o_b As String: txtName_b_o_b = "txt_b_o_b"    '希釈倍率b
    Dim txtName_wt_o_a As String: txtName_wt_o_a = "txt_wt_o_a"   '(wt%)a
    Dim txtName_wt_o_b As String: txtName_wt_o_b = "txt_wt_o_b"   '(wt%)b
    
    For i = 1 To 40 Step 1
        Me.Controls(txtName_wt_o_a & i).ControlSource = _
        "=([txt_g_o_a1]-[txt_o_kara1])*1/1000*[txt_ml_o_a]/1000*100/[txt_smp_g_a]*[txt_b_o_a1]"
    Next i
    
Exit_Proc:
    Exit Sub

Err_Proc:
    MsgBox (Err.Number & ", " & Err.Description)
    Resume Exit_Proc
End Sub

試したこと

下記のように試しましたが、”=文字列"をそのままコントロールソース
に入れている為かうまく参照できませんでした。

For i = 1 To 40 Step 1
        Me.Controls(txtName_wt_o_a & i).ControlSource = _
        "=([txtName_g_o_a & i] - [txtName_o_kara & i]) * 1 / 1000 * [txtName_ml_o_a] / 1000 * 100 / [txtName_smp_g_a] * [txtName_b_o_a & i]"
    Next i

補足情報（FW/ツールのバージョンなど）

Windows10,ACCESS2016

Answer 1

下記のような感じでどうでしょう。

For i = 1 To 40 Step 1
    Me.Controls(txtName_wt_o_a & i).ControlSource = _
        "=([txtName_g_o_a" & i & "] - [txtName_o_kara" & i & "]) * 1 / 1000 * [txtName_ml_o_a] / 1000 * 100 / [txtName_smp_g_a] * [txtName_b_o_a" & i & "]"
Next i

i を　"・・・" & i & "・・・" というように "" (文字列)の外に出すようにします。

---

下記のようにした方が可読性が上がるかも。

Const CtlSrc = "=([txt_g_o_a#]-[txt_o_kara#])*1/1000*[txt_ml_o_a]/1000*100/[txt_smp_g_a]*[txt_b_o_a#]"

For i = 1 to 40
    Me.Controls(txtName_wt_o_a & i).ControlSource = Replace(CtlSrc, "#", i)
Next

Comments

[tera_taro]

解決しました！ありがとうございます。
理解していない関数については調べてみます。