Referencing a control?

[Rockman]

I'd like to run 3 specific MSHFlexGrids through a for/next loop, but i don't know how to reference them correctly. Below is an example of what I am trying to do:

Dim cControl as MSHFlexGrid

  For i = 1 To 3
    If i = 1 Then
      cControl = Me.flxFindPhones
    ElseIf i = 2 Then
      cControl = Me.flxViewPhones
    ElseIf i = 3 Then
      cControl = Me.flxEditPhones
    End If
    With cControl
      .TextMatrix(0, 0) = "Type"
      .TextMatrix(0, 1) = "Number"
      .Row = 0
      For j = 0 To 1
        .Col = j
        .CellAlignment = flexAlignLeftCenter
      Next j
      .ColWidth(0) = 1920
      .ColAlignment(0) = flexAlignLeftCenter
      .ColWidth(1) = 2835
      .ColAlignment(1) = flexAlignLeftCenter
    End With
  Next i

The code above chokes on "cControl = Me.flxFindPhones". Any other ideas out there?

Thanks,
Jeff

[AIS_DK]

Since you are dealing with references you need to use the keyword set. Like this:

Dim cControl as MSHFlexGrid

  For i = 1 To 3
    If i = 1 Then
      Set cControl = Me.flxFindPhones
    ElseIf i = 2 Then
      Set cControl = Me.flxViewPhones
    ElseIf i = 3 Then
      Set cControl = Me.flxEditPhones
    End If
    With cControl
      .TextMatrix(0, 0) = "Type"
      .TextMatrix(0, 1) = "Number"
      .Row = 0
      For j = 0 To 1
        .Col = j
        .CellAlignment = flexAlignLeftCenter
      Next j
      .ColWidth(0) = 1920
      .ColAlignment(0) = flexAlignLeftCenter
      .ColWidth(1) = 2835
      .ColAlignment(1) = flexAlignLeftCenter
    End With
  Next i

[Rockman]

That's exactly the ticket AIS_DK!

Thanks a bunch.