Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',207)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub

--------------------------------------------------------------

Sub アクションクエリを実行()
    Dim DB As DAO.Database
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品(商品名,在庫数) VALUES('絵本',300)"
    
    'アクションクエリを実行する
    DB.Execute SQL
    
    Set DB = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ