ERLEDIGT
NEIN
NEIN
ANTWORTEN
5
5
ZUGRIFFE
1257
1257
EMPFEHLEN
-
Hi,
ich hätte ein kleines Problem: Ich habe ein Kontrollkästchen hinter jedem Datensatz stehen,
wenn man das Kontrollkästchen anklickt, also einen Hacken reinsetzt. Soll der ganze Datensatz einen bestimmten Rahmen oder vielmehr eine bestimme Rahmenfarbe bekommen.
Funktioniert das überhaupt? Wenn ja, wie würde das in VBA formuliert aussehen?
Danke schon im Voraus
VG
Fuchsei
Geändert von Fuchsei (26.10.11 um 10:01 Uhr)
-
26.10.11 10:00 #2
- Registriert seit
- Sep 2004
- Ort
- Möglingen (BaWü)
- Beiträge
- 3.109
Der Datensatz soll einen Rahmen bekommen.
Soll beim Anzeigen ein Rahmen dargestellt werden oder wie meinst du das? Wird der "Inhalt" des Kontrollkästchens zusammen mit den anderen Daten gespeichert?Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.
Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.
-
Also soll jedes Feld im Datensatz einen blauen Rahmen bekommen, wenn dieses Kästchen angehakt ist.
Der Inhalt wird gespeichert, ja. Und der blaue Rahmen soll dann natürlich auch bleiben. Falls der Haken wieder rausgenommen wird soll aber auch wieder zur Ursprungsrahmenfarbe rot zurückgegangen werden.
-
26.10.11 11:00 #4
- Registriert seit
- Sep 2004
- Ort
- Möglingen (BaWü)
- Beiträge
- 3.109
Versuche mal das hier:
Code vb:1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
Private Sub check_Click() rahmen End Sub Private Sub Form_Current() rahmen End Sub Sub rahmen() Dim txt As Control Dim rot rot = RGB(255, 0, 0) Dim schwarz schwarz = RGB(0, 0, 0) If check.Value = True Then For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.BorderColor = rot End If Next Else For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.BorderColor = schwarz End If Next End If End Sub
Damit die Rahmenfarbe geändert wird, muss der Rahmentyp auf FLACH gestellt werden!
Ich habe im Beispiel eine Checkbox mit Namen "check" und den Code musst du einmal in das Click-Ereignis der Checkbox und dann noch ins das Current-Ereignis der Form damit beim Wechseln der Code ebenfalls ausgeführt wird.Geändert von tombe (26.10.11 um 11:05 Uhr)
Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.
Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.
-
Ok, die Lösung funktioniert an sich nur nicht ganz richtig, wie ich das gemeint habe. Beim Klicken in die Checkbox wird alles mit einer anderen Rahmenfarbe versehen.
Außerdem ist auf einmal in jedem Kontrollkästchen ein Haken.
Vll hab ich mich auch mit denn Begrifflichkeiten vertan. Ich hab ein Suchformular in tabellarischer Form, nach dem Suchen werden mir die Datensätze praktisch in Zeilen untereinander angezeigt. Hinter jeder Zeile ist ein Kontrollkästchen, das soll angeklickt werden und dann nur der Rahmen der Zeile in der das Kontrollkästchen ist mit einer anderen Farbe versehen werden. Oder hab ich einen Fehler in der Integration des Codes gemacht? Ich hab aber eig genau das selbe getan wie in deiner Anleitung vorzufinden?
Danke für die schnellen Antworten
-
26.10.11 15:59 #6
- Registriert seit
- Sep 2004
- Ort
- Möglingen (BaWü)
- Beiträge
- 3.109
Ok, jetzt verstehe ich was du machen willst denke aber nicht das es sich so lösen lässt.
Für Access gibt es jedes Feld/jeden Rahmen nur einmal, deshalb werden dann auch immer alle Farben gleichzeitig geändert.
Es gibt aber ab Access 2000 eine Möglichkeit die dir zumindest einen "Teilerfolg" bringen könnte.
Markiere in der Entwurfsansicht eines der Textfelder und klicke dann auf Format -> Bedingte Formatierung.
Dort wählst du bei Bedingung "Ausdruck ist" aus und gibst in das Feld daneben "[name_der_checkbox].[Wert]" ein (das Wort "Wert" so eingeben und für "name_der_checkbox" natürlich den Namen deines Feldes).
Jetzt kannst du noch z.B. als Hintergrundfarbe die Farbe Rot auswählen und fertig.
Jetzt wird bei diesem Feld der Hintergrund automatisch auf rot geänder so bald du die Checkbox markierst und das ohne eine Zeile Code.Geändert von tombe (26.10.11 um 16:02 Uhr)
Sollte ein Tipp von mir geholfen haben, habe ich nichts gegen eine entsprechende Bewertung oder ein Danke und wenn ein Problem gelöst ist, dann den Beitrag bitte auch als erledigt markieren.
Was ich gar nicht leiden kann sind User die es nicht für nötig halten auf Antworten zu reagieren, die Themen nicht als erledigt markieren und/oder die sich nicht für Hilfe bedanken.
Ähnliche Themen
-
Excel 2007: Bedingte Formatierung
Von Saban im Forum Office-AnwendungenAntworten: 5Letzter Beitrag: 12.04.10, 15:05 -
Excel: Bedingte Formatierung mit VBA
Von KOBunghole im Forum Office-AnwendungenAntworten: 3Letzter Beitrag: 03.09.08, 13:27 -
VBA Bedingte Formatierung
Von Elscha im Forum Visual Basic 6.0Antworten: 13Letzter Beitrag: 29.01.08, 15:00 -
Formular Access Feld in html Formatierung vermailen
Von bluesbounce im Forum ASPAntworten: 2Letzter Beitrag: 27.07.04, 10:00 -
Bedingte Formatierung (oder)
Von Crusty im Forum Office-AnwendungenAntworten: 1Letzter Beitrag: 02.07.03, 10:02





Zitieren

Login





