Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: 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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.