Form Addressing from variable

[christianlott1]

I want to do this from a for/next loop:

DoCmd.OpenForm aryForm2(count), acDesign, , , , acWindowNormal
Temp = aryForm2(count)
Forms!Temp.Section(1).BackColor = Forms!zfrmcolor!color2

The compiler doesn't understand I want to use the variable 'Temp'
instead of a form named "Temp".

How do I get around this?

------

Current code is:

Private Sub cmdColorize_Click()
Dim aryForm2(0) As String
aryForm2(0) = "frmqunioncomp"

Dim frm2end As Integer
Dim count As Integer
Dim temp As String

For count = 0 To UBound(aryForm2)

DoCmd.OpenForm aryForm2(count), acDesign, , , , acWindowNormal
Temp = aryForm2(count)
Forms!Temp.Section(1).BackColor = Forms!zfrmcolor!color2

Next
End Sub
------

[Allen Browne]

Try:
Forms(aryForm2(count)).BackColor = ...

Item is the default collection for forms, so it's an abbreviation of this
kind of construct:
Forms.Item("Form1")

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

<ch************@yahoo.comwrote in message
news:11**********************@f1g2000cwa.googlegro ups.com...

>I want to do this from a for/next loop:

DoCmd.OpenForm aryForm2(count), acDesign, , , , acWindowNormal
Temp = aryForm2(count)
Forms!Temp.Section(1).BackColor = Forms!zfrmcolor!color2

The compiler doesn't understand I want to use the variable 'Temp'
instead of a form named "Temp".

How do I get around this?

------

Current code is:

Private Sub cmdColorize_Click()
Dim aryForm2(0) As String
aryForm2(0) = "frmqunioncomp"

Dim frm2end As Integer
Dim count As Integer
Dim temp As String

For count = 0 To UBound(aryForm2)

DoCmd.OpenForm aryForm2(count), acDesign, , , , acWindowNormal
Temp = aryForm2(count)
Forms!Temp.Section(1).BackColor = Forms!zfrmcolor!color2

Next
End Sub
------

[David F Cox]

call the string variable something else?

some folks would hang you for not calling them StrTemp and FrmTemp in the
first place

<ch************@yahoo.comwrote in message
news:11**********************@f1g2000cwa.googlegro ups.com...

>I want to do this from a for/next loop:

DoCmd.OpenForm aryForm2(count), acDesign, , , , acWindowNormal
Temp = aryForm2(count)
Forms!Temp.Section(1).BackColor = Forms!zfrmcolor!color2

The compiler doesn't understand I want to use the variable 'Temp'
instead of a form named "Temp".

How do I get around this?

------

Current code is:

Private Sub cmdColorize_Click()
Dim aryForm2(0) As String
aryForm2(0) = "frmqunioncomp"

Dim frm2end As Integer
Dim count As Integer
Dim temp As String

For count = 0 To UBound(aryForm2)

DoCmd.OpenForm aryForm2(count), acDesign, , , , acWindowNormal
Temp = aryForm2(count)
Forms!Temp.Section(1).BackColor = Forms!zfrmcolor!color2

Next
End Sub
------

[christianlott1]

Allen Brown wrote:

Try:
Forms(aryForm2(count)).BackColor = ...

Item is the default collection for forms, so it's an abbreviation of this
kind of construct:
Forms.Item("Form1")

OMG - it worked!

Thanks Allen! You just saved me a ton of time and code!
- Christian