Need help to convert data.

[Karan]

I have a mdb access file in which letters or numbers are decremented by one letter or number. that is URL is written as TQK. Please help me to restore the data. Thanks in advance.

[RuralGuy]

For test fields only? Numeric fields are left alone?

[RuralGuy]

Will this function work for you?

Public Function IncField(InField As String) As String
   Dim MyIndex As Long
   For MyIndex = 1 To Len(InField)
      IncField = IncField & Chr(Asc(Mid(InField, MyIndex, 1)) + 1)
   Next
End Function