Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen
zurück: Kombifelder und Unterformulare weiter: OLE Excel Diagramm in Formular 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
Confused :?
Gast


Verfasst am:
14. Dez 2009, 15:46
Rufname:

Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen - Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen

Nach oben
       Version: Office 2003

Hallo,

ich gebe dem User die Möglichkeit seine Formulare selbst anzupassen. Mittels Farbpalette kann der User Hintergrund von Fuß- und Kopfbereich ändern, ebenfalls möchte ich ihm die Möglichkeit geben alle Bezeichnungsfelder auf dem Fuß- und Kopfbereichen anzusprechen um dort von allen nach Wunsch die Farbe zu ändern. Dazu müsste ich alle Bezeichnungsfelder ansprechen. Muss ich diese Manuell tun und paar hundert Bezeichnungsfelder in den Accesscode hineinschreiben oder gibt es da eine einfachere Variante?

Sowas in der Art:
For Each [Bezeichnungsfeld] In Forms.Formularkopf
.ForeColor = lngColor
Next
Marmeladenglas
komme zurecht


Verfasst am:
14. Dez 2009, 15:58
Rufname:


AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen - AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen

Nach oben
       Version: Office 2003

Hi,
ungefähr so:
Code:
    For Each ctl In Me.Controls
        If ctl.ControlType = 100 Then '100 für Bezeichnungsfeld
            Me(ctl.Name).ForeColor = vbRed
        End If
    Next ctl
Confused :?
Gast


Verfasst am:
14. Dez 2009, 16:24
Rufname:

AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen - AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen

Nach oben
       Version: Office 2003

Hallo,

das funktioniert fast ... nur durchsucht er so den Detailbereich, ich bräuchte das für den Header und Footer.
Marmeladenglas
komme zurecht


Verfasst am:
14. Dez 2009, 16:41
Rufname:

AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen - AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen

Nach oben
       Version: Office 2003

Hi,

Code:
    For Each ctl In Me.FormHeader.Controls
entsprechend eine zweite Schleife für den Fuß.
Oder du arbeitest über einen marker. D.h. alle Felder die veränderbar sind erhalten einen "Tag-Eintrag", anhand dessen die Controls gefiltert und verändert werden.
Confused :?
Gast


Verfasst am:
15. Dez 2009, 09:50
Rufname:


AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen - AW: Alle Bezeichnungsfelder in allen Fuß- und Kopfbereichen

Nach oben
       Version: Office 2003

Confused Confused am 14. Dez 2009 um 17:15 hat folgendes geschrieben:
Danke. Very Happy

Confused Confused am 15. Dez 2009 um 08:24 hat folgendes geschrieben:
Hallo,

darauf aufsetzend habe ich weiter gebastelt, ich will nun auch die Formularköpfe der Unterformulare ansprechen, habe das so gemacht:
Code:
    For Each ctl In aktForm.Form.Controls
        If ctl.ControlType = acSubform Then 'acSubform für Unterformular
            For Each ctl_ufrm In aktForm.ctl.Formularkopf.Controls
                aktForm.ctl.Form(ctl_ufrm.Name).ForeColor = lngColor
            Next ctl_ufrm
        End If
    Next ctl
Allerdings bringt er mir beim inneren "For Each" - "Anwendungs- oder objektivdefinierter Fehler"

aktForm wird an die Sub übergeben und ist einfach "Me".
ctl und ctl_ufrm sind Controls

Mit ein wenig probieren läuft es jetzt:
Code:
    For Each ctl In aktForm.Form.Controls
        If ctl.ControlType = acSubform Then 'acSubform für Unterformular
            For Each ctl_ufrm In aktForm(ctl.Name).Form.Formularkopf.Controls
                If ctl_ufrm.ControlType = 100 Then '100 für Bezeichnungsfeld
                    aktForm(ctl.Name).Form(ctl_ufrm.Name).ForeColor = lngColor
                End If
            Next ctl_ufrm
        End If
    Next ctl
Danke fürs mitdenken. Smile
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 Wichtig: Access Tabellen & Abfragen: Warum Feedback fürs Forum wichtig ist und uns allen hilft. 3 Willi Wipp 5206 09. Mai 2010, 13:20
Gast Warum Feedback fürs Forum wichtig ist und uns allen hilft.
Keine neuen Beiträge Access Tabellen & Abfragen: Wert in allen Feldern 6 Gast 101 17. Dez 2013, 16:27
Marmeladenglas Wert in allen Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Button zur Suche in allen Tabellenfeldern 34 Nuschi 645 10. Dez 2013, 12:09
Nuschi Button zur Suche in allen Tabellenfeldern
Keine neuen Beiträge Access Formulare: Flackern bei Hover über Bezeichnungsfelder 6 meg 1519 22. Aug 2013, 12:49
sisark Flackern bei Hover über Bezeichnungsfelder
Keine neuen Beiträge Access Formulare: Kopf / Detailbereich / Fuß als Frame verschiebbar? 15 relaxo 609 30. Okt 2012, 13:21
relaxo Kopf / Detailbereich / Fuß als Frame verschiebbar?
Keine neuen Beiträge Access Berichte: Bezeichnungsfelder auf letzter Seite ausblenden 2 Martin_Stock 198 26. Okt 2012, 13:23
Martin_Stock Bezeichnungsfelder auf letzter Seite ausblenden
Keine neuen Beiträge Access Formulare: Bezeichnungsfelder variabel beschriften 6 stan_1958 1844 03. März 2010, 00:00
KlausMz Bezeichnungsfelder variabel beschriften
Keine neuen Beiträge Access Tabellen & Abfragen: allen Tabellen automatisch ein "_neu" anhängen 4 Gast 284 19. Nov 2009, 15:23
Gast allen Tabellen automatisch ein "_neu" anhängen
Keine neuen Beiträge Access Formulare: Textfeld befüllen mit Werten aus allen Datensätzen eine UFOs 1 deltamk 410 01. Aug 2009, 12:44
Bitsqueezer Textfeld befüllen mit Werten aus allen Datensätzen eine UFOs
Keine neuen Beiträge Access Berichte: Bezeichnungsfelder weglassen 4 simon1961 401 31. März 2009, 11:02
simon1961 Bezeichnungsfelder weglassen
Keine neuen Beiträge Access Formulare: Bezeichnungsfelder miteinander verknüpfen 10 verbund 408 01. Jul 2008, 14:15
rita2008 Bezeichnungsfelder miteinander verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: 3 Tabellen in einer Abfrage mit allen Werten ... 0 Lars 297 29. Feb 2008, 11:12
Lars 3 Tabellen in einer Abfrage mit allen Werten ...
 

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