Using Variables to for Controls

[Guest]

I am trying to use a variable to represent text boxes on a form so that I can
cgahne the background colors of different boxes.

For I = 1 To 2

strWGT = "AVG_WT_" & LTrim(Str(I))

If [Forms] >= [WEIGHT SPEC] Then
[Forms].BackColor = 4259584
[Forms].ForeColor = -2147483640
Else
[Forms].BackColor = 255
[Forms].ForeColor = 16777215
FailStatus = "FAIL"

End If

I keep getting 'Object doesn't support this property or method' error.

How can I get this to work??

 

[Paul Overway]

Forms("Mil Spec Data Entry").Controls(strWGT).BackColor = 4259584
Etc..

 

[Guest]

Thanks for trying Paul.

I tried your suggestion and got the same error.

Forms("Mil Spec Data Entry").Controls(strWGT).BackColor = 4259584
Etc..

--
Paul Overway
Logico Solutions
http://www.logico-solutions.com

I am trying to use a variable to represent text boxes on a form so that I
can
cgahne the background colors of different boxes.

For I = 1 To 2

strWGT = "AVG_WT_" & LTrim(Str(I))

If [Forms] >= [WEIGHT SPEC] Then
[Forms].BackColor = 4259584
[Forms].ForeColor = -2147483640
Else
[Forms].BackColor = 255
[Forms].ForeColor = 16777215
FailStatus = "FAIL"

End If

I keep getting 'Object doesn't support this property or method' error.

How can I get this to work??

 

[Rick Brandt]

Thanks for trying Paul.

I tried your suggestion and got the same error.

What kind of a control is it? Perhaps it doesn't have a BackColor property
(not all controls do).

 

[Fred Wilson]

The listed below is aircode but it should work.

dim frmMilSpec as Form
dim ctrWT as control
dim strWGT as string

Set frmMilSpec = Forms("Mil Spec Data Entry")

For I = 1 to 2

strWGT ="AVG_WT_" & LTrim(Str(I))

set ctrWT = frmMilSpec.Controls(strWGT)

If ctrWT >= [WEIGHT SPEC] Then
with ctrWT
.BackColor=
.ForeColor=
End with
Else
with ctrWT
.BackColor=
.ForeColor=
End with
failStatus = "FAIL"
End If

 

[Guest]

I figured out my problem, I was using the wrong name for a control.

Thanks for all the replies

The listed below is aircode but it should work.

dim frmMilSpec as Form
dim ctrWT as control
dim strWGT as string

Set frmMilSpec = Forms("Mil Spec Data Entry")

For I = 1 to 2

strWGT ="AVG_WT_" & LTrim(Str(I))

set ctrWT = frmMilSpec.Controls(strWGT)

If ctrWT >= [WEIGHT SPEC] Then
with ctrWT
.BackColor=
.ForeColor=
End with
Else
with ctrWT
.BackColor=
.ForeColor=
End with
failStatus = "FAIL"
End If

I am trying to use a variable to represent text boxes on a form so that I can
cgahne the background colors of different boxes.

For I = 1 To 2

strWGT = "AVG_WT_" & LTrim(Str(I))

If [Forms] >= [WEIGHT SPEC] Then
[Forms].BackColor = 4259584
[Forms].ForeColor = -2147483640
Else
[Forms].BackColor = 255
[Forms].ForeColor = 16777215
FailStatus = "FAIL"

End If

I keep getting 'Object doesn't support this property or method' error.

How can I get this to work??