Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Making Bulk Changes

Sub RunUpdateQuery()     Dim cnn As ADODB.Connection     Set cnn = New ADODB.Connection     Set cnn = CurrentProject.Connection     cnn.Execute "qryIncreaseTotalEstimate"     cnn.Close End Sub