Sub UnionSub()
Call toplivo_kart_AfterUpdate
Call fakt_AfterUpdate

'и т.п. типа:
Call btn_Click
End sub

Private Sub toplivo_kart_AfterUpdate()
....
End Sub

Private Sub fakt_AfterUpdate()
.....
End Sub

Private Sub fakt_AfterUpdate()
'Call fakt_AfterUpdate  вы пытаетесь в процедуре вызвать саму процедуру,  не надо так
Call toplivo_kart_AfterUpdate
Call toplivo_kart_LostFocus

'Call btn_Click это вообще пример был,  включаем голову и ассоциативное мышление
End sub

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

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]
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 toplivo_kart_LostFocus()
Me.[spidom_v] = [spidom_z] - [probeg]
End Sub