Changing text box backgrond colour with function

[cb9002]

Good morning! I am using Access 2003.

I have written a function called ChangeColour that returns either vbRed, vbYellow or vbGreen. My code is:

Dim x as String

If Not (IsNull(comboProbability.value) Or IsNull(comboImpact.Value)) Then
    x = modBgrndColour.ChangeColour(comboProbability.value, comboImpact.Value)

    Debug.Print x

    Me.txtTitle.BackColor = x

End if

Debug.Print x returns the appropriate string, however trying to set the colour returns a type mismatch.

Any help would be appreciated, thanks.

 

[cb9002]

I have also tried parsing the value within quotes e.g.

Me.txtTitle.BackColor = "" & x & ""

 

[PHV]

The function should return the constant value, not the constant name !

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

How are ya cb9002 . . .

[blue]Back Color[/blue] data type is a [blue]Long Integer![/blue] (not text). You'll have to post the function [blue]ChangeColour()[/blue] so we can have a look . . .

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[MajP]

Instead of returning a string have your function return these long int values:
vbred: 255
vbyellow: 65535
vbBlue:16711680
vbGreen: 65280

 

[cb9002]

Sorted - function now returns the integers from MajP

Thank you all.