Discussion :

[titocv723]

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 :

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

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

[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,

[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.

[titocv723]

Code :

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

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

[Kloun]

Après le runsql, je mettrais plutôt un update, un delete ou un insert, pas un select.

[Muhad'hib]

Salut,


DoCmd.RunSQL :

... 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+

[titocv723]

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 :

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

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

[titocv723]

Quelqu'un a une idée?
Merci

[Kloun]

Code :

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

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.

[titocv723]

J'obtiens:

Code :

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

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?

[titocv723]

j'ai fait des modifs sur le code.
Maintenant j'ai:

Code :

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

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

[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,

[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.

[titocv723]

j'ai coupé le code en deux morceaux!

Code :

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

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 :

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

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

[Kloun]

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