Bonjour

j'ai un formulaire (SUIVI_N) en mode feuille de donnée avec ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Form_current()
Dim strSQL As String
Dim strSQL1 As String
Dim Date1 As Date
Dim Date2 As Date
Dim Date3 As Date
 
Date1 = Format(Date1, "dd/mm/yyyy")
Date2 = Format(Date1, "dd/mm/yyyy")
Date3 = Format(Date3, "dd/mm/yyyy")
 
Date1 = Nz(ENVOIEN, "01/01/1900")
Date2 = Nz(ENVOIEC, "01/01/2080")
Date3 = Nz(DATE_D, "01/01/2080")
 
If (Date1) > (Date2) Then
 
strSQL = "UPDATE CONTRATS SET [ENVOIEC] ='" & "" & "'" & "WHERE ID =" & Me!ID
CurrentDb.Execute strSQL
Forms!SUIVI_N.Requery
End If
 
If (Date1) > (Date3) Then
strSQL1 = "UPDATE CONTRATS SET [DATE_D] ='" & "" & "'" & "WHERE ID =" & Me!ID
CurrentDb.Execute strSQL1
Forms!SUIVI_N.Requery
End If
 
End Sub
je voudrai que ce code s'active dès l'ouverture du formulaire (qui le fasse sur toutes les lignes du formulaire), car pour le moment il s'active seulement si je clique sur la ligne.

Edit:Chaque ligne à un ID différent.

Est-ce possible?
Merci d'avance