quick syntax question

[Derkins]

If x(21) = True And x(2) = True Then
[B]Forms![Distance Matrix]![t221].Visible = True[/B]
End If
                            
If x(21) = True And x(3) = True Then
[B]Forms![Distance Matrix]![t321].Visible = True[/B]
End If
.
.
.

Im having trouble with the cstr command inside the brackets there, any way to loop this?

thanks a bunch guys

 

[ChrisO]

Airware: -

Sub JunkCode()
    Dim x(21, 3) As Boolean
    Dim y        As Long
    Dim z        As Long
    
    For y = 21 To 21
        For z = 2 To 3
            If x(y, z) = True And x(y, z) = True Then
                Forms("Distance Matrix")("t" & CStr(z) & CStr(y)).Visible = True
            End If
        Next z
    Next y

End Sub

 

[Derkins]

Thanks a bunch worked perfectly

 

[ChrisO]

Are you sure?

Cricky, that was totally ad lib…

Your whole post makes absolutely no sense to me.

Tick, tick, tick...