Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Unterprogramm
zurück: Hauptformular / Unterformular Denkanstoss weiter: Dateneingabe im Unterformular vom Hauptformular klappt nich! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Steffen111
Erste Gehversuche mit VBA


Verfasst am:
10. Aug 2012, 07:35
Rufname: Steffen

Unterprogramm - Unterprogramm

Nach oben
       Version: Office 2007

Hallo,

ich stelle immer wieder fest, dass ich im Formular bei mehreren Objekten im VBA teilweise gleichen Code-Zeilen verwenden muss.
Das lässt sich doch sicher eleganter Lösen, in dem so eine Art "Unterprogramm" eingebaut wird. "End Sub" weist ja schon darauf hin.

Question Mir ist nur nicht klar, wie muss die Sub beginnen und wie kann ich diese aus einem anderen Code heraus aufrufen? Embarassed

Grüße
Steffen
steffen0815
VBA-Programmierer


Verfasst am:
10. Aug 2012, 09:53
Rufname:


AW: Unterprogramm - AW: Unterprogramm

Nach oben
       Version: Office 2007

Hallo,
gib mal bitte ein Beispiel für solche identischen Codes.

_________________
Gruß Steffen
Gast



Verfasst am:
10. Aug 2012, 11:09
Rufname:

AW: Unterprogramm - AW: Unterprogramm

Nach oben
       Version: Office 2007

Hallo Steffen,

z.B. habe ich einen Filter wie im Forum beschrieben eingebaut und bei jeder Änderung eines Filterfeldes soll der Filter neu aktiviert werden.
Code:
'Filter ein
    Me.Filter = Filterbedingung()
    Me.FilterOn = True
Die beiden Zeilen müssen nun bei einigen Filterfeldern bei nach Aktivierung hinterlegt wreden.

OK, das sind ja NUR zwei Zeilen.
Aber ich habe auch eine Fristenberechnung die bei mehreren verschiedenen Aktionen, Befehlsschaltfläche und nach Aktualisierung eines Datums aufgerufen wird:
Code:
'vesendet --> Fristen
    Select Case Weekday([versendet] + 3)  ' 3. Tag nach zustellung
      Case 1  'sonntag
        'MsgBox "+4"
        [zugestellt] = [versendet] + 4
      Case 7  'sonnabend
        'MsgBox "+5"
        [zugestellt] = [versendet] + 5
      Case Else
        'MsgBox "+3"
        [zugestellt] = [versendet] + 3
    End Select
    [frist] = DateAdd("d", 7, [zugestellt])
Diese Zeilen habe ich nun an mehreren Stellen im gesamten VBA-Script.
Ich stelle mir vor, diese nur einmal zu haben und nur als Prozedur/SUB/Unterprogramm aufzurufen.

Gruß
Steffen
steffen0815
VBA-Programmierer


Verfasst am:
10. Aug 2012, 11:34
Rufname:

AW: Unterprogramm - AW: Unterprogramm

Nach oben
       Version: Office 2007

Hallo,
Code:
Sub Versenden ()
    Select Case Weekday([versendet] + 3)  ' 3. Tag nach zustellung
      Case 1  'sonntag
        'MsgBox "+4"
        [zugestellt] = [versendet] + 4
      Case 7  'sonnabend
        'MsgBox "+5"
        [zugestellt] = [versendet] + 5
      Case Else
        'MsgBox "+3"
        [zugestellt] = [versendet] + 3
    End Select
End Sub
... ja und überall wo jetzt dieser Code steht
Code:
    Call Versenden

_________________
Gruß Steffen
Marsupilami72
Office-VBA-Programmierer


Verfasst am:
10. Aug 2012, 11:36
Rufname:
Wohnort: Goslar

AW: Unterprogramm - AW: Unterprogramm

Nach oben
       Version: Office 2007

Das "Call" kann man weglassen.
_________________
Gruß,
Martin

Bitte keine Fragen per PN - dafür ist das Forum da!
Steffen111
Erste Gehversuche mit VBA


Verfasst am:
24. Aug 2012, 18:31
Rufname: Steffen


AW: Unterprogramm - AW: Unterprogramm

Nach oben
       Version: Office 2007

Hallo Martin,
danke für den Tipp.

Habs mir überlegt und lasse es lieber dabei.
Dann weis ich immer das es ein Aufruf ist Cool
Danke dennoch!
Steffen
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 Access Programmierung / VBA: Unterschied Funktion/Unterprogramm 1 Stefaaaaan 1023 05. Mai 2011, 15:29
Bitsqueezer Unterschied Funktion/Unterprogramm
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe