No doubt I've made an error somewhere. Here's my code:
Private Sub TAC_Change()
If Len(Me.TAC.Text & "") > 5 Then
Me.TAC = Left(Me.TAC.Text, 5)
Me.TAC.SelStart = 5
End If
End Sub
Private Sub TAC_KeyPress(KeyAscii As Integer)
' "QSTURV" or the letter Z
Select Case KeyAscii
Case Is = 81, 82, 83, 84, 85, 86, 90, 8
' accept input
Case Else
KeyAscii = 0
End Select
End Sub
I do have another question though. From the code it looks like it will accept any five characters of QSTURVZ, whereas what I need is any combination of QSTURV OR Z by itself.