another update ?

[thegameoflife]

I need to update a table based on "ID" making "ID2" from the attached code.

I'm using the code to change ID.

Private Sub Command0_Click()
    Dim a As String
    Dim i As Integer
    Dim str2 As String
        
    a = Me.ID
    
    For i = 1 To Len(a)
       str2 = str2 + Chr(Asc(Mid(a, i, 1)) + Asc("A"))
       
    Next i
    
End Sub

 

[GoDawgs]

Where's the question?

 

[thegameoflife]

how do i update ID2 from ID using the code?