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:

Show/Hidden vb code

View source
  1. Declare Sub wlib_AccColorDialog _
  2.    Lib "msaccess.exe" _
  3.      Alias "#53" (ByVal Hwnd As Long, lngRGB As Long)
  4.  
  5. Public Function ChooseWebColor(DefaultWebColor As Variant) As String
  6.    Dim lngColor As Long
  7.    lngColor = DefaultWebColor
  8.    wlib_AccColorDialog Screen.ActiveForm.Hwnd, lngColor
  9.    ChooseWebColor = lngColor
  10. End Function

und nochenmal mit Rückgabe von HTML-Farbcodes

Show/Hidden vb code

View source
  1. Declare Sub wlib_AccColorDialog _
  2.    Lib "msaccess.exe" _
  3.      Alias "#53" (ByVal Hwnd As Long, lngRGB As Long)
  4.  
  5. Public Function ChooseWebColor(DefaultWebColor As Variant) As String
  6.    Dim lngColor As Long
  7.    lngColor = CLng("&H" & Right("000000" + _
  8.                    Replace(Nz(DefaultWebColor, ""), "#", ""), 6))
  9.    wlib_AccColorDialog Screen.ActiveForm.Hwnd, lngColor
  10.    ChooseWebColor = "#" & Right("000000" & Hex(lngColor), 6)
  11. End Function

Der Aufruf erfolgt so

 Show/Hidden vb code

View source
  1. Me.txt_Farbe = ChooseWebColor(Me.txt_Farbe)