MyTetra Share
Делитесь знаниями!
VBA Excel - Access 2010: проверка существования записи в Recordset
16.03.2019
23:43
Раздел: !Закладки - VBA - Access

Доброго времени!
Как можно проверить существование записи в Recordset, соответствующей запросу, чтобы в зависимости от результата проверки добавить или изменить запись?


Set rs = New ADODB.Recordset

With rs

    .LockType = adLockOptimistic: .CursorType = adOpenKeyset

    .Source = "SELECT * FROM Товары WHERE Код_Товара=" & myCod

    Set .ActiveConnection = cn: .Open

    If (запись существует) Then: GoTo a:

        .AddNew

a:

        .Fields("Цена_Товара").Value = 3

        .Update

        .Close

End With



If rs.EOF Then

    'Запись не существует

Else

    'Запись существует

End If

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования