[vba] Access Syntaxe boucle for
Résolu
larkoup
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
larkoup Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
larkoup Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à simplifier mon code vba par des boucles for. J'ai une longue série de code redondante comme celui la :
[j3-1] = DLookup("[J3]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j4-1] = DLookup("[J4]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j5-1] = DLookup("[J5]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j6-1] = DLookup("[J6]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j7-1] = DLookup("[J7]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j8-1] = DLookup("[J8]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j9-1] = DLookup("[J9]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j10-1] = DLookup("[J10]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j11-1] = DLookup("[J11]", "sauvj", "[clé]='" & Me.Player1 & "'")
Donc avoir quelque chose ressemblant à :
for i=3 to 11
[ji-1] = DLookup("[Ji]", "sauvj", "[clé]='" & Me.Player1 & "'")
next i
Je ne trouve pas la syntaxe correcte...
Un grand merci à celui qui me dépannera !
Je cherche à simplifier mon code vba par des boucles for. J'ai une longue série de code redondante comme celui la :
[j3-1] = DLookup("[J3]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j4-1] = DLookup("[J4]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j5-1] = DLookup("[J5]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j6-1] = DLookup("[J6]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j7-1] = DLookup("[J7]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j8-1] = DLookup("[J8]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j9-1] = DLookup("[J9]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j10-1] = DLookup("[J10]", "sauvj", "[clé]='" & Me.Player1 & "'")
[j11-1] = DLookup("[J11]", "sauvj", "[clé]='" & Me.Player1 & "'")
Donc avoir quelque chose ressemblant à :
for i=3 to 11
[ji-1] = DLookup("[Ji]", "sauvj", "[clé]='" & Me.Player1 & "'")
next i
Je ne trouve pas la syntaxe correcte...
Un grand merci à celui qui me dépannera !
A voir également:
- Vba boucle for
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Copytrans heic for windows - Télécharger - Visionnage & Diaporama
- Instagram for pc - Télécharger - Divers Communication
- Microsoft store download for pc - Guide
1 réponse
Salut,
pour le dlookup, tu peux fabriquer une variable sans problème.
Par contre, de quels types sont tes [Ji-1] : variables, contrôles de formulaire... ?
Pour un contrôle, on peut faire un truc comme ça :
Pour des variables, aucun langage ne le permet, tu dois passer par un tableau (modifiable avec option base).
A+ blux
pour le dlookup, tu peux fabriquer une variable sans problème.
Par contre, de quels types sont tes [Ji-1] : variables, contrôles de formulaire... ?
Pour un contrôle, on peut faire un truc comme ça :
MaVar="[J" & I &"]"
Me.Controls("[j" & I & "-1]).text = DLookup(MaVar, "sauvj", "[clé]='" & Me.Player1 & "'")
Pour des variables, aucun langage ne le permet, tu dois passer par un tableau (modifiable avec option base).
A+ blux
"Les cons, ça ose tout. C'est même à ça qu'on les reconnait"
larkoup
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
ça marche parfaitement merci