[Access] フォーム上のデータ（レコードセット）を更新。: あした

2019年12月24日

[Access] フォーム上のデータ（レコードセット）を更新。

フォーム上のレコードセットを直接更新するモジュールです。

このケースではサブフォームのレコードセットを更新しています。


Private Sub taisyo_syurui_AfterUpdate()
    Dim rs          As DAO.Recordset
    
    On Error GoTo Err_Proc

    Set rs = Forms![f_メインフォーム]![f_サブフォーム].Form.Recordset.Clone
    rs.MoveFirst
    
    Do Until rs.EOF
        rs.Edit
        Select Case Me.taisyo_syurui
            Case 1
                    rs![List_Taisyo] = True
            Case 3
                    rs![List_Taisyo] = rs![Ship_Flg] 
            Case 9
                    rs![List_Taisyo] = False
        End Select

        rs.Update
    rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
    Forms![f_メインフォーム]![f_サブフォーム].Form.Requery

Proc_Exit:
    DoCmd.SetWarnings 1
    Exit Sub
Err_Proc:
    MsgBox Err.number & " " & Err.description
    Resume Proc_Exit
End Sub

サブフォームのList_Taisyoをメインフォームに配置したMe.taisyo_syuruiの値や
サブフォームのShip_Flgの値により更新しています。

Case 1はすべてのデータを真にしています。
Case 3は[Ship_Flg] が真偽の値を[List_Taisyo]にセットしています。
Case 9はすべてのデータを偽にしています。

【このカテゴリーの最新記事】

posted by naka at 10:46 | TrackBack(0) | Access vba

この記事へのトラックバックURL
https://fanblogs.jp/tb/9502915
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック