Если выполнен запрос, то поставить флажок или еще что-либо - VB
Формулировка задачи:
я делаю запрос на обновление таблицы, если одно поле не заполнено - :
dbsCDB.Execute ("Update [Order] Set [Order].[Pole1] = '" & Me.[Pole1] & "' WHERE [Order].[Pole2]='" & Me.[Pole2] & "' AND [Order].[Pole1]IS NULL "), dbFailOnError
так вот, если этот запрос не выполнятся
тогда выполнить другой запрос на добавление, причем надо создать новую запись, притом с теми же данными, только это поле другим будет.
dbsCDB.Execute ("INSERT INTO [Order] ([Pole1],[Pole2],[Pole3],[Pole4]) Values ('" &Me.[Pole1] & "', '" & Me.[Pole2] & "', [Pole3], [Pole4])"), dbFailOnError
эти самые [Pole3],[Pole4] должны быть такими же как и в той записи, на которую указывал первый запрос
Если кто знает, помогите пожалуйста!
Решение задачи: «Если выполнен запрос, то поставить флажок или еще что-либо»
textual
Листинг программы
conn.execute <font color="teal">"Update ..."</font> <font color="blue">if</font> conn.affectedrecords = <font color="darkblue"><b>0</b></font> <font color="blue">then</font> conn.execute <font color="teal">"Insert ..."</font> <font color="blue">end</font> <font color="blue">if</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д