quick for loop help/suggestion needed 1

[MFFL]

this what i had and worked:

Me.lblNone1.visible = false '... to lblname10
Me.reqPref1.Caption = "" '... to reqPref10
Me.ComboReq1 ="" '... to ComboReq10
and so forth...

This is what i thought I should change to:

Dim i As Integer

For i = 1 To 10
Me("lblNone" + i).Visible = False
Me("reqPref" + i).Caption = ""
Me("relPref" + i).Caption = ""
Me("ComboReq" + i) = ""
Me("ComboRel" + i) = ""
i = i + 1
Next

My error: Error 13, Type Mismatch

I tried switching (Me) lines within the For loop around and no matter what (Me) line first that is the one that causes error. I know I must be overlooking something simple, but i need another set of eyes.

As always, any help, thought, suggestion is appreciated MMFL-
Mavericks Fan For Life

 

[KenReay]

Hi

You should be using & for concatenate not +

So :

For i = 1 To 10
Me("lblNone" & i).Visible = False
Me("reqPref" & i).Caption = ""
Me("relPref" & i).Caption = ""
Me("ComboReq" & i) = ""
Me("ComboRel" & i) = ""
i = i & 1
Next

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[MichaelRed]

loose the line:

i = i & 1

It willl cause the loop to skip the ven numbered controls.



MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[MichaelRed]

Actually, even that is el wrongo, as Ken has already changed the addition to concatenation ("+" ==> "&&quot, so a different error will occur (but you STILL need to loose it).


MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[KenReay]

Hi

OOPS!! yes did not notice that, that is what you get for a quick find and replace

well spotted Michael Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[MFFL]

Thanks fellas, really, thankyou both.
I knew it was something obvious, I guessed I had worked so long yesterday I worked to the point of unproductivity.
MMFL-
Mavericks Fan For Life