Paramétrage d'une requête SQL sous VB

Version imprimable

Bonjour,

Dans un code VB, j'ai cette requête qui fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
strSql = "INSERT INTO Devis (NumDevis,IdProjetSPC,Taille,Ind_BTW,Ind_BTX,Ind_BTZ,Type,Domaine,Action,Indicateur,Nombre ) VALUES (" & _
                "'" & Me.NumDevis & "'" & "," & _
                "'" & Me.idProjet & "'" & "," & _
                "'" & Me.Taille & "'" & "," & _
                Me![Onglet Projet].Form!BTW & "," & _
                Me![Onglet Projet].Form!BTX & "," & _
                Me![Onglet Projet].Form!BTZ & "," & _
                "'" & Me![Onglet Projet].Form!TypeDevis & "'" & "," & _
                "'" & DomAct & "'" & "," & _
                "'" & Action & "'" & "," & _
                Me![Onglet Projet].Form![Onglet-Architecture].Form![IND-ASR] & "," & _
                Me![Onglet Projet].Form![Onglet-Architecture].Form![NB-ASR] & _
                ");"
 
    dbBdeD.Execute strSql, dbFailOnError

Afin de pouvoir itérer sur cette requête et faire évoluer la construction de la requête en fonction de l'évolution du nom des champs, Je voudrai intégrer des variables dans la requête. J'ai donc testé ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DomAct = "AA"
    Action = "ASR"
    IND = "Me![Onglet Projet].Form![Onglet-Architecture].Form![IND-" & Action & "]"
    NB = "Me![Onglet Projet].Form![Onglet-Architecture].Form![NB-" & Action & "]"
 
    strSql = "INSERT INTO Devis (NumDevis,IdProjetSPC,Taille,Ind_BTW,Ind_BTX,Ind_BTZ,Type,Domaine,Action,Indicateur,Nombre ) VALUES (" & _
                "'" & Me.NumDevis & "'" & "," & _
                "'" & Me.idProjet & "'" & "," & _
                "'" & Me.Taille & "'" & "," & _
                Me![Onglet Projet].Form!BTW & "," & _
                Me![Onglet Projet].Form!BTX & "," & _
                Me![Onglet Projet].Form!BTZ & "," & _
                "'" & Me![Onglet Projet].Form!TypeDevis & "'" & "," & _
                "'" & DomAct & "'" & "," & _
                "'" & Action & "'" & "," & _
                IND & "," & _
                NB & _
                ");"
 
    dbBdeD.Execute strSql, dbFailOnError

Mon problème est que, dans les paramètres IND et NB, il récupère la chaine de caractère et non pas la valeur du champ correspondant.
Comment faire pour récupérer cette valeur ?

Merci d'avance pour votre aide.

Avec un Eval ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    DomAct = "AA"
    Action = "ASR"
    IND = eval("Me![Onglet Projet].Form![Onglet-Architecture].Form![IND-" & Action & "].value")
    NB = eval("Me![Onglet Projet].Form![Onglet-Architecture].Form![NB-" & Action & "].value")
 
    strSql = "INSERT INTO Devis (NumDevis,IdProjetSPC,Taille,Ind_BTW,Ind_BTX,Ind_BTZ,Type,Domaine,Action,Indicateur,Nombre ) VALUES (" & _
                "'" & Me.NumDevis & "'," & _
                "'" & Me.idProjet & "'," & _
                "'" & Me.Taille & "'," & _
                Me![Onglet Projet].Form!BTW & "," & _
                Me![Onglet Projet].Form!BTX & "," & _
                Me![Onglet Projet].Form!BTZ & "," & _
                "'" & Me![Onglet Projet].Form!TypeDevis & "'," & _
                "'" & DomAct & "'," & _
                "'" & Action & "'," & _
                IND & "," & _
                NB & _
                ");"
 
    dbBdeD.Execute strSql, dbFailOnError

sinon un truc du genre :

Code:

1
2
3
 
IND = Me![Onglet Projet].Form![Onglet-Architecture].Forms("""IND-" & Action & """)"
NB = Me![Onglet Projet].Form![Onglet-Architecture].Forms("""NB-" & Action & """)"

02/09/2009, 15h36
denisw95

Merci pour vos réponses.

Kloun, j'avais déjà essayé avec la fonction EVAL mais j'ai un message d'erreur diant "Impossible de trouver le "Me" entré dans l'expression"

psykodumarteau, j'ai une erreur avec les " et ) et en final, en essayant de corriger, je reviens à ma chaine de caractère décrivant le champ et que je ne sais pas translater vers la valeur du champ
03/09/2009, 10h52
Jean-Philippe André

salut,
et avec une syntaxe plutôt comme ceci :

Code:

IND = Me![Onglet Projet].Form![Onglet-Architecture].Controls("IND-" & Action )

?
03/09/2009, 11h42
denisw95

ça marche, super merci
03/09/2009, 11h55
Jean-Philippe André

si tout est OK, pense au tag :resolu: