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.
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.
Hallo Franz,
ganz, ganz herzlichen Dank für Deine Hilfe!!!
Funktioniert super.
Viele Grüße aus dem hohen Norden.
Jürgen