Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Change column data case

Sub exaRecordsetEdit()     Dim db As Database     Dim rs As Recordset          Set db = CurrentDb     Set rs = db.OpenRecordset("Employees")          rs.MoveFirst     Do While Not rs.EOF        rs.Edit        rs!Title = UCase$(rs!Title)        rs.Update        rs.MoveNext     Loop          rs.Close      End Sub