Vielleicht braucht jemand mal einen Farbpicker, um eine Farbe auszuwählen, die in einem Feld gespeichert werden soll. Dies ist mit dem Access-eigenen Farbauswahl ganz einfach zu realisieren.

 Hier das Modul:

{code lang:vb lines:true hidden:false}Declare Sub wlib_AccColorDialog _
   Lib "msaccess.exe" _
     Alias "#53" (ByVal Hwnd As Long, lngRGB As Long)

Public Function ChooseWebColor(DefaultWebColor As Variant) As String
   Dim lngColor As Long
   lngColor = DefaultWebColor
   wlib_AccColorDialog Screen.ActiveForm.Hwnd, lngColor
   ChooseWebColor = lngColor
End Function{/code}

und nochenmal mit Rückgabe von HTML-Farbcodes

{code lang:vb lines:true hidden:false}Declare Sub wlib_AccColorDialog _
   Lib "msaccess.exe" _
     Alias "#53" (ByVal Hwnd As Long, lngRGB As Long)

Public Function ChooseWebColor(DefaultWebColor As Variant) As String
   Dim lngColor As Long
   lngColor = CLng("&H" & Right("000000" + _
                   Replace(Nz(DefaultWebColor, ""), "#", ""), 6))
   wlib_AccColorDialog Screen.ActiveForm.Hwnd, lngColor
   ChooseWebColor = "#" & Right("000000" & Hex(lngColor), 6)
End Function{/code}

Der Aufruf erfolgt so

 {code lang:vb lines:true hidden:false}Me.txt_Farbe = ChooseWebColor(Me.txt_Farbe){/code}