Hello!
I've been pulling my hair out trying to get this function to, well, FUNCTION (grin)
What am I doing wrong?
"Activities" fields are "ShortProgram", type is Short Text, "ProgramNumber", type is Number.
Immediate window shows;Code:Public Function deleteLeadingCharacters() Dim db As Database Dim rs As Recordset Dim strSql As String Dim Program As String Dim ShortProgram As String Set db = CurrentDb Set rs = db.OpenRecordset("Activities") rs.MoveFirst Do Until rs.EOF Debug.Print "ShortProgram " & rs!ShortProgram Program = Mid(rs!ShortProgram, 29) Debug.Print "Program= " & Program rs.Edit rs!ShortProgram = Program rs.Update If rs.EOF Then Exit Do Loop rs.Close End Function
ShortProgram and
Program
Thanks in advance. A helpful answer will get you a joke.