Hur gör man enklast om man vill kolla så att ett textfält innehåller endast alfanumeriska tecken alltså (a-z) och (0-9) och att textfältet börjar med en bokstav.. någon som har ett litet exempel på detta?


//J.E

Du kan göra så här:
<code>
Function IsAlfaNumeric(Value)
Dim Char
Dim Index
If Len(Value) Then
IsAlfaNumeric = True
For Index = 1 to Len(Value)
Char = Mid(Value, Index, 1)
If LCase(Char) = UCase(Char) Then
If InStr("0123456789",Char) = 0 Then
IsAlfaNumeric = False
Exit For
End If
End If
Next
End If
End Function
</code>

För att sedan kolla att första teknet inte är ett tal. Skriver du:
<code>
If strTemp Like "#*" Then
'Första tecknet är ett tal
ElseIf IsAlfaNumeric(strTemp) Then
' Ok
Else
'Något annat tecken är ogiltligt
End if
</code>

oki tack så mkt =) de va de ja letade efter


//J.E