collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 73
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14061
  • stats Beiträge insgesamt: 67488
  • stats Themen insgesamt: 9096
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Farbcode aus Feld auslesen  (Gelesen 208 mal)

Offline gassek

  • Newbie
  • Beiträge: 31
Farbcode aus Feld auslesen
« am: August 01, 2018, 18:10:25 »
Hallo liebes Forum,
ich arbeite mit Access 2016.
Ich habe eine Tabelle(Farben) mit ID und den Feldern Farbe_1, Farbe_2, usw.
In diese Felder gebe ich den Farbcode als hexadezimalen Wert ein. (Z.B.: H8080FF (schwachrot)).
Wenn es der Lösung meines Problems hilft, nehme ich auch gerne ein anderes Format (RGB).
Die Felder Farbe_1 usw. sind vom Feldtyp "Kurzer Text".
Im Formular "Farben" gibt es ein ungebundenes Textfeld "Text11".
Dieses Feld "Text11" soll die Hintergrundfarbe des in Feld "Farbe_1" enthalten Codes erhalten.
Im Formular „Farben“ habe ich für das Feld "Farbe_1" als Ereignisprozedur "Beim Klicken" folgenden Code eingegeben:

Private Sub Farbe_1_Click()
Me.Text11.BackColor = &H8080FF
End Sub
Das Ganze funktioniert wunderbar.
Mein Ziel ist jedoch, den Codewert aus dem Feld „Farbe_1“ direkt zu übergeben.
Hierzu habe ich folgendes (und vieles, vieles andere) probiert:
Private Sub Farbe_1_Click()
Dim farbe as long  (oder auch string)
farbe = Farbe_1
Me.Text11.BackColor = farbe
End Sub
Bitte helen Sie mir bei diesem Problem.
Ich hoffe, die Beschreibung des Problems ist i.O.
Besten Dank im Voraus.
Viele Grüße Gassek.


Gruß
Jürgen
 

Online DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23443
Re: Farbcode aus Feld auslesen
« Antwort #1 am: August 01, 2018, 18:59:05 »
Hallo,


1..Die Farbtabelle ist falsch aufgebaut. Besser:

FarbID(Autowert)   FarbWert(Long)   
1                              65789       
2                               ...
3                               ...         

Private Sub Form_Click()
Me!Text11.BackColor = Me!FarbWert
End Sub


Dabei ist das Form an die Tabelle "Farben" gebunden und zeigt als Endlosform alle Farbwerte an.
Ein Klick auf den DS-Markierer weist dem Textfeld die entspr. Hintergrundfarbe zu.

Der Farbwert in der Tabelle ist der Rückgabewert der RGB()-Funktion.

Offline gassek

  • Newbie
  • Beiträge: 31
Re: Farbcode aus Feld auslesen
« Antwort #2 am: August 01, 2018, 20:09:59 »
Hallo Franz,

ganz, ganz herzlichen Dank für Deine Hilfe!!!
Funktioniert super.

Viele Grüße aus dem hohen Norden.
Jürgen
Gruß
Jürgen