MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 04.07.2006, 12:53   #1
ElBirn
MOF Koryphäe
MOF Koryphäe
Standard Acc2003 - Bedingung für alle Felder im Formular (Backcolor)

Hallo Leute,

ist es möglich beim Öffnen des Formulars eine Bedingung zu prüfen und wenn diese Bedingung erfüllt ist, alle Felder im Formular mit .Backcolor ...zu belegen?

Danke

Lucas
ElBirn ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2006, 13:17   #2
braegler
MOF Profi
MOF Profi
Standard

Aber natürlich.
OnOpen...
....z.b. ( nicht sauber programmiert..sieht man an dem resume next )
if DeineBedingung = true then
Dim ctrl as control
on error resume next
For each ctrl in me.controls
ctrl.BackColor = 0
next ctrl
end if
...

__________________

MfG
braegler

WinXPPro, OfficeXP, OfficeXPDev, Tetris
--> Windows is great I used it to download Linux! <--
braegler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2006, 13:29   #3
ElBirn
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Vielen Danke, das funktioniert....

Ein kleines Problem habe ich nur noch: Ich wollte eigentlich nur die Textfelder bzw. die Nachschlagelisten mit Backcolor belegen, jetzt werden aber auch die Bezeichnungsfelder belegt.

Kann man das umgehen?

Gruß

Lucas
ElBirn ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2006, 14:05   #4
Paul.Ostermeier
MOF Koryphäe
MOF Koryphäe
Standard

Probier's nach dem Prinzip
.......................
For Each ctl In Me
If ctl.ControlType = acTextBox Then
ctl.BackColor = vbRed
End If
Next

MfG
Paul
Paul.Ostermeier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2006, 14:09   #5
braegler
MOF Profi
MOF Profi
Standard

...
For each ctrl in me.controls
if ctrl.controlType = 111 or ctrl.controlType = 109 then
ctrl.BackColor = 0
end if
next ctrl
...

__________________

MfG
braegler

WinXPPro, OfficeXP, OfficeXPDev, Tetris
--> Windows is great I used it to download Linux! <--
braegler ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2006, 14:18   #6
ElBirn
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Super!

Danke euch beiden.

Gruß

Lucas
ElBirn ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:52 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.