ich möchte gerne folgendes durchführen:
Prüfung bei Vermittler der mit 12 beginnt, das KDEX-Feld gefüllt ist:
Ich habe also eine UserBox mit den TextBoxen TextBoxVermittler und TextBoxKDEX
Wenn ich mit OK die Einträge in meiner Tabelle übernehmen lasse, soll geprüft werden, ob wenn in TextBoxVermittler ein Eintrag mit 12...... steht, ob TextBoxKDEX nicht leer ist. Wenn kein Eintrag in TextBoxKDEX zu finden ist, dann Fehlermeldung über MsgBox
Ich habe mir folgendes gedacht:
Private Sub Eintragen_Click()
If Me.TextBoxVermittler.Value = "12*" And Me.TextBoxKDEX.Value = "" Then
MsgBox ("Bei Vermittler mit 12.... bitte KDEX angeben. Wenn nicht bekannt, bitte UUUUUU eintragen")
Exit Sub
End If
End Sub
Hatte mich an meiner Programmierung hier angelehnt im selben Private Sub Eintragen_Click()
If Me.TextBoxVertragsnummer.TextLength > 11 Then
MsgBox "Länge der Vertragsnummer prüfen"
Exit Sub
End If
If Me.TextBoxVermittler.TextLength > 16 Then
MsgBox "Länge der Vermittlernummer prüfen"
Exit Sub
End If
Das funktioniert.
Ich finde einfach den Fehler nicht.
Ich bitte um Hilfe. Danke und liebe Grüße