PDA

Vollständige Version anzeigen : gültigkeitsregel


satori
08.07.2001, 11:51
Hallo Leute,
ich möchte gerne eine Gültigkeitsregel für einen 4-stelligen Textstring erstellen. An der ersten Stelle soll man nur ein "+" oder "-" eingeben können, an der zweiten und dritten Stelle nur Zahlen zwischen 0 und 3 und an der letzten Stelle ein "M" oder eine 0. Wie formuliere ich denn da die Gültigkeitsabfrage? Bekomme immr Fehlermeldungen...

Scorefun
08.07.2001, 13:13
Hi Satori,

sowas wirst Du wahrscheinlich nur in einem Formular verwirklichen koennen.

Am besten eignet sich dafür das
"Before-Update"-Ereignis.

Wenn Dein Textfeld z.B. txtTest heisst, koennte das ganze wie folgt aussehen:

Private Sub txtTest_BeforeUpdate(Cancel As Integer)
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String

If Len(Me.txtTest) <> 4 Then
MsgBox "Eingabe muss 4-stellig sein"
Cancel = True
Exit Sub
End If

s1 = Left(Me.txtTest, 1)
s2 = Mid(Me.txtTest, 2, 1)
s3 = Mid(Me.txtTest, 3, 1)
s4 = Right(Me.txtTest, 1)

If s1 <> "+" And s1 <> "-" Then
Cancel = True
MsgBox "Die 1. Stelle muß + oder - lauten"
Exit Sub
End If

If s2 <> "0" And s2 <> "1" And s2 <> "2" And s2 <> "3" Then
Cancel = True
MsgBox "Die 2. Stelle muss zwischen 0 und 3 sein"
Exit Sub
End If

If s3 <> "0" And s3 <> "1" And s3 <> "2" And s3 <> "3" Then
Cancel = True
MsgBox "Die 3. Stelle muss zwischen 0 und 3 sein"
Exit Sub
End If

If s4 <> "M" And s4 <> "0" Then
Cancel = True
MsgBox "Die 4. Stelle muss ""M"" oder ""0"" lauten"
Exit Sub
End If

End Sub