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

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

ник: Lukas
Какой версии ACCESS установлен? Новая версия:

Код формы "Форма1" для 2 примера:

Private Sub btnOpenForm2_Click() Dim strSQL As String If Len(Nz(Me.ListTables)) = 0 Then Exit Sub strSQL = "SELECT * FROM " & Me.ListTables & " WHERE ItemValue=" & Me.ListItemValue If CurrentProject.AllForms("Форма2").IsLoaded Then DoCmd.Close acForm, "Форма2" DoCmd.OpenForm "Форма2", acFormDS, , , , , strSQL End Sub

Код формы "Форма2"

Private Sub Form_Open(Cancel As Integer) Me.RecordSource = Nz(Me.OpenArgs, "Таблица1") End Sub

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

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

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

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

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