ник: kot_k_k
вообще все это фигня если только не задание из методички (хотя тоже бред)
Set frm = Screen.ActiveForm
l = Me(flag) - это работает только в форме естественно.
z = Forms!имя_формы.Form(flag)
c = frm(flag)
все это одно и тоже и не нужно никакого цикла, ненужно сравнений