Bonjour le forum
Besoin d'aide pour mettre la procédure ci-dessous dans un module et y faire appel en cas de besoin.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim i As Integer For i = 1 To 5 If IsNull(DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i)) Then Controls("ctld" & i) = "" Else Controls("ctld" & i) = DLookup("[Externe]", "employe", "[fr] = '" & Me.fr & "' and [Rec] = '" & Me.Rec & "' And [Sec] = " & i) End If Next
Partager