Farbcode aus Feld auslesen

[gassek]

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.

[DF6GL]

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.

[gassek]

Hallo Franz,

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

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