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

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

ник: Lukas
На примере библиотеки DAO:

Private Sub btnInsert_Click() With CurrentDb.OpenRecordset("SELECT * FROM Таблица1 WHERE False") .AddNew 'три варианта обращения к полям Recordset-а .Fields(1) = Me.Поле0 '"ФИО" .Fields![Адрес] = Me.Поле1 .Fields("Телефон") = Me.Поле2 .Update .Close End With MsgBox "Запись добавлена в таблицу" 'Очистим поля для следующего ввода With Me .Поле0 = vbNullString .Поле1 = vbNullString .Поле2 = vbNullString End With End Sub

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

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

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

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

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