Reduit

Le
Marco
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6329761
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
Fabien
Le #6329751
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 !

Fabien
Le #6329741
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 !


Trop lent fabien !!!!!
Bonjour Thierry toujours aussi rapide ;-)
M'est d'avis qu'il faudrait vraiment changer ton pseudo en "Lucky lucke"
;-))
Bonne journée !


Thierry (ze Titi)
Le #6329711
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 !


--
Cordialement,
Thierry

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

Marco
Le #6329621
Bonjour Thierry
ça marche bien et je te remerci beaucoup ainsi que à Fabien

Bonne journée

"Thierry (ze Titi)" message de news:
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




Publicité
Poster une réponse
Anonyme