VBA Fehlerhafter Wert für Fehlerroutine speichern und an angemessener Stelle nutzen

  • Access

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Zyran.

    VBA Fehlerhafter Wert für Fehlerroutine speichern und an angemessener Stelle nutzen

    Hallo zusammen,

    folgende Aufgabenstellung:

    Anzahl Ihrer Kinder [TextBox as Byte]
    Überwachen Sie, dass bei der Kinderzahl keine Buchstaben oder zu große Werte eingegeben werden.

    Mein Problem:

    Wenn ich in die TextBox 256 eingebe, geht das Programm in die Fehlerroutine über und zeigt mir eine Messagebox an, das der eingegeben Wert zu groß ist. Wenn ich jetzt allerdings einen Buchstaben eingebe, bleibt der Wert der TextBox = 0 da sie ja als Byte deklariert wurde. Wie kann ich den eingegebenen Wert mit in die Fehlerroutine übernehmen, sodass darüber eine separate Fehlermeldung ausgegeben werden kann?

    Beispiel:

    Ich gebe in die TextBox eine 256 ein, drücke auf den Button daneben, danach öffnet sich eine Messagebox mit dem Text "Sie haben die maximale Anzahl von 255 Kindern überschritten." Wenn ich stattdessen aber einen Buchstaben eingebe, möchte ich die Meldung "Bitte geben Sie nur Zahlen ein." angezeigt bekommen.

    ​Mit freundlichem Gruß
    Zyran

    Wie erhältst Du denn die Fehlermeldungen? Mit welchen Fehlerbehandlungsmethoden arbeitest Du? Wie ist der Code, um zur 1. MessageBox zu kommen?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VB.NET-Quellcode

    1. ​
    5. Private Sub cmdAufgabe4_Click()
    9. Dim bytKinderzahl As Byte 'Dieser Befehl darf nicht geändert werden
    11. Dim JaNein As Byte
    13. On Error GoTo Fehler
    15. 'Sorgen Sie dafür, dass das Programm nicht abbricht, wenn Buchstaben oder zu große Werte eingegeben wurden.
    17. 'Geben Sie in diesem Fall eine AUSSAGEFÄHIGE Fehlermeldung aus
    19. 'Bei mehr als 10 Kindern fragen Sie bitte nach, ob das stimmen kann
    21. Einlesen:
    23. bytKinderzahl = Me.txtKinder
    27. If bytKinderzahl > 10 Then
    29. JaNein = MsgBox("Sie haben " & bytKinderzahl & " Kinder angegeben. Ist das so korrekt?", vbQuestion + vbDefaultButton2 + vbYesNo, "Sind sie sicher?")
    31. If JaNein = vbNo Then
    33. Exit Sub
    35. Else
    37. Exit Sub
    39. End If
    41. End If
    43. 'MsgBox "Sie haben " & bytKinderzahl & " Kind/er angegeben.", vbInformation, "Anzahl der Kinder"
    45. Exit Sub
    47. Fehler:
    49. 'Select Case bytKinderzahl
    51. ' Case isInteger
    53. ' MsgBox "Sie haben die maximale Anzahl von 255 Kindern überschritten.", vbCritical, "Fehler bei der Eingabe"
    55. ' Case InNotInteger
    57. ' MsgBox "Bitte geben Sie nur Zahlen ein.", vbCritical, "Fehler bei der Eingabe"
    59. 'End Select
    61. If bytKinderzahl = Str(bytKinderzahl) Then
    63. MsgBox "Bitte geben Sie nur Zahlen ein.", vbCritical, "Fehler bei der Eingabe"
    65. Else
    67. MsgBox "Sie haben die maximale Anzahl von 255 Kindern überschritten.", vbCritical, "Fehler bei der Eingabe"
    69. End If
    71. End Sub


    ​Das ist der aktuelle Programmcode.

    ​Gruß Zyran

    Visual Basic-Quellcode

    1. If bytKinderzahl = Str(bytKinderzahl) Then
    Das ist Murks. Die Fehlerroutine mittels On Error sollte nur für Notfälle gedacht sein, nicht für regulären Programmfluss. Du solltest txtKinder auswerten, nicht bytKinderzahl:

    Visual Basic-Quellcode

    1. If Not IsNumeric(txtKinder) Then
    2. MsgBox "Bitte nur Zahlen"
    3. Exit Sub
    4. ElseIf CInt(txtKinder) < 0 Or CInt(txtKinder) > 255 Then
    5. MsgBox "falscher Eingabewert"
    6. Exit Sub
    7. End If

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende