Dim strPlateNum As String
Dim strPlateCode As String
strPlateNum = Right(Left(Me.txtPlateNum, 4), 2)
strPlateCode = Left(Me.txtPlateNum, 1)
If strPlateNum = "01" Then
Select Case strPlateCode
Case "0"
Me.txtPlateType = "New Plate"
Case "5"
Me.txtPlateType = "New PLate"
Case Else
Me.txtPlateType = "Old Plate"
End Select
End If
You can use this, i am unsure how UK plates work, but i belive this is what you want, it first checks the "01" part, then checks the front number if it is a "0" or "5", customize it to fit your needs.
________ Washington medical marijuana
Dim strPlateNum As String
Dim strPlateCode As String
strPlateNum = Right(Left(Me.txtPlateNum, 4), 2)
strPlateCode = Left(Me.txtPlateNum, 1)
If strPlateNum = "01" Then
Select Case strPlateCode
Case "0"
Me.txtPlateType = "New Plate"
Case "5"
Me.txtPlateType = "New PLate"
Case Else
Me.txtPlateType = "Old Plate"
End Select
End If
You can use this, i am unsure how UK plates work, but i belive this is what you want, it first checks the "01" part, then checks the front number if it is a "0" or "5", customize it to fit your needs.