Discussion :

[Dixies]

Bonjour tous,

J'ai un Form dans lequel j'ai 12 TxtBox (nommés M0,M1 .....M11) correspondant aux 12 mois de l'année.
Ils sont positionnés horizontalement en bas de mon Form.
La TextBox la plus à gauche (M0) doit correpondre au mois actuel. Et je souhaite que tous les TxtBox se mettent à jour sur OpenForm en fonction du mois actuel.
J'ai donc écris ceci :

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
Private Sub Form_Open(Cancel As Integer)
 
    Dim MsEncour As Long
    Dim AnEncour As Long
    Dim i As Integer
    Dim m As Integer
    Dim a As Integer
    Dim VarAn1 As Integer
    Dim VarAn2 As Integer
 
    MsEncour = Me.T         'Month(Now())
    AnEncour = Year(Now())
    VarAn1 = 12 - MsEncour             ' Nb de mois restant année en cour
    VarAn2 = 12 - (MsEncour - 1)              ' Nb de mois à venir année N+1
 
        For i = 0 To VarAn1
            Me.Controls("M" & i).Value = StrConv(MonthName(MsEncour + i), 3)
                While m = 0
                    For a = VarAn2 To 11
                        m = m + 1
                        Me.Controls("M" & a).Value = StrConv(MonthName(m), 3)
                    Next a
                Wend
        Next i
 
End Sub

Il semblerait que ça fonctionne sauf que .... je ne peux pas ouvrir mon objet Formulaire normalement : Access plante carrément.
Je peux apparement l'ouvrir d'abord en mode création et rebasculer en mode affichage. Mais .... ça reste périlleux.
Qu'ai-je donc codé de compliqué sachant qu'aucune erreur n'est signalée ?

Merci d'avance.

[Tofalu]

Bonjour

Plus simplement :

Code :

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

1
2
3
4
5
6
Private Sub Commande13_Click()
Dim i As Integer
For i = 0 To 11
    Me.Controls("M" & i) = Format(DateAdd("m", i, Now), "mmm")
Next i
End Sub

[Dixies]

Bonjour Tofalu,

Ben oui !!!

Il ne m'est pas venu du tout à l'idée d'utiliser DateAdd().

Merci pour cette réponse rapide.

Bonne journée.