Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Welcher Boolean Wert kommt raus
zurück: Bedeutung Symbol im Code Editor auf vertikalem grauen Balken weiter: Meine Software startet nicht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
zer0core
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Okt 2013, 14:12
Rufname:


Welcher Boolean Wert kommt raus - Welcher Boolean Wert kommt raus

Nach oben
       

Hallo Leute,

Welcher Boolean Wert kommt raus, wenn in der Funktion die erste If Abfrage Falsch herauskommt?
Wenn die Funktion aufgerufen wird, wird diese doch komplett abgearbeitet oder nicht?
Code:
Public Function pruefung() As Boolean
    pruefung = True
    Me.com_abteilung.SetFocus
    If (Me.com_abteilung.Text = "") Then
        pruefung = False
        Me.com_abteilung.BackColor = RGB(255, 0, 0)
      Else
        Me.com_abteilung.BackColor = RGB(255, 255, 255)
    End If
    Me.txt_anzahl.SetFocus
    If (Me.txt_anzahl.Text = "") Then
        pruefung = False
        Me.txt_anzahl.BackColor = RGB(255, 0, 0)
      Else
        Me.txt_anzahl.BackColor = RGB(255, 255, 255)
    End If
    Me.txt_druckername.SetFocus
    If (Me.txt_druckername.Text = "") Then
        pruefung = False
        Me.txt_druckername.BackColor = RGB(255, 0, 0)
      Else
        Me.txt_druckername.BackColor = RGB(255, 255, 255)
    End If
    Me.txt_grund.SetFocus
    If (Me.txt_grund.Text = "") Then
        pruefung = False
        Me.txt_grund.BackColor = RGB(255, 0, 0)
      Else
        Me.txt_grund.BackColor = RGB(255, 255, 255)
    End If
    Me.txt_name.SetFocus
    If (Me.txt_name.Text = "") Then
        pruefung = False
        Me.txt_name.BackColor = RGB(255, 0, 0)
      Else
        Me.txt_name.BackColor = RGB(255, 255, 255)
    End If
    Me.com_typ.SetFocus
    If (Me.com_typ.Text = "") Then
        pruefung = False
        Me.com_typ.BackColor = RGB(255, 0, 0)
      Else
        Me.com_typ.BackColor = RGB(255, 255, 255)
    End If
End Function
LG
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Visual Studio und dotNet Forum: Inhalt einer Excel-Zelle automatisch als Wert kopieren 3 isochor 1487 05. März 2013, 21:46
Higlav Inhalt einer Excel-Zelle automatisch als Wert kopieren
Keine neuen Beiträge Software Forum (Sonstige Software): MS Works 7.0 noch was Wert? 1 pooz 635 04. Nov 2008, 11:34
steve1da MS Works 7.0 noch was Wert?
Keine neuen Beiträge Software Forum (Sonstige Software): David xl Wert? 2 audioslave 304 24. Aug 2008, 21:03
Gast David xl Wert?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum