Access VBA (1)

非連結フォームからデータ操作を行う。1回目は新規データ登録。
テーブル定義と非連結フォームの画面サンプルを示す。
(ただし、Access2010にて動作確認)

Private Sub cmd_Add_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
        
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Sample1")
        
        rs.AddNew
        
        rs!fld_Id = txt_Id
        rs!fld_Name = txt_Name
        rs!fld_Data1 = txt_Data1
        rs!fld_Data2 = txt_Data2
        rs!fld_Data3 = txt_Data3
        
        rs.Update

'----見やすくするための処理----'
'---- 実際の処理には無関係-----'
        txt_Id = ""
        txt_Name = ""
        txt_Data1 = ""
        txt_Data2 = ""
        txt_Data3 = ""
 '------------ -----------------'
        
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
    
End Sub

Private Sub cmd_Add_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("tbl_Sample1")

rs.AddNew

rs!fld_Id = txt_Id

rs!fld_Name = txt_Name

rs!fld_Data1 = txt_Data1

rs!fld_Data2 = txt_Data2

rs!fld_Data3 = txt_Data3

rs.Update

'----見やすくするための処理----'

'---- 実際の処理には無関係-----'

txt_Id = ""

txt_Name = ""

txt_Data1 = ""

txt_Data2 = ""

txt_Data3 = ""

'------------ -----------------'

rs.Close: Set rs = Nothing

db.Close: Set db = Nothing

End Sub

2回目へ

Access VBA (1)

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル