Bonjour !

Je ne sais pas si je n'ai pas tout compris mais... pourquoi ne pas écrire ton code de cette façon :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Space_occupied_Exit(Cancel As Integer)
Dim calc As Single
Dim old_value As Single
 
    old_value = DLookup("Space occupied", "Space Report", "Location =" & Forms![Space Report]!Location)
    calc = Me.Space_occupied
 
If calc <> 0 Then
   Me.Result = (calc - old_value)
End If
 
End Sub
...?

Cordialement