Bonjour tout le monde!!
Afin de mieux exposé mon problème un petit impr écran:
J'aimerais, plutot que de répéter la saisie 12 fois, créer une fonction qui remplisse le formulaire avec 12 lignes identiques aillant seulement la date qui change (+1 mois à chaque ligne)
J'arrive à augmenter la date de 1mois, mais malheureusement, les informations s'écrivent toujours dans la ligne active (la 1ère ligne de mon sous formulaire de type tableau)...
Mon code:
Il faudrait que j'arrive à changer de ligne active entre deux boucles... Mais je n'en connais pas la syntaxe...
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
31
32
33
34
35
36
37 Private Sub Commande22_Click() If chkPer Then Dim SQL As String Dim i As Integer Dim lDate As String Dim j As Integer Dim p As Integer i = Me.txt11 MsgBox i, , "Periode" lDate = Me.Date If txtPer = "Mensuel" Then p = 1 If txtPer = "Trimestriel" Then p = 3 If txtPer = "Annuel" Then p = 12 Me.Texte23 = "Bonjour" MsgBox p, , "Pas" For j = 1 To (i) Step p lDate = DateAdd("m", p, lDate) MsgBox lDate, , "Date" Me.idBanque = Me.idBanque Me.Debit = Me.Debit Me.Date = lDate Me.Commentaire = Me.Commentaire Next End If DoCmd.Requery End Sub
J'espère avoir été assez clair...
Merci pour votre future aide!!
Partager