- 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.
        
Комментарии (2) RSS
Добавить комментарий