Релиб / Access / Базы данных / Еще одна проблема с Update / Latest Posts

RE: Еще одна проблема с Update

pvik1970 — Wed, 25 Apr 2007 16:02:34 GMT

Делаю интересное задание. Я бы его смог вам расписать, чтобы вы понимали его. Здесь не хочу флудить. Просто напишите мне письмо на адрес pvik1970@mail.ru, я Вам его распишу. Базу могу выложить на скачку и дать ссылку. Скачаете и лучше поймете.

Спасибо.

RE: Еще одна проблема с Update

BoNiM — Wed, 25 Apr 2007 15:53:45 GMT

Я вообще не понимаю, что Вы делаете и зачем.
Если задача состоит в том, чтобы имея форму, связанную с таблицей, заполнять записи таблицы, то зачем все эти процедуры обработки события AfterUpdate по каждому полю с запросом на обновление этого поля, когда все это делается автоматом. Если же у Вас другая задача, то поясните ее.

Еще одна проблема с Update

pvik1970 — Wed, 25 Apr 2007 14:00:15 GMT

Создал первую запись в таблице, в форме заполнил поля, все заменилось в строке. Но при создании второй записи, при прохождении всех полей Update меняет на последние значения все записи. И получаются все одинаковые... Можно как-то этого избежать?

Код.
Private Sub Номердоговора_AfterUpdate()
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Номердоговора]='" & Me![Номердоговора] & "' WHERE [Номердоговора]='0'"
End Sub

Private Sub Номеррегистрационный_AfterUpdate()
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Номеррегистрационный]='" & Me![Номеррегистрационный] & "' WHERE [Номеррегистрационный]='0'"
End Sub

Private Sub Суммадоговора_AfterUpdate()
CurrentDb.Execute "UPDATE [Заказчики и Исполнители] SET [Суммадоговора]='" & Me![Суммадоговора] & "' WHERE [Суммадоговора]=0"
End Sub

При создании записи вставляются 0 в поля.