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![]()
Partager