Discussion :

[larkoup]

Bonjour,

J'essaye (sans succès) de simplifier ce code (qui permet de remplir des listes déroulantes dans mon formulaire) par deux boucles for :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Dim MAVAR1_1 As DAO.Recordset
Dim MAVAR1_2 As DAO.Recordset
Dim MAVAR1_3 As DAO.Recordset
Dim MAVAR1_4 As DAO.Recordset
Dim MAVAR1_5 As DAO.Recordset
Dim MAVAR2_1 As DAO.Recordset
Dim MAVAR2_2 As DAO.Recordset
Dim MAVAR2_3 As DAO.Recordset
Dim MAVAR2_4 As DAO.Recordset
Dim MAVAR2_5 As DAO.Recordset
 
Set MAVAR1_1 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste1_1 & "') and ([" & Ligue & "] = '" & Player1 & "')) ")
Set MAVAR1_2 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste1_2 & "') and ([" & Ligue & "] = '" & Player1 & "')) ")
Set MAVAR1_3 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste1_3 & "') and ([" & Ligue & "] = '" & Player1 & "')) ")
Set MAVAR1_4 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste1_4 & "') and ([" & Ligue & "] = '" & Player1 & "')) ")
Set MAVAR1_5 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste1_5 & "') and ([" & Ligue & "] = '" & Player1 & "')) ")
Set MAVAR2_1 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste2_1 & "') and ([" & Ligue & "] = '" & Player2 & "')) ")
Set MAVAR2_2 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste2_2 & "') and ([" & Ligue & "] = '" & Player2 & "')) ")
Set MAVAR2_3 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste2_3 & "') and ([" & Ligue & "] = '" & Player2 & "')) ")
Set MAVAR2_4 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste2_4 & "') and ([" & Ligue & "] = '" & Player2 & "')) ")
Set MAVAR2_5 = CurrentDb.OpenRecordset("SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE ((poste = '" & Poste2_5 & "') and ([" & Ligue & "] = '" & Player2 & "')) ")
 
Set Nom1_1.Recordset = MAVAR1_1
Set Nom1_2.Recordset = MAVAR1_2
Set Nom1_3.Recordset = MAVAR1_3
Set Nom1_4.Recordset = MAVAR1_4
Set Nom1_5.Recordset = MAVAR1_5
Set Nom2_1.Recordset = MAVAR2_1
Set Nom2_2.Recordset = MAVAR2_2
Set Nom2_3.Recordset = MAVAR2_3
Set Nom2_4.Recordset = MAVAR2_4
Set Nom2_5.Recordset = MAVAR2_5

Il n'y en a qu'un bout : la première variable va de 1 à 15 et la deuxième de 1 à 20...

Si quelqu'un connait la syntaxe, ça m'aiderait beaucoup !

Merci d'avance

[LedZeppII]

Bonjour,

Je pense qu'une première étape dans la simplification serait de s'affranchir des recordsets.
On doit pouvoir faire comme ça (exemple avec les deux premières listes):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sRowSceSql As String
 
' Pour Nom1_1
sRowSceSql = "SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs " & _
             "WHERE ((poste = '" & Poste1_1 & "') and ([" & Ligue & "] = '" & Player1 & "')) "
Nom1_1.RowSource = sRowSceSql
 
' Pour Nom1_2
sRowSceSql = "SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs " & _
             "WHERE ((poste = '" & Poste1_2 & "') and ([" & Ligue & "] = '" & Player1 & "')) "
Nom1_1.RowSource = sRowSceSql
 
' ...

Pour boucler il faudrait que tu nous dises ce que sont PosteI_J et PlayerI.
Est-ce que ce sont des contrôles du formulaire ?
Enfin, confirme la convention de nommage.
NomI_J <--> PosteI_J <--> PlayerI où I compris entre 1 et 15 et J compris entre 1 et 20 ?

A+

[larkoup]

Bonjour,

Je pense qu'une première étape dans la simplification serait de s'affranchir des recordsets.
On doit pouvoir faire comme ça (exemple avec les deux premières listes):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sRowSceSql As String
 
' Pour Nom1_1
sRowSceSql = "SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs " & _
             "WHERE ((poste = '" & Poste1_1 & "') and ([" & Ligue & "] = '" & Player1 & "')) "
Nom1_1.RowSource = sRowSceSql
 
' Pour Nom1_2
sRowSceSql = "SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs " & _
             "WHERE ((poste = '" & Poste1_2 & "') and ([" & Ligue & "] = '" & Player1 & "')) "
Nom1_1.RowSource = sRowSceSql
 
' ...

Pour boucler il faudrait que tu nous dises ce que sont PosteI_J et PlayerI.
Est-ce que ce sont des contrôles du formulaire ?
Enfin, confirme la convention de nommage.
NomI_J <--> PosteI_J <--> PlayerI où I compris entre 1 et 15 et J compris entre 1 et 20 ?

A+

Bonjour,
Je te confirme que tous les PosteI_J, NomI_J et PlayerI sont bien des contrôles du formulaire et la convention de nommage correspond bien : 1<I<15 et 1<J<20.

Edit :
J'ai réussi à simplifier le code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 1 To 15
	For j = 1 to 20
    		Forms![Formulaire1]("nom" & i & "_" & j).RowSource = "SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE poste = '" & Forms![match]("Poste" & i & "_" & j) & "' and " & Ligue & " = '" & Forms![Formulaire1]("player" & i) & "'"
	Next j
Next i

Merci pour ton aide.

[LedZeppII]

Bonjour,

J'ai réussi à simplifier le code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 1 To 15
	For j = 1 to 20
    		Forms![Formulaire1]("nom" & i & "_" & j).RowSource = "SELECT Numéro, Nom, Poste, " & Ligue & " FROM Joueurs WHERE poste = '" & Forms![match]("Poste" & i & "_" & j) & "' and " & Ligue & " = '" & Forms![Formulaire1]("player" & i) & "'"
	Next j
Next i

Tu as trouvé tout seul le genre de code auquel je pensais

Merci de mettre le tag «Résolu».
A+