Fehlermeldung

[hazze]

Wie sag ich dem Programm, das wenn das Feld lehr ist und man trotzdem auf OK drückt, das dann eine fehlermeldung kommt und wie verbind ich das dann (weil Then GoTo gehts ned)

und wie kann ich bei einer MsgBox die Größe festlegen

thx

 

[Alex F.]

Private sub MyOkButton_click()
 if len(meineTextbox)= 0 then exit sub 
 ' hier kommt das was passieren soll
end sub

Grüsse bb

 

[hazze]

Sub betrag_Change()
TextBox = betrag
If Len(TextBox) = 0 Then Exit Sub
MsgBox ("Sie haben einen Eingabfehler!")
End Sub

wenn ich das so eingebe, bekomm ich eine Fehlermeldung, wenn ich eine Zahl eingebe
wenn ich keine eingebe, passiert nichts

 

[ronaldh]

Entweder:

     Msgbox "Sie haben einen Eingabefehler!"

Oder:

   Dim i as integer
   i = Msgbox("Sie haben einen Eingabefehler!")

Grüsse
ronaldh

 

[DrSoong]

Wenn ich mir das so durchlese, glaube ich brainbyte hat da einen logischen Fehler im Code:

Sub betrag_Change()
 If Len(betrag) = 0 Then
  MsgBox "Sie haben einen Eingabfehler!"
 End If
End Sub

Die Meldung soll ja kommen, wenn die Länge 0 ist.


Der Doc!