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 QD As DAO.QueryDef
    Dim SQL As String
    
    Set DB = CurrentDb
    SQL = "INSERT INTO tbl商品 VALUES('パソコン関連本',17)"
    
    '一時的なクエリを作成してクエリを実行する
    Set QD = DB.CreateQueryDef("", SQL)
    QD.Execute
    
    Set QD = Nothing: Set DB = Nothing
    
End Sub


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



Microsoft Office ブログランキングへ