TopPicLogo TopPicText

Запрос на Добавление

Задача:
    Добавить в таблицу (TableName) одну запись и задать текстовому полю (TextFieldName) этой таблицы значение = Любой Текст, причем, таблица содержит уникальный индекс по числовому полю (RecordID) которое не является счетчиком.
Примечание:
    Если вы используете имена полей с пробелами (что не рекомендуется) то имена полей в запросе должны обрамляться квадратными скобками  - [Имя Поля]

Private Sub AddNewRecord()
Dim lngID As Long
Dim var As Variant
Dim strSQL As String
On Error Resume Next
'Определяем максимально имеющиеся значение индекса
    var = DMax("RecordID", "TableName")
    If IsNull(var) Then var = 0 'на случай если запись первая

'Получаем следующие значение индексного поля
    lngID = var + 1

'Конструируем запрс
    strSQL = "INSERT INTO TableName (RecordID, TextFieldName) VALUES (" & lngID & ", 'Любой Текст')"

'Выполняем запрос = Добавляем запись
    CurrentDb.Execute strSQL
End Sub

Назад ToTop
L.E. 26.07.2012
Рейтинг@Mail.ru