Подскажите как повесть несколько процедур на одно событие.

Private Sub toplivo_kart_AfterUpdate()
Dim a, b, s, f, z
s = Forms!frmZakazKart!Код.Value
a = Me![toplivo_kart].Value
f = DLookup("[Spidom0]", "ZakazKart", "[код] = " & s & "")
z = DCount("*", "qerzakaz", "[toplivo_kart] > 0")

'ввод первую строку если toplivo_kart не равно 0
If z = 0 And a > 0 Then
Me.spidom_z = f + [probeg]
End If

If a > 0 And z > 0 Then
b = DMax("[spidom_z]", "ZakazKomplektKart", "[idzakaz] = " & s & "")
Me.spidom_z = b + [probeg]
End If

Debug.Print b
Debug.Print f
Debug.Print a
Debug.Print z
End Sub

и вторую

^{Private Sub fakt_AfterUpdate()
Me.[probeg] = ([fakt] / Forms!frmZakazKart!na100) * 100
End Sub}

http://www.sql.ru/forum/1302798/obedinit-neskolko-procedur