En glad farveknap :-)

In the buttons on click event

me.myfield.BackColor = 255

You could also take a look at the standard dialog control which you can use to select the color

Example:
You add a stdDialog control to the form and name it dlgCommon. Then a button named cmdColour, where you place this code in its on clcik event.

Private Sub cmdColour_Click()
   
    \' Set Cancel to True
    dlgCommon.CancelError = True
    On Error GoTo ErrHandler

    dlgCommon.Flags = cdlCCPreventFullOpen  \'Prevents full open
    dlgCommon.ShowColor
 
    Me.PeriodColour = dlgCommon.Color
   
    Exit Sub
   
ErrHandler:

End Sub

Me.PeriodColour = dlgCommon.Color =

Me.PeriodColour.BackColor = dlgCommon.Color
   
PeriodColour is the name of the text field
   
   

Knappen skal vælge \"random\" mellem nogle forudvalgte farver og derefter sætte det ind i tekstboksene i formularen...

There is a function Rnd() which can give you a random number, but the problem is that they are not always numbers which would give you a \"glad\" colour. So I would suggest that you have a table containing \"VALID\" and \"glad\" colours. Each record in the table has an autonumber for example 1 to 100
and then in your on click event you would write

Dim MyValue
Randomize

MyValue = Int((100 * Rnd) + 1)    \' Generate random value between 1 and 100.

Me.MyTextField.BackColour = Dlookup(\"gladfaver\", \"YourColourTable\", \"ID = \" & MyValue)