A
anonymous
I thought I'd try the color picker,
A97ChangeMDIBackgroundVer8 from the Lebans site.
When I click any buttone I receive an error:
Complile error
Can't find project or library.
and String$ is hilited.
We tried it on another machine at work that has OfficeXP,
and WindowsXP, and it worked,
My machine has Access97, and Windows2k.
is there something I should change in that line?
Here is one code that receives the error (this is the one
I'd like to use).
Function aDialogColor(ByVal hwnd As Long) As Long
Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long
CS.lStructSize = Len(CS)
If hwnd <> 0 Then
CS.hwnd = hwnd
Else
CS.hwnd = Application.hWndAccessApp
End If
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then
' ERROR - use Default White
'prop = RGB(255, 255, 255) ' White
aDialogColor = -1 'False
Exit Function
Else
' Normal processing
aDialogColor = CS.rgbResult
End If
End Function
A97ChangeMDIBackgroundVer8 from the Lebans site.
When I click any buttone I receive an error:
Complile error
Can't find project or library.
and String$ is hilited.
We tried it on another machine at work that has OfficeXP,
and WindowsXP, and it worked,
My machine has Access97, and Windows2k.
is there something I should change in that line?
Here is one code that receives the error (this is the one
I'd like to use).
Function aDialogColor(ByVal hwnd As Long) As Long
Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long
CS.lStructSize = Len(CS)
If hwnd <> 0 Then
CS.hwnd = hwnd
Else
CS.hwnd = Application.hWndAccessApp
End If
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then
' ERROR - use Default White
'prop = RGB(255, 255, 255) ' White
aDialogColor = -1 'False
Exit Function
Else
' Normal processing
aDialogColor = CS.rgbResult
End If
End Function