Pflicht Angabe

[valeripf]

Hi Kann Mir Helfen

und zwar ich Brauche

1) Wenn in TextBox1 wert Eingegeben ist, dann bei Ok Drücken TextBox2 ist Pflicht Angabe
Wenn In TextBox2 Keine Wert Angegeben ist, Dann MsgBox "Bitte TextBox2 Eingeben"

2) Wenn In TExtBox1 Kein Wert Angegeben Dann bei OK Drucken TextBox2 Keine Pflicht Angabe
Kein MsgBox

Danke

 

[Zvoni]

Ich werde es mein Leben lang nicht verstehen, wieso Leute Plausibilitäts-Prüfungen auf diese Art und weise machen.

cmdOK.Enabled von Anfang an auf False setzen, und dann wie unten

Private Sub TextBox1_Change()

    If TextBox1.Text <> "" And TextBox2.Text <> "" Then
    
        cmdOK.Enabled = True
    
    Else
    
        cmdOK.Enabled = False
    
    End If

End Sub

Private Sub TextBox2_Change()

    If TextBox1.Text = "" And TextBox2.Text <> "" Then
    
        cmdOK.Enabled = True
    
    Else
    
        cmdOK.Enabled = False
    
    End If

End Sub

In diesem Fall kann man auf OK nur clicken, wenn
1. Beide Textboxes gefüllt sind
2. Nur Textbox2 gefüllt ist

Sind beide leer, kann man auf OK nicht clicken. Ist es so gewünscht, dann einfach cmdOK.Enabled von Anfang an auf True setzen

 

[valeripf]

Du hast mich Falsch verstanden

ich brauche nicht Enabled

ich Brauche Prüfung mit MsgBox

wenn TextBox1 Voll Dann TextBox2 Pflicht und MsgBox "Bitte TextBox2 Wert Eingeben"

Wenn TextBox1 Leer Dann soll Kein MsgBox Aber Trotztem OK Daten Ins Tabelle Übertagen

 

[tombe]

Dann einfach so prüfen:

If TextBox1.Text <> "" And TextBox2.Text = "" Then
    MsgBox "Bitte Wert in TextBox 2 eingeben!"
    Exit Sub
End If

Wobei es jetzt möglich ist TextBox 1 leer zu lassen und in TextBox 2 tzrotzdem einen Wert einzugeben!

 

[valeripf]

Danke Funktioniert

Bei mir ist nicht Möglich TextBox2 ist Enabled = False.Geht nur wenn TextBox1 wert drin Steht