Discussion :

[stepofwolf]

Bonjour,
Mon objectif est de générer des enregistrements dans une table par une macro. A partir d'une première date saisie dans le formulaire1 (champ Jours), puis en cliquant sur le bouton, je tente d'ajouter 3 nouveaux enregistrements (dans la table Jours) correspondants aux 3 jours suivant la date saisie :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Commande2_Click()
Dim i As Integer
Jours.Value = DateAdd("d", i, [Jours])
For i = 1 To 3 Step 1
Next i
End Sub

La boucle ne tourne pas : une seule itération se calcule.
Merci pour vos lumières

[hyperion13]

Bonjour,
Un petit peu de lecture ici

[stepofwolf]

Merci Hyperion13 pour la saine lecture ,

J'ai adapté le code indiqué à mon besoin (ajouter des dates dans la table Dates).

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
 
Private Sub Commande2_Click()
Dim i As Integer
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("Dates", dbOpenTable)
'Passe en mode Ajout
oRst.AddNew
'Affecte les différents champs
oRst.Fields("Jours").Value = DateAdd("d", i, [Jours])
For i = 1 To 3 Step 1
Next i
'Met à Jour
oRst.Update
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

La macro ajoute bien une date à chaque fois que je la lance. Mais j'espérais qu'elle ajoute directement 3 dates (i = 1 To 3) et que les dates se suivent (actuellement la macro ajoute toujours la même date : Jours
Delà à dire que c'est la partie

Code :

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

1
2
3
oRst.Fields("Jours").Value = DateAdd("d", i, [Jours])
For i = 1 To 3 Step 1
Next i

qui est foireuse....

Donc j'ai encore besoin de tes lumières

Merci

[tee_grandbois]

bonjour,
il faut mettre les instructions dans la boucle :

Code :

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

1
2
3
4
5
For i = 1 To 3
    oRst.AddNew
    oRst.Fields("Jours").Value = DateAdd("d", i, Me.[Jours])
    oRst.Update
Next i

[stepofwolf]

Merci à tous les deux, la touche finale de tee_grandbois a été décisive.
Je clos le sujet
Merci