[VBA][SQL] code pour requete sql update en vba

Version imprimable

J'ai un problème avec ce morceau de code qui est censé me mettre la valeur d'une requete SQL dans le champ [nb serveurs] de mon formulaire ouvert
Le logiciel m'affiche l'erreur suivante: Erreur de compilation, fonction ou variable attendue.
Code:

1 2 3 4 5 6 7 Sub Nb_serveurs_Click() Dim SQL As String SQL = "SELECT Sum(Serveur.[Nombre de serveur de ce type] FROM Serveur GROUP BY Serveur.[Code Basicat], Serveur.G00R00 HAVING ((Serveur.[Code Basicat])=ME![Code basicat]) AND ((Serveur.G00R00)=ME![G00R00])" Me![Nb serveurs] = DoCmd.RunSQL(SQL) End Sub

23/10/2006, 11h59
loufab

Il y a un mélange entre le code SQL et VBA au niveau des appels formulaires.

((Serveur.[Code Basicat])=" & ME![Code basicat] & ") AND ((Serveur.G00R00)=" & ME![G00R00] & ")"

Dans le cas ou c'est du numérique sinon il faut tripler les double cotes.

Cordialement,
23/10/2006, 13h05
titocv723

Ok merci!
BOn j'ai une nouvelle erreur mais je vais essayer de la résoudre tout seul. Si je bloque je reposterai un message
Merci pour ton aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Nb_serveurs_Click()
 
Dim SQL As String
SQL = "SELECT Sum(Serveur.[Nombre de serveur de ce type]) " & _
        "FROM Serveur " & _
        "GROUP BY Serveur.[Code Basicat], Serveur.G00R00 " & _
        "HAVING (((Serveur.[Code Basicat])=""" & Me![Code basicat] & """) AND ((Serveur.G00R00)=""" & Me![G00R00] & """));"
 
DoCmd.RunSQL (SQL)
 
End Sub

Lorsque je lance l'exécution du code, j'ai un pop up: un action ExecuterSQL nécessite un argument consistant en une instruction SQL"
Quelqu'un a une idée d'où ça peut venir?
Merci

23/10/2006, 14h22
Kloun

Après le runsql, je mettrais plutôt un update, un delete ou un insert, pas un select.
23/10/2006, 14h25
Muhad'hib

Salut,

DoCmd.RunSQL :

Citation:

Envoyé par F1

... Expression chaîne qui correspond à une instruction SQL valide pour une requête action ...

DoCmd.RunSQL c'est pour les requètes MAJ, suppression, création de table ....

Pour manipuler les données de ta requête selection regarde du coté des recordset

Ou, selon ton besoin, regarde aussi dlookup sans passer par une requête.

A+

Merci pour ta réponse en plus ça tombe bien c'est ce que je voulais faire un Update.
Mais du coup au moment où j'essaye d'assigner la valeur du select à la variable de l'update il me le prends pas!
Code:

1 2 3 4 5 6 7 8 Sub Nb_serveurs_Click() Dim SQL As String SQL = "update application set [nb serveurs]= SELECT Sum(Serveur.[Nombre de serveur de ce type]) FROM Serveur GROUP BY Serveur.[Code Basicat], Serveur.G00R00 HAVING (((Serveur.[Code Basicat])= """ & Me![Code basicat] & """ ) AND ((Serveur.G00R00)= """ & Me![G00R00] & """ ));" DoCmd.RunSQL (SQL) End Sub
avec update [table application] set [champs nb serveurs]=somme de ...
TU as une idée de l'erreur que je fais parce que le logiciel m'affiche:"erreur de syntaxe dans l'expression 'SELECT Sum(Serveur.[Nombre de serveur de ce type]) FROM Serveur GROUP BY Serveur.[Code Basicat]'
il s'arrete là (à code basicat) je sais pas pourquoi non plus.
Merci de ton aide

23/10/2006, 15h42
titocv723

Quelqu'un a une idée?
Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Nb_serveurs_Click()
 
Dim SQL As String
SQL = "update application " & _
        "set [nb serveurs]= SELECT Sum(Serveur.[Nombre de serveur de ce type]) " & _
        "FROM Serveur " & _
        "GROUP BY Serveur.[Code Basicat], Serveur.G00R00 " & _
        "HAVING (((Serveur.[Code Basicat])= """ & Me![Code basicat] & """ ) " & _
        "AND ((Serveur.G00R00)= """ & Me![G00R00] & """ ));"
debug.print sql 
currentDB.execute sql, dbfailonerror 
End Sub

Récupère le sql dans la fenêtre de débogage et copie-colle dans une requête, tu pourras plus facilement voir ce qui cloche.

24/10/2006, 09h00
titocv723

J'obtiens:

Code:

update application set [nb serveurs]= SELECT Sum(Serveur.[Nombre de serveur de ce type]) FROM Serveur GROUP BY Serveur.[Code Basicat], Serveur.G00R00 HAVING (((Serveur.[Code Basicat])= "D5R" ) AND ((Serveur.G00R00)= "G02R10" ));

ce qui est bon non?
24/10/2006, 10h20
titocv723
j'ai fait des modifs sur le code.
Maintenant j'ai:
Code:

1 2 strsql = "SELECT Sum([Nb_serveur_de_ce_type]) FROM Serveur " & _ "WHERE (([Code Basicat]= """ & Me![Code basicat] & """ ) AND (G00R00= """ & Me![G00R00] & """ ));"
Mais quand je l'exécute il me sort l'erreur 2342 qui dit que ce n'est pas du SQL.
je fais un debug print et je copie colle le resultat dans un requete : la requete marche et me donne le bon résultat!
Quelqu'un sait d'où ça vient?
Merci
24/10/2006, 14h43
loufab

Bonjour voisin,

Le générateur de requête pratique la correction automatique.

Regarde les différences entre la requête afficher dans le générateur et celle présente dans le code.

Cordialement,
24/10/2006, 15h52
titocv723

Non mais là j'ai beau tout essayer, je vois pas et je pers un peu courage.
Si quelqu'un à n'imorte quoi à me proposer je suis preneur.

j'ai coupé le code en deux morceaux!
Code:

1 2 3 4 5 6 Dim SQL As String SQL = "update application " & _ "set [nb serveurs]= 3" Debug.Print SQL CurrentDb.Execute SQL
Comme ça ça marche le seul problème c'est qu'il me faut remplacer le 3 par la somme d'une variable qui est stockée dans un autre table.
Mais si j'imbrique la somme dans l'update ça marche pas.
le code du compte c'est
Code:

1 2 3 4 "SELECT Sum(Serveur.[Nb_serveur_de_ce_type]) FROM Serveur" & _ "GROUP BY Serveur.[Code Basicat], Serveur.G00R00" & _ "HAVING (((Serveur.[Code Basicat])= """ & Me![Code basicat] & """ ) AND ((Serveur.G00R00)= """ & Me![G00R00] & """ ));"
J'ai toutes les données mais j'y arrive pas
Quelqu'un peu me sortir du pétrain?
Merci

24/10/2006, 17h45
Kloun

Jette un oeil sur l'aide de DSum pour récupérer les données de ton select.