Hi,

Is it possible to bring up the color picker using code in Access 2003
and return the RGB or color value? I'd like the user to be able to
choose form background color, etc....

-paulw

PW wrote:

This might help
http://www.mvps.org/access/api/api0060.htm

On Wed, 22 Apr 2009 11:30:59 -0700, Salad <oil (AT) vinegar (DOT) com> wrote:

Looks good Salad! Mucho

-pw

On Wed, 22 Apr 2009 11:30:59 -0700, Salad <oil (AT) vinegar (DOT) com> wrote:


Where do I put this code? I put everything below it in a module.

Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

On Wed, 22 Apr 2009 11:30:59 -0700, Salad <oil (AT) vinegar (DOT) com> wrote:

where do I put this code? I put everything below it in a module:

Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

PW wrote:

I'd put the whole thing, not just the type declaration, from that link
into a code module (under Modules)

You might want to download the zip file.

In your form, you'd call the funtion similar to
Private Sub CmdChooseBackColor_Click()
' Pass the TextBox Control to the function
Me.textCtl.BackColor = DialogColor(Me.textCtl)
End Sub

On Wed, 22 Apr 2009 20:33:01 -0700, Salad <oil (AT) vinegar (DOT) com> wrote:

But Access puts no automatic "seperation" (line) before and after it
like it does with functions.

I did but there is no design rights so I can't look at the code (I've
tried using the default system.mdw workgroup)

Thanks!

Nevermind! I converted it to 2003 and I can look at the code. Thanks
again.

-pw

PW wrote:
You're welcome. It seems to work just fine.

On Thu, 23 Apr 2009 11:56:27 -0700, Salad <oil (AT) vinegar (DOT) com> wrote:

I'm struggling a little bit with the instructions on how to return a
value to the form so I can change the RGB colors of controls. Don't
quite understand what the function is supposed to contain:


' If you want this Function to simply Return
' the Value of the Color the user selected
' from the Dialog just change the Function
' Declaration in modColorPicker to something like:
'Public Function DialogColor(ctl As Control) As Long
' Remember to add the line of code at the
' end of the Function
'DialogColor = CS.rgbResult



' Then call it from your Form with code like:

'***Code Start
'Private Sub CmdChooseBackColor_Click()
' Pass the TextBox Control to the function
'Me.textCtl.BackColor = DialogColor(Me.textCtl)
'End Sub