Ответить на сообщение

Вы отвечаете на сообщение:

ник: kot_k_k

Private Sub Кнопка75_Click() Dim mdl As Module DoCmd.OpenForm "форма2", acDesign, , , , acHidden Set mdl = Modules("form_форма2") mdl.AddFromString "Private Sub Поле0_Click()" & Chr(13) & Chr(10) & "docmd.close" & Chr(13) & Chr(10) & "end sub" DoCmd.Close acForm, "форма2", acSaveYes End Sub

вот так правильней

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB