Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Reduit VBA!!!

Reduit VBA!!!

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabien
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 ;-)
@+

Avatar
Marco
C'est Parfait
Merci à Fabien

Bonne journée

"Fabien" a écrit dans le message de groupe de
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 ;-)
@+