Reduit

Bonjour

Comment réduit Visual Basic suivant :

'Crée01 et Mod01
If Not IsNull (Me.Crée01) Then
Me.Crée01.Visible=True
Me.Mod01.Visibleúlse
Else
Me.Crée01.Visibleúlse
Me.Mod01.Visible=True
End If

Je dois répète 01 jusqu' 16 (Crée01 à Crée16 et Mod01 à Mod16)
Comment réduit code !

Par avance merci
Cordialement
Bonjour,

Bonjour

Comment réduit Visual Basic suivant :

'Crée01 et Mod01
If Not IsNull (Me.Crée01) Then
Me.Crée01.Visible=True
Me.Mod01.Visibleúlse
Else
Me.Crée01.Visibleúlse
Me.Mod01.Visible=True
End If

Je dois répète 01 jusqu' 16 (Crée01 à Crée16 et Mod01 à Mod16)
Comment réduit code !

Par avance merci
Cordialement
Bonjour,

avec quelque chose comme
Dim i As Integer
On Error Resume Next
For i = 1 To 16

Me("crée" & format(i,"00")).Visible = Not IsNull Me("crée" &
format(i,"00")))
Me("Mod" & format(i,"00")).visible=not( Me("crée" &
format(i,"00")).Visible)
Next i
A tester !

Bonjour Thierry toujours aussi rapide ;-)
Bonjour Fabien !

M'est d'avis qu'il faudrait vraiment changer ton pseudo en "Lucky lucke" ;-))
Je vais y songer mais je me demande si ça n'est pas "copyrighté"... :o)

Bonne journée !
Bonne journée à toi aussi !

Hello Marco !

Dim i As Integer
For i=1 to 16
Me.Controls("Crée" & Format(i,"00")).Visible=Not
Isnull(Me.Controls("Crée" & Format(i,"00"))
Me.Controls("Mod" & Format(i,"00")).Visible=IsNull(Me.Controls("Crée" &
Format(i,"00"))
Next

A tester...

--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info