String Variable

[mboarefs]

I have the following code and I keep getting an error.

Dim ctlTB As Control
Dim strTest as String
intGry = 12632256

For intI = 1 To 9
strA = "Forms!frmmatchplay!txtTeamAHole" & intI
strB = "Forms!frmmatchplay!txtTeamBHole" & intI
intScore1 = Eval(strA)
intScore2 = Eval(strB)

If intScore1 = intScore2 Then
intHolesEven = intHolesEven + 1
strE = "Hole Halved"
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest
ctlTB.BackColor = intGry

I am attempting to loop through intI and change the background color of
a text box "txtTeamAHole1" to Hole9

[Smartin]

mb******@comcast.net wrote:

I have the following code and I keep getting an error.

Dim ctlTB As Control
Dim strTest as String
intGry = 12632256

For intI = 1 To 9
strA = "Forms!frmmatchplay!txtTeamAHole" & intI
strB = "Forms!frmmatchplay!txtTeamBHole" & intI
intScore1 = Eval(strA)
intScore2 = Eval(strB)

If intScore1 = intScore2 Then
intHolesEven = intHolesEven + 1
strE = "Hole Halved"
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest
ctlTB.BackColor = intGry

I am attempting to loop through intI and change the background color of
a text box "txtTeamAHole1" to Hole9

strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI

FYI appears to be same as
strTest = strA

Set ctlTB = strTest

what exactly are you trying to do here? Control = String?

--
Smartin

[Terry Kreft]

Yes, you would, you're setting an object variable to a string value. I
think what you mean to do is:-

Instead of
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest

do this
Set ctlTB = Forms!frmMatchPlay("txtTeamAHole" & intI)

--

Terry Kreft
<mb******@comcast.netwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I have the following code and I keep getting an error.

Dim ctlTB As Control
Dim strTest as String
intGry = 12632256

For intI = 1 To 9
strA = "Forms!frmmatchplay!txtTeamAHole" & intI
strB = "Forms!frmmatchplay!txtTeamBHole" & intI
intScore1 = Eval(strA)
intScore2 = Eval(strB)

If intScore1 = intScore2 Then
intHolesEven = intHolesEven + 1
strE = "Hole Halved"
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest
ctlTB.BackColor = intGry

I am attempting to loop through intI and change the background color of
a text box "txtTeamAHole1" to Hole9

[mboarefs]

Thanks it worked just fine. I have never been able to find information
when to use (), [], ! or . Since I am self taught and only do this
for my enjoyment, sometimes I don't know the right terminology when
asking questions. Again, thanks for the help.
Terry Kreft wrote:

Yes, you would, you're setting an object variable to a string value. I
think what you mean to do is:-

Instead of
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest

do this
Set ctlTB = Forms!frmMatchPlay("txtTeamAHole" & intI)

--

Terry Kreft
<mb******@comcast.netwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I have the following code and I keep getting an error.

Dim ctlTB As Control
Dim strTest as String
intGry = 12632256

For intI = 1 To 9
strA = "Forms!frmmatchplay!txtTeamAHole" & intI
strB = "Forms!frmmatchplay!txtTeamBHole" & intI
intScore1 = Eval(strA)
intScore2 = Eval(strB)

If intScore1 = intScore2 Then
intHolesEven = intHolesEven + 1
strE = "Hole Halved"
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest
ctlTB.BackColor = intGry

I am attempting to loop through intI and change the background color of
a text box "txtTeamAHole1" to Hole9

[Terry Kreft]

When to use (), [], ! and . isa question asked many times so you're not
alone there.

A quick search on Google should find all th info you want on this topic.

--

Terry Kreft
<mb******@comcast.netwrote in message
news:11*********************@b28g2000cwb.googlegro ups.com...

Thanks it worked just fine. I have never been able to find information
when to use (), [], ! or . Since I am self taught and only do this
for my enjoyment, sometimes I don't know the right terminology when
asking questions. Again, thanks for the help.
Terry Kreft wrote:

Yes, you would, you're setting an object variable to a string value. I
think what you mean to do is:-

Instead of
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest

do this
Set ctlTB = Forms!frmMatchPlay("txtTeamAHole" & intI)

--

Terry Kreft
<mb******@comcast.netwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I have the following code and I keep getting an error.
>
Dim ctlTB As Control
Dim strTest as String
intGry = 12632256
>
For intI = 1 To 9
strA = "Forms!frmmatchplay!txtTeamAHole" & intI
strB = "Forms!frmmatchplay!txtTeamBHole" & intI
intScore1 = Eval(strA)
intScore2 = Eval(strB)
>
If intScore1 = intScore2 Then
intHolesEven = intHolesEven + 1
strE = "Hole Halved"
strTest = "Forms!frmMatchPlay!txtTeamAHole" & intI
Set ctlTB = strTest
ctlTB.BackColor = intGry
>
I am attempting to loop through intI and change the background color

of

a text box "txtTeamAHole1" to Hole9
>