MyTetra Share
Делитесь знаниями!
Запрос на добавление записи
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 03 Запросы

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

Задача:
    Добавить в таблицу (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




 
MyTetra Share v.0.52
Яндекс индекс цитирования