by Faustin Moses R (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 13th August 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
To AutoGenerate Code From AA001-ZZ001
API Declarations
And a function named gencode
Place Textbox as getcode
Place command Button
Function Declarations:
Dim last
Dim first
Dim tot
Dim getfirst
Dim getsecond
Dim flag
VBcoders
Function gencode(a As String) As String
'AUTO GENERATION OF CODE
flag = 0
If a = "0" Then
gencode = "AA001"
Else
last = Mid(a, 3) + 1
If Val(last) < 10 Then
last = "00" + "" & last & ""
ElseIf Val(last) < 100 And last > 10 Then
last = "0" + "" & last & ""
ElseIf Val(last) = 1000 Then
last = "001"
End If
tot = a
If Val(Right(a, 3)) <> 999 Then
first = Left(a, 2)
Else
first = Left(tot, 2)
If Right(first, 1) = "A" Then
getfirst = "B"
ElseIf Right(first, 1) = "B" Then
getfirst = "C"
ElseIf Right(first, 1) = "C" Then
getfirst = "D"
ElseIf Right(first, 1) = "D" Then
getfirst = "E"
ElseIf Right(first, 1) = "E" Then
getfirst = "F"
ElseIf Right(first, 1) = "F" Then
getfirst = "G"
ElseIf Right(first, 1) = "G" Then
getfirst = "H"
ElseIf Right(first, 1) = "H" Then
getfirst = "I"
ElseIf Right(first, 1) = "I" Then
getfirst = "J"
ElseIf Right(first, 1) = "J" Then
getfirst = "K"
ElseIf Right(first, 1) = "K" Then
getfirst = "L"
ElseIf Right(first, 1) = "L" Then
getfirst = "M"
ElseIf Right(first, 1) = "M" Then
getfirst = "N"
ElseIf Right(first, 1) = "N" Then
getfirst = "O"
ElseIf Right(first, 1) = "O" Then
getfirst = "P"
ElseIf Right(first, 1) = "P" Then
getfirst = "Q"
ElseIf Right(first, 1) = "Q" Then
getfirst = "R"
ElseIf Right(first, 1) = "R" Then
getfirst = "S"
ElseIf Right(first, 1) = "S" Then
getfirst = "T"
ElseIf Right(first, 1) = "T" Then
getfirst = "U"
ElseIf Right(first, 1) = "U" Then
getfirst = "V"
ElseIf Right(first, 1) = "V" Then
getfirst = "W"
ElseIf Right(first, 1) = "W" Then
getfirst = "X"
ElseIf Right(first, 1) = "X" Then
getfirst = "Y"
ElseIf Right(first, 1) = "Y" Then
getfirst = "Z"
ElseIf Right(first, 1) = "Z" Then
getfirst = "A"
flag = 1
End If
If flag = 1 Then
If Left(first, 1) = "A" Then
getsecond = "B"
ElseIf Left(first, 1) = "B" Then
getsecond = "C"
ElseIf Left(first, 1) = "C" Then
getsecond = "D"
ElseIf Left(first, 1) = "D" Then
getsecond = "E"
ElseIf Left(first, 1) = "E" Then
getsecond = "F"
ElseIf Left(first, 1) = "F" Then
getsecond = "G"
ElseIf Left(first, 1) = "G" Then
getsecond = "H"
ElseIf Left(first, 1) = "H" Then
getsecond = "I"
ElseIf Left(first, 1) = "I" Then
getsecond = "J"
ElseIf Left(first, 1) = "J" Then
getsecond = "K"
ElseIf Left(first, 1) = "K" Then
getsecond = "L"
ElseIf Left(first, 1) = "L" Then
getsecond = "M"
ElseIf Left(first, 1) = "M" Then
getsecond = "N"
ElseIf Left(first, 1) = "N" Then
getsecond = "O"
ElseIf Left(first, 1) = "O" Then
getsecond = "P"
ElseIf Left(first, 1) = "P" Then
getsecond = "Q"
ElseIf Left(first, 1) = "Q" Then
getsecond = "R"
ElseIf Left(first, 1) = "R" Then
getsecond = "S"
ElseIf Left(first, 1) = "S" Then
getsecond = "T"
ElseIf Left(first, 1) = "T" Then
getsecond = "U"
ElseIf Left(first, 1) = "U" Then
getsecond = "V"
ElseIf Left(first, 1) = "V" Then
getsecond = "W"
ElseIf Left(first, 1) = "W" Then
getsecond = "X"
ElseIf Left(first, 1) = "X" Then
getsecond = "Y"
ElseIf Left(first, 1) = "Y" Then
getsecond = "Z"
End If
End If
If flag = 1 Then
first = "" & getsecond & "" + "" & getfirst & ""
Else
first = Left(first, 1) + "" & getfirst & ""
End If
End If
gencode = "" & first & "" + "" & last & ""
End If
If gencode = "A001" Then
MsgBox "Out of Buffer", vbInformation
Else
End If
End Function
Performance:
Place a TextBox and a CommandButton
Change Name;
-----------
TextBox : getcode
Private Sub Command1_Click()
getcode = gencode(getcode)
End Sub
Private Sub getcode_LostFocus()
If getcode = "" Then
getcode = 0
End If
End Sub
' Thankyou
