Hallo zusammen,
hab hier noch ein Problem, ich komm einfach nicht dahinter. Wahrscheinlich stehe ich echt auf der Leitung ;o).
Ich frage mit dem Code-Auschnitt unten einfach nur eine TextBox in einer UF ab, sollte eigentlich kein Problem sein, aber irgendwas mache ich falsch.
Wäre schön, wenn mir jemand weiterhelfen könnt
Gruß
Dieter
Private Sub cmdEinfuegen_Click()
Dim intY As Integer
Dim strGeschlecht As String
strGeschlecht = txtGeschlecht
If strGeschlecht <> "m" Or "w" Then
MsgBox "Bitte geben Sie für das Geschlecht m oder w ein."
End If
' ...... hiernach erfolgt dann die weitere Bearbeitung
End Sub |