TextBox darf nicht leer und nur Zahlen haben
16.12.2014 14:31:35
Zesa
ich möchte was bewerkstelligen, bekomme es aber nicht hin.
Folgendes, ich habe zwei Labels, eine Textbox.
in dem Label steht eine Zahl. In die Textbox soll eine weitere Zahl, und in dem Label am Ende die Summe.
Soweit so gut.
Der Code dafür ganz banal und es funktioniert auch.
Doch wenn ich DELETE (also mit der Tastatur) und die Textbox leer ist, kommt ein Laufzeitfehler "13" Typenkonflikt. (Bilder kann ich aus irgendeinem Grund leider nicht hochladen)
Irgendwie muss ich diesen abfangen,
gleiches gilt auch für Buchstaben etc. was da aber schon sinn macht.
Der Code, wie gesagt, ganz banal:
Private Sub Artikel_Anzahl_Change()
Dim ArtikelP As Integer
Dim ArtikelZ As Integer
ArtikelP = Artikel_Preis.Caption
ArtikelZ = Artikel_Anzahl.Text
Artikel_Summe.Caption = ArtikelP * ArtikelZ
End Sub