Update a table : Table Update « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Table Update

Update a table

 

Sub exaCreateAction()
    Dim db As Database
    Dim qdf As QueryDef
    Dim strSQL As String
    
    Set db = CurrentDb
    strSQL = "UPDATE BOOKS SET Price = Price*1.1"

    Set qdf = db.CreateQueryDef("PriceInc", strSQL)
    
    qdf.Execute
    
End Sub

 

Related examples in the same category