ASCII Character

NewRev = Left(Rev, 1) 'Defines the revision code for the drawing under revision
Me.AllowEdits = True  'Allows the data to be edited
NewRevAlpha = Asc(NewRev) 'Converts the alpha character to a number
NewRevAlpha = NewRevAlpha + 1 'Indexes the alpha character ASCII code by one
If NewRevAlpha > 48 And NewRevAlpha < 57 Then
    NewRevAlpha = 65 - 49 + NewRevAlpha
End If 'If revision is a number it will add the number to the ASCII code for the correct letter
[COLOR=red]This is where I am stuck
If NewRevAlpha > 90 Then
    NewRevAlpha = 65
End If 'If revison letter goes beyond Z the next revision letter is AA, etc... [/color]
Debug.Print "NewRevAlpha is " & NewRevAlpha
Me!Revision.Value = Chr(NewRevAlpha) 'Places updated revision character in table
Me.AllowEdits = False 'Disables table edits
Me.Refresh 'Updates data in form and table

[blue]Public Function NextRev(ByVal curRev As String) As String
   Dim newASC As Integer, idx As Integer, curAsc As Integer
   
   If curRev <> "" Then
      
      [green]'Insure curRev contains all letters & convert to uppercase[/green]
      For idx = 1 To Len(curRev)
         curAsc = Asc(Mid(curRev, idx, 1))
         
         If (curAsc > 64 And curAsc < 91) Or _
            (curAsc > 96 And curAsc < 123) Then
            Mid(curRev, idx, 1) = Chr(curAsc And 223)
         Else
            MsgBox "'Rev' Is Not All Letters!"
            Exit Function
         End If
      Next
      
      [green]'Test last character in curRev[/green]
      newASC = Asc(Right(curRev, 1)) + 1
      
      If newASC > 90 Then
         [green]'CrossOver occurs here[/green]
         NextRev = curRev & "A"
      Else
         [green]'Next increment occurs here[/green]
         NextRev = Left(curRev, Len(curRev) - 1) & Chr(newASC)
      End If
   Else
      MsgBox "No Rev Arguement!"
   End If
   
End Function[/blue]

[blue]Rev = "l"
[i]variable[/i] = NextRev(Rev) [green]'returns "M"[/green]

Me.TextboxName = NextRev("aZ") [green]'returns "AZA"[/green][/blue]

Function AlphaRev(ByVal RevNo As Integer) As String
Select Case RevNo > 26
    Case True
        AlphaRev = Chr(64 + Int((RevNo - 1) / 26))
        While RevNo > 26
            RevNo = RevNo - 26
        Wend
End Select
AlphaRev = AlphaRev & Chr(64 + RevNo)
End Function

Function NextInSeq(Val As String) As String
    Dim i As Integer, nVal, sByt As String, iVal As Integer
    Const BASE = 27
    Const MIN_ = 65
    
'convert to base 10
    
    For i = 0 To Len(Val) - 1
        sByt = Mid(Val, Len(Val) - i, 1)
        nVal = nVal + (Asc(sByt) - MIN_ + 1) * BASE ^ i
    Next
    
    nVal = nVal + 1   'incriment
    
'convert to BASE
    
    Do
        iVal = nVal Mod BASE
        If iVal = 0 Then iVal = 1
        nVal = nVal \ BASE
        NextInSeq = Chr(iVal + MIN_ - 1) & NextInSeq
        
    Loop While nVal > 0
End Function

Private Sub btnApprove_Click()

Dim strNewRev As String
Dim NewRevAlpha As Integer

NewRev = Revision 'Defines the revision code for the drawing under revision
Me.AllowEdits = True 'Allows the data to be edited
NewRev = DLookup("Number", "tblRev", "Revision")
NewRev = NewRev + 1 'Indexes the alpha by one
Me!Revision.Value = NewRev 'Places updated revision character in table
Me.AllowEdits = False 'Disables table edits
Me.Refresh 'Updates data in form and table
End Function