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.

[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

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