Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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