cs_Sylvain93
Messages postés42Date d'inscriptionjeudi 30 mai 2002StatutMembreDernière intervention27 avril 2011
-
2 août 2005 à 15:51
cs_Sylvain93
Messages postés42Date d'inscriptionjeudi 30 mai 2002StatutMembreDernière intervention27 avril 2011
-
2 août 2005 à 16:23
Bonjour,
Je voudrais afficher des champs seulement ce qui ont un nom qui est inférieur à l'année actuelle (c'est a dire 2001,2002,2003,2004,2005). Mias je trouve pas du tout comment faire...
Voici le le code si vous pouvez m'aider...
Private Sub Form_Open(Cancel As Integer)
Dim maDate As Integer
Dim A As Integer
Dim test As String
maDate = Mid$(Date, 7)
If maDate > 2001 Then
For A = 2002 To maDate Step 1
Me![ & A & ].Visible = True
Next A
End If
End Sub
jhary69
Messages postés81Date d'inscriptionjeudi 29 juillet 2004StatutMembreDernière intervention22 juillet 2007 2 août 2005 à 16:17
salut,
Private Sub Form_Open(Cancel As Integer)
Dim maDate As Integer
Dim A As Integer
Dim test As String
maDate = format(Date, "yyyy")
If cInt (maDate) > 2001 Then
For A = 2002 To maDate Step 1
<NomFormulaire>.controls(CStr(A)).Visible = True
Next A
End If
End Sub