VBA Excel - Access 2010: проверка существования записи в Recordset

Пользователь

Сообщений: 24 Регистрация: 01.01.1970

14.05.2016 06:09:35

Доброго времени!
Как можно проверить существование записи в 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

JeyCi

Пользователь

Сообщений: 3399 Регистрация: 27.11.2013

14.05.2016 08:28:47

Цитата
KlerKK KlerKK написал: Как можно

можно погадать... если нет файла, чтобы кодировать... Правила форума

Изменено: JeyCi - 14.05.2016 08:29:37

чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)

KlerKK KlerKK

Пользователь

Сообщений: 24 Регистрация: 01.01.1970

14.05.2016 11:04:23

JeyCi, спасибо за совет! Погадал и разобрался))). Проверка существования записи выполняется просто (см.ниже). А п.2.3 Правил не стал соблюдать потому, что вес файлов с примерами превышает допустимый размер, создавать упрощенный набор необоснованно трудоемко. Да и в вопросе все необходимые составляющие присутствовали.

Код
If rs.EOF Then 'Запись не существует Else 'Запись существует End If

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

14.05.2016 23:39:35

А еще один пункт правил просит обратить внимание на отображаемое имя

Цитата
ЗАПРЕЩЕНО: 3.2. Использовать в... именах и логинах на форума... текст с пЕреМеНнЫм регистром...

Да и повторение одного слова два раза невольно ассоциирует Вас с заикой.
Прошу исправить. Нет, к редактированию правил у Вас доступа нет )

Читают тему