Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Update a table with QueryDef

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 WHERE Price > 20"          Set qdf = db.CreateQueryDef("PriceInc", strSQL)          qdf.Execute End Sub