Discussion :

[FewRa]

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

[micniv]

Bonjour,
tu peux faire :

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
30
 
Private Sub Form_current()
Dim strSQL As String
Dim strSQL1 As String
dim rst as DAO.recordset
 
set rst = me.form.recordsetclone
 
if rst.recordcount > 0 then
rst.movefirst
while not rst.EOF
If   Nz(ENVOIEN, #01/01/1900#) > Nz(ENVOIEC, #01/01/2080#) Then
 
strSQL = "UPDATE CONTRATS SET [ENVOIEC] = '' WHERE ID =" & rst!ID
CurrentDb.Execute strSQL
End If
 
If Nz(ENVOIEN, #01/01/1900#) > Nz(DATE_D, #01/01/2080#) Then
strSQL1 = "UPDATE CONTRATS SET [DATE_D] = '' WHERE ID =" & rst!ID
CurrentDb.Execute strSQL1
End If
 
rst.movenext
wend
me.requery
end if
 
set rst=nothing
 
End Sub

Pas testé mais ça devrait être ok

Bonne suite

[FewRa]

Désolé de la réponse tardif mais j'ai été malade.
ça à l'aire de marcher je te remercie grandement

[FewRa]

j'avais laisser ce problème de coté en pensant que ça marcher (j'avais pas fait assez de test)
Donc j'ai toujours le même problème il faut cliquer sur la ligne ou il y a la bonne condition pour que le code s'active et avec ce code (donc il check pas toute les ligne tout seul) et si il trouve une date supérieur il m'efface toutes les dates de la colonne malgré le critère ID.

[micniv]

Je ne connais pas tes données dans le détail.

si ENVOIEN, ENVOIEC et DATE_D sont des colonnes du recordset,
ceci devrait être plus adapté :

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 rst as DAO.recordset
 
set rst = me.form.recordsetclone
 
if rst.recordcount > 0 then
rst.movefirst
while not rst.EOF
If   Nz(rst!ENVOIEN, #01/01/1900#) > Nz(rst!ENVOIEC, #01/01/2080#) Then
 
strSQL = "UPDATE CONTRATS SET [ENVOIEC] = '' WHERE ID =" & rst!ID
CurrentDb.Execute strSQL
End If
 
If Nz(rst!ENVOIEN, #01/01/1900#) > Nz(rst!DATE_D, #01/01/2080#) Then
strSQL1 = "UPDATE CONTRATS SET [DATE_D] = '' WHERE ID =" & rst!ID
CurrentDb.Execute strSQL1
End If
 
rst.movenext
wend
me.requery
end if
 
set rst=nothing
 
End Sub

A voir

[FewRa]

c'est tout vu

ça marche à merveille exactement ce que je cherchais

Mille merci