Всем добрый день,

Заморочился по одному вопросу, и никак не могу нигде найти простое решение своей проблемы.

у меня есть достаточно большой список различных форм, и мне нужно через VBA менять значение полей в нужных формах.

Вот работает такой код:


<sub>Dim r As String
If IsNull(Me.Список157.Value) = False Then
r = Me.Список157.Value
End If
If r <> "" Then
a = Forms![Форма1].Поле153.Value
b = Forms![Форма1].Поле152.Value
c = Forms![Форма1].Поле154.Value
DoCmd.OpenForm r, acNormal

Forms![Форма2].Поле153.Value = a
Forms![Форма2].Поле152.Value = b
Forms![Форма2].Поле154.Value = c
DoCmd.Close acForm, "Форма1", acSaveNo
End If</sub>



Но проблема в том, что у меня в переменной "r" сидит название = "Форма2".
что нужно в коде поправить чтобы код выглядел не

_{Forms![Форма2].Поле153.Value = a
Forms![Форма2].Поле152.Value = b
Forms![Форма2].Поле154.Value = c}


а примерно как то так


_{Forms![" & r & "].Поле153.Value = a
Forms![" & r & "].Поле152.Value = b
Forms![" & r & "].Поле154.Value = c}


Заранее всем спасибо за помощь!

Модератор: Тема перенесена из форума "Visual Basic".

http://www.sql.ru/forum/1175557/imya-formy-cherez-peremennuu-na-vba-v-access