Regular
Beiträge: 50
Ort: Mauerbach bei Wien | Hallo und Mahlzeit!
Ich habe ein Feld, wo nur bestimmte Zeichen eingegeben werden sollen. Wenn ein Adnderes Zeichen eingetioppt werid so soll einee Meldung angegeben werden.
Mit nachfelgenden Anweisungen hatt ich kein Glück:
strfeld1=txtfeld1
If strFeld1 = "*A*" Or strFeld1 = "*B*" Or strFeld1 = "*C*" _
Or strFeld1 = "*D" Then
bolFeld1 = false
end if
'For i = 1 To Len(strFeld1)
'
If Mid$(strFeld1, i, 1) = "A" Or Mid$(strFeld1, i, 1) = "B" _
Or Mid$(strFeld1, i, 1) = "C" Or Mid$(strFeld1, i, 1) = "D" Then
bolFeld1 = false
end if
if bolfeld1 false then
msgbox"Falscher eintrag"
end if
Also die Zeichen A B C D Habne im strFeld1/txtFeld1 nichtrs verlohren
Wer kann helfen?
mfg
Peter |
