- 1
- 2
- 3
- 4
Private Sub Form_AfterInsert() ' событие после вставки новой записи в таблицу table
runSQL ("UPDATE table set TYPE= 9 where ID = (select max(p.ID) from table p )")
Me.Form.Requery
End Sub
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−130.4
Private Sub Form_AfterInsert() ' событие после вставки новой записи в таблицу table
runSQL ("UPDATE table set TYPE= 9 where ID = (select max(p.ID) from table p )")
Me.Form.Requery
End Sub
Событие на форме в Access
А достаточно было просто повесить на форму поле с источником данных TYPE и дефолтовым значением 9.
guest 05.05.2010 15:31 # 0
guest 05.05.2010 15:43 # 0