Discussion :

[GreatTeacherOnizuka]

Bonjour,

J'aurais besoin d'aide pour créer une variable "dynamique", en fait je veux qu'elle soit créé en fonction des variables présentes dans mon champs et qu'elles soient séparées par un point virgule.

Début de code:

Code :

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

1
2
3
4
5
6
 
 ValueField = rec.Fields(J + 1).SourceField
TableName = rec.Fields(J + 1).SourceTable
StrSQL1 = "select " & ValueField & " from " & TableName
'Set Requete_Selection = Db.QueryDefs(StrSQL1)
chaine_charactères_construite_dynamiquement= "Les valeurs de la requête SQL séparées par un point virgule"

[GreatTeacherOnizuka]

Voilà ce que j'ai essayé de faire mais j'ai une erreur de compilation:

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
 
 ValueField = rec.Fields(J + 1).SourceField
TableName = rec.Fields(J + 1).SourceTable
StrSQL1 = "select" & ValueField & " from " & TableName
Set Requete_Selection = Db1.QueryDefs(StrSQL1)
Set Rec_Selection = Requete_Selection.OpenRecordset
 
 
chaine_charactères_construite_dynamiquement = Null
 
  Do While Not Rec_Selection.EOF
chaine_charactères_construite_dynamiquement = chaine_charactères_construite_dynamiquement + ";" + Rec_Selection.Fields(J + 1).Name
    Rec_Selection.MoveNext
 
Loop

Mais j'ai une erreur déjà sur le:

Code :

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

Set Requete_Selection = Db1.QueryDefs(StrSQL1)

Merci d'avance, j'espère que vous pourrez me débloquer.

[paidge]

Mets un peu plus de détails sur ton code car on ne sait pas comment tu as déclaré ou instancié certaines variables. Par exemple Db1 devrait être déclarée et instanciée comme ceci a priori :

Code :

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

1
2
Dim Db1 As DAO.Database
Set Db1 = CurrentDb

[GreatTeacherOnizuka]

Voici en gros les déclarations, nous sommes dans une boucle for, je ne peux pas mettre tout le code car il est assez imposant, mais voilà la partie qui m'intéresse.

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
Dim StrSQL1 As String
 Dim Requete_Selection As DAO.QueryDef
Dim Rec_Selection As DAO.Recordset
 Dim Db1 As DAO.Database
Set Db1 = CurrentDb
 
 
 ValueField = rec.Fields(J + 1).SourceField
TableName = rec.Fields(J + 1).SourceTable
StrSQL1 = "select" & ValueField & " from " & TableName
Set Requete_Selection = Db1.QueryDefs(StrSQL1)
Set Rec_Selection = Requete_Selection.OpenRecordset
 
 
chaine_charactères_construite_dynamiquement = Null
 
  Do While Not Rec_Selection.EOF
chaine_charactères_construite_dynamiquement = chaine_charactères_construite_dynamiquement + ";" + Rec_Selection.Fields(J + 1).Name
    Rec_Selection.MoveNext
Loop

[paidge]

Excuse-moi, j'aurais du voir tout de suite ce qui n'allait pas mais j'étais en mode "pressé" :p
Quand tu utilises :

Code :

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

Set Requete_Selection = Db1.QueryDefs("nomDeMaRequete")

C'est pour ouvrir une requête existante (ici nomDeMaRequete)
Pour ouvrir une requête à partir d'une chaîne SQL, il faut faire :

Code :

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

Set Requete_Selection = Db1.OpenRecordset("SELECT * FROM maTable")

[GreatTeacherOnizuka]

Merci cela a permis de résoudre mon problème.