Reduit VBA!!!

Le
Marco
Bonjour,
Je vous souhaite une bonne année 2008

Comment réduit Visual Basic suivant :

Private Sub CmdSupp01_MouseMove(Button As ..)
If Not IsNull (Me.Code01) Then
Curseur_Main
Else
If Me.Coch01=-1Then
Curseur_Main
End If
End If

Private Sub CmdSupp02_MouseMove(Button As ..)
If Not IsNull (Me.Code02) Then
Curseur_Main
Else
If Me.Coch02=-1Then
Curseur_Main
End If
End If




Je dois répète 01 jusqu' 16 (CmdSupp01 à CmdSupp16)
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
Fabien
Le #6369181
Bonjour,
Je vous souhaite une bonne année 2008

Comment réduit Visual Basic suivant :

Private Sub CmdSupp01_MouseMove(Button As ........)
If Not IsNull (Me.Code01) Then
Curseur_Main
Else
If Me.Coch01=-1Then
Curseur_Main
End If
End If

Private Sub CmdSupp02_MouseMove(Button As ........)
If Not IsNull (Me.Code02) Then
Curseur_Main
Else
If Me.Coch02=-1Then
Curseur_Main
End If
End If

...
...

Je dois répète 01 jusqu' 16 (CmdSupp01 à CmdSupp16)
Comment réduit code !

Par avance merci
Cordialement


Bonjour

Tu peux acceder au variables par me("Coche" & format(N°,"00)).
Petite
Private sub MiseàJour(N° as Integer)
If (Not IsNull (Me("coch" & format(N°,"00"))) or (Me("coch" &
format(N°,"00")) Then

Curseur_Main
End If
end sub

et
Private Sub CmdSupp02_MouseMove(Button As ........)
If Not IsNull (Me.Code02) Then
Curseur_Main
Else
If Me.Coch02=-1Then
Curseur_Main
End If
End If
end sub

Devient
Private Sub CmdSupp02_MouseMove(Button As ........)
Miseàjour 2

end sub
A tester ;-)
@+

Marco
Le #6369131
C'est Parfait
Merci à Fabien

Bonne journée

"Fabien" discussion : 47872dd3$0$865$
Bonjour,
Je vous souhaite une bonne année 2008

Comment réduit Visual Basic suivant :

Private Sub CmdSupp01_MouseMove(Button As ........)
If Not IsNull (Me.Code01) Then
Curseur_Main
Else
If Me.Coch01=-1Then
Curseur_Main
End If
End If

Private Sub CmdSupp02_MouseMove(Button As ........)
If Not IsNull (Me.Code02) Then
Curseur_Main
Else
If Me.Coch02=-1Then
Curseur_Main
End If
End If

...
...

Je dois répète 01 jusqu' 16 (CmdSupp01 à CmdSupp16)
Comment réduit code !

Par avance merci
Cordialement


Bonjour

Tu peux acceder au variables par me("Coche" & format(N°,"00)).
Petite
Private sub MiseàJour(N° as Integer)
If (Not IsNull (Me("coch" & format(N°,"00"))) or (Me("coch" &
format(N°,"00")) Then

Curseur_Main
End If
end sub

et
Private Sub CmdSupp02_MouseMove(Button As ........)
If Not IsNull (Me.Code02) Then
Curseur_Main
Else
If Me.Coch02=-1Then
Curseur_Main
End If
End If
end sub

Devient
Private Sub CmdSupp02_MouseMove(Button As ........)
Miseàjour 2

end sub
A tester ;-)
@+



Publicité
Poster une réponse
Anonyme