Thema Datum  Von Nutzer Rating
Antwort
27.06.2017 10:47:04 Daniela
NotSolved
27.06.2017 14:03:41 Gast76134
*****
Solved
27.06.2017 14:32:52 Daniela
NotSolved
Blau Fehlermeldung bei "Überspringen" von Combobox
 27.06.2017 15:27:01 Gast6398
*****
Solved
27.06.2017 15:41:01 Daniela
NotSolved
27.06.2017 16:16:37 Gast4984
*****
Solved
29.06.2017 15:38:21 Daniela
NotSolved
29.06.2017 16:58:24 Gast56180
*****
Solved
29.06.2017 17:48:09 Daniela
NotSolved
29.06.2017 17:55:54 Daniela
NotSolved

Ansicht des Beitrags:
Von:
Gast6398		 Datum:
27.06.2017 15:27:01		 Views:
437		 Rating:
     
Antwort:
 Nein
Thema:
Fehlermeldung bei "Überspringen" von Combobox

Moin! Also der Code beim Anklicken (GotFocus) müsste alle Boxen vorher überprüfen und wenn eine leer ist die Meldung erzeugen. Danach könnte die Prüfung abbrechen - soll ja nur eine Meldung kommen. Um den Code übersichtlich zu haben, würde ich es so machen. Die Ereignisse so beschreiben;

Private Sub ComboBox1_GotFocus()
    Call pruefen(1)
End Sub

Private Sub ComboBox2_gotfocus()
    Call pruefen(2)
End Sub

Also immer die Funktion pruefen mit der NUmmer der Box aufrufen. Die sollten dann natürlich auch in der Reihenfolge vorkommen. In einem neuen Modul dann die Routine prüfen hinterlegen. Die könnte so aussehen.

Sub pruefen(index As Long)
Dim nrbox As Long

For nrbox = 1 To index - 1
    If Tabelle1.OLEObjects("ComboBox" & nrbox).Object.Value = "" Then
        MsgBox "Sie haben nicht die vorherigen Boxen ausgefüllt!"
        Exit For
    End If
Next nrbox
End Sub

Damit sollte es klappen. Man könnte das ganze auch noch in eine Klassenprogrammierung auslagern aber so ist es für den Anfang am schnellsten und einfachsten. VG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.06.2017 10:47:04 Daniela
NotSolved
27.06.2017 14:03:41 Gast76134
*****
Solved
27.06.2017 14:32:52 Daniela
NotSolved
Blau Fehlermeldung bei "Überspringen" von Combobox
 27.06.2017 15:27:01 Gast6398
*****
Solved
27.06.2017 15:41:01 Daniela
NotSolved
27.06.2017 16:16:37 Gast4984
*****
Solved
29.06.2017 15:38:21 Daniela
NotSolved
29.06.2017 16:58:24 Gast56180
*****
Solved
29.06.2017 17:48:09 Daniela
NotSolved
29.06.2017 17:55:54 Daniela
NotSolved