[Resolvido]Variavel no controle para desativar VBA

Olá, estou tentando fazer um codigo vba para num laço para ativar e desativar varios controles, sendo que os nomes dos controles é 1, 2, 3, 4 ... etc

T = DCount("[turno]", "tbl_Turno_Treinamento", "[COD_FREQUENCIA]=forms![frm_Frequencia]![COD_FREQUENCIA]")
i = 1
Do While i <= T
x = "Forms![frm_Frequencia]![tbl_Presença subformulário].Form.[" & i & "]"
at (x)
i = i + 1
Loop

Function at(y As CheckBox)
y.Enabled = True
End Function

da mil erros e nao sei como fazer, o problema é nessa variavel "i"
se alguem puder me ajudar ja agradeço

Tente assim:

Código:

T = DCount("[turno]", "tbl_Turno_Treinamento", "[COD_FREQUENCIA]=forms![frm_Frequencia]![COD_FREQUENCIA]")
i = "1"
Do While i <= T
x = Forms![frm_Frequencia]![tbl_Presença subformulário].Form(i)
at (x)
i = CStr(i + 1)
Loop

deu certo, então era só por que ele não aceita a variavel "i" como integer e sim com string
valeu, muito obrigado!