✔ Gleichzeitiges Prüfen von textfeld & checkbox

[BeAFrog]

Hallo zusammen,

ich bin langsam am Verzweifeln. Das Problem
Ich habe ein Textfeld und eine Checkbox ich möchte, dass wenn das Textfeld den wert 0 enthält die checkbox auf uncheck gesetzt wird und eine Meldung ausgegeben wird.

Die Prüfung hab ich einmal hier:

Private Sub txt_GK3Q1_LostFocus()
    If chk_GK3Q1 = vbChecked And txt_GK3Q1.Text = 0 Then        
        chk_GK3Q1 = vbUnchecked
        MsgBox "geht net"
    End If

und hier:

Private Sub chk_GK3Q1_Click()
    If chk_GK3Q1 = vbChecked And txt_GK3Q1.Text = 0 Then
        chk_GK3Q1 = vbUnchecked
        MsgBox "geht net"
    End If
    check_checkboxes 'Sollte für das Problem belanglos sein
End Sub

Das passt soweit auch ABER, wenn das Textfeld leer ist und ein Häkchen gesetzt wird bekomme ich den Fehler, dass die Typen unverträglich sind.
Sicherlich eine Banalität, aber ich finde das Problem einfach nicht. Ach ja eines noch...Weder Textfelder noch Checkboxen sind besonders deklariert, will ich auch nicht unbedingt da, die in massen aufretten.

Beste Grüße
BeAFrog

 

[wincnc]

Hallo

Du fragst bei der TextBox eine Zahl ab. Das führt zu dem Fehler.
Du musst einen Text (String) abfragen.

Private Sub txt_GK3Q1_LostFocus()
    If chk_GK3Q1 = vbChecked And txt_GK3Q1.Text = "0" Then        
        chk_GK3Q1 = vbUnchecked
        MsgBox "geht net"
    End If
End Sub

Oder den Wert der TextBox in eine Zahl umwandeln.

Private Sub txt_GK3Q1_LostFocus()
    If chk_GK3Q1 = vbChecked And CInt(txt_GK3Q1.Text) = 0 Then        
        chk_GK3Q1 = vbUnchecked
        MsgBox "geht net"
    End If
End Sub

 

[BeAFrog]

Anführungszeichen... 3 Stunden für Anführungszeichen.

Vielen Dank wincnc! Funktioniert nun einwandfrei.

Grüße
BeAFrog