Microsoft Access 掲示板

Microsoft Access 掲示板

1つのコンボボックスから、複数のテキストボックスに同時入力したい / 5

9 コメント
views
4 フォロー
5
hatena 2024/04/03 (水) 18:27:11 修正

コンボ351 というのはサブフォームにあるのですよね。
ならば、hirotonさんが提案されたフォームのレコードセットを更新していく方法がいいと思いますよ。

Private Sub コンボ351_AfterUpdate()
    With Me.Recordset.Clone
        Do Until .EOF
            .Edit
            !suitei_tenko = Me!コンボ351
            .Update
            .MoveNext
        Loop
        .Close
    End With
    Me.Recalc
End Sub

更新クエリで、サブフォームに記述するコードなら、Me(サブフォーム自身) と Parent(親フォーム) を使えば、
ややこしい参照式を使う必要はないです。

SQL = "UPDATE public_stb_ra_time_shokin_5 INNER JOIN public_stb_ra_tpc_sabun " & _
      "ON public_stb_ra_time_shokin_5.race_id = public_stb_ra_tpc_sabun.race_id " & _
      "SET public_stb_ra_tpc_sabun.suitei_tenko = " & Me.コンボ351.Value & _
      "WHERE public_stb_ra_time_shokin_5.hizuke = " & Parent!開催日.Valu & "));"
通報 ...