Discussion :

[travanca]

Bonjour,

Dans mon formulaire, j’ai plusieurs champs dates « Dte1, Dte2, Dte3 etc ».
Un champ SelectDate ou je veux récupérer successivement la valeur des champs Dte 1 Dte2 etc.
Je fais une boucle pour que le champ SelectDate prenne la valeur Dte…..
Par exemple si Dte1 = 01/01/2012 et Dte2 01/05/2013
A la première boucle SelectDate doit avoir la valeur 01/01/2012
A la deuxième boucle SelectDate doit avoir la valeur 01/05/2013
J’obtiens SelectDate= "[Dte1].value"
Mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub BtnValide_Click()
DoCmd.SetWarnings False
Dim Nbre1, Nbre2, SelectD
Nbre1 = 1
Nbre2 = 17
 
Do While Nbre2 >= Nbre1
SelectDate = "[Dte" & Nbre1 & "].value"
Nbre1 = Nbre1 + 1
Loop
DoCmd.SetWarnings True
End Sub

Cordialement

[f-leb]

bonsoir,

je pense que tu trouveras la solution dans la FAQ : Comment atteindre un contrôle dont le nom est dans une variable ?

[travanca]

bonjour,
merci pour ton aide

sa fonctionne a part un bug sur la ligne 12
message d'erreur
Trop peu de paramètre. 1 attendu

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
Private Sub SelectDate_Click()
Dim Dte As Control
Dim sql As String
Dim sqlBis As String
'DoCmd.SetWarnings False
For i = 1 To 17
    Set Dte = Me.Controls("Dte" & i)
    SelectDate = Dte.Value
 
    sql = "INSERT INTO PlanningeJournée ([NomPrénom]) SELECT TbeActionnaire.[NomPrénom] FROM TbeActionnaire WHERE (([TbeActionnaire].[TypeAction])='Complète');"
CurrentDb.Execute sql
sqlBis = "UPDATE [PlanningeJournée] SET [PlanningeJournée].[DateJourDeChasse] = Dte WHERE (((PlanningeJournée.DateJourDeChasse) Is Null));"
CurrentDb.Execute sqlBis
'DoCmd.OpenQuery "RqyMiseAjourPlanningeJournée", acViewNormal, acEdit
 
   Next i
   'DoCmd.SetWarnings True
End Sub

Cordialement

[travanca]

re bjr,

rectification erreur sur la ligne 13

CurrentDb.Execute sqlBis

cdlt

[Robert1957]

Bonjour travanca,
Tu ne peux mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SET [PlanningeJournée].[DateJourDeChasse] = Dte

Dte dans ta requête. Tu pourrais mettre Dte.Value. Ou dans ce que j'ai vu de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

....SET [PlanningeJournée].[DateJourDeChasse] =" & SelectDate & "....

Bonne journée

[travanca]

re bjr,

merci pour l'aide je rectifie
cdlt
+++