Variable vba sql access

Version imprimable

Bonjour,

Je veux donner une variable vba à une requete update.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Commande0_Click()
 
Annee_courante = Year(Date)
Moi_courant = Month(Date)
Dim var As String
Champ = "Réel à fin " & Annee_courante
 
'Réel
For i = 1 To (Moi_courant - 1) Step 1
        k = Format(i, "00")
        var = "Réel " & Annee_courante & "-" & k
Next i
DoCmd.SetWarnings False
DoCmd.RunSQL " UPDATE Budget SET Champ = var "
DoCmd.SetWarnings False
 
End Sub

Merci de vos réponse !

26/05/2016, 11h20
Mouvii

Bonjour,

Essaie :

Code:

DoCmd.RunSQL " UPDATE Budget SET " & Champ & " = " & var

Enfin, ta "question" est très vague et peu compréhensible, mais je suppose que ça devrait t'aider, sinon reformule ta question.
26/05/2016, 11h22
madefemere

Bonjour,

Comme c'est un variable défini dans ton code VBA, il faut le sortir de l'expression SQL.
La ligne serait :

Code:

DoCmd.RunSQL " UPDATE Budget SET Champ = " & var

Cordialement.
26/05/2016, 11h24
Mouvii

madefemere, comme l'OP a créé et associé une valeur Champ, j'ai supposé que la valeur était le nom du champ. Me serai-je trompé ?
26/05/2016, 11h52
mehdido04

Merci pour vos réponses.
En fait meme Champ est une variable que je calcule en haut.

Donc, en gros

Je veux donner deux variable dans la requete Update (Champ et var)
26/05/2016, 11h53
Mouvii

La solution que j'ai proposée devrait être celle qui correspond alors.
26/05/2016, 12h00
mehdido04

Citation:

Envoyé par Mouvii

La solution que j'ai proposée devrait être celle qui correspond alors.

J'ai essayé ta solution mais ça marche pas !!

Merci
26/05/2016, 12h05
Mouvii
Déclare bien chaque variable.
Code:

1 2 Dim Annee_courante as Integer 'etc.
Et pour le format d'un mois c'est

Code:

Format(i,"mm")

Décrit nous l'erreur que ça te donne à chaque fois aussi.
26/05/2016, 12h08
mehdido04

L'erreur c'est dans cette ligne :

Code:

DoCmd.RunSQL " UPDATE Budget SET " & Champ & " = " & var

L'erreur c'est : "Erreur de syntaxe dans l'instruction Update"
26/05/2016, 13h00
Mouvii

Code:

DoCmd.RunSQL "UPDATE Budget SET " & Champ & " = '" & var & "'"

On y arrivera un jour, peut-être.
26/05/2016, 13h30
mehdido04

ça marche pas non plus :/
26/05/2016, 13h30
Mouvii

Dit nous l'erreur à chaque fois stp.
26/05/2016, 13h36
madefemere

Bonjour tous les deux,

@ Mouvii, ton code est juste. je n'ai pas fait attention au fait que "Champ" était aussi un variable.

@mehdido04 : Pour trouver les erreurs dans les expression SQL en VBA, il faut les écrire avec un Debug.Print dans la fenêtre d'exécution ou un MsgBox. Cela permet de voir l'expression résultante du code :
Fais un

Code:

Debug.Print "UPDATE Budget SET " & Champ & " = '" & var & "'"

Cordialement.

Merci de votre réponse.
J'ai fait le Debug, et j'ai toujours un message d'erreur dans :

Code:

DoCmd.RunSQL "UPDATE Budget SET " & Champ & " = '" & var & "'"

Le message d'erreur est toujours : Erreur de syntaxe dans l'instruction Update.

En fait voila le code que j'éxecute :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Commande0_Click() Annee_courante = Year(Date) Moi_courant = Month(Date) Dim var As String Champ = "Réel à fin " & Annee_courante MsgBox Champ 'Réel For i = 1 To (Moi_courant - 1) Step 1 k = Format(i, "00") var = "Réel " & Annee_courante & "-" & k Next i DoCmd.SetWarnings False Debug.Print "UPDATE Budget SET " & Champ & " = '" & var & "'" DoCmd.RunSQL "UPDATE Budget SET " & Champ & " = '" & var & "'" DoCmd.SetWarnings False End Sub
Quand je l'execute je clique sur debogage, et j'ai comme erreur (ligne jeune) cette ligne :

Code:

DoCmd.RunSQL "UPDATE Budget SET " & Champ & " = '" & var & "'"

Cordialement

26/05/2016, 13h55
madefemere

Re-,

Mais qu'est-ce qui est écrit dans la fenêtre d'exécution de VBE ? Quand le code s'arrête, tu bascules dans l'éditeur VBA et regarde ce qui est écrit dans la fenêtre en bas.
Il faut mettre le Debug.Print avant l'exécution de ta requête.

Cordialement.
26/05/2016, 14h04
mehdido04

1 pièce(s) jointe(s)

C'est écrit :

Code:

UPDATE Budget SET Réel à fin 2016 = Réel 2016-04

Je vous dit mon problem :
En fait j'ai une table Budget comme ça :
Pièce jointe 210879

Elle contient des données et 13 colonnes pour chaque année (de 2012 à 2020)
Je vais prendre un exemple de 2016 :
Donc on a 13 colonnes : "Réel 2016-01" à "Réel 2016-12" et "Somme Réel 2016" qui est la somme des 12 mois.
Moi ce que je veux dans mon code vba :
C'est de faire un update de "Somme Réel 2016" pour faire la somme de tout les mois de 2016.

Voila.
26/05/2016, 15h16
madefemere

Ben voilà plus d'informations !

Ton problème vient du fait que tes noms de champs comportent des espaces. Donc il faut les mettre entre [].
Il ne faut utiliser que les caractères alphanumériques (sans accents) et l'underscore _ pour les noms des objets dans une base de données pour éviter ce genre d'erreurs sournoises.

De plus, on ne pouvait pas savoir que var contenait aussi un nom de champ

Ton code devrait ressembler à

Code:

DoCmd.RunSQL "UPDATE Budget SET [" & Champ & "] = [" & var & "]"

Par contre, je ne vois pas ce que tu dis dans ton code :

Citation:

C'est de faire un update de "Somme Réel 2016" pour faire la somme de tout les mois de 2016.

Tu fais une boucle mais sans "opérations" de cumul ou autre !:aie:

Cordialement.
26/05/2016, 16h12
mehdido04

Merci pour ta réponse, Ca marche.
Je veux faire dans la requete update ça :
Somme Réel 2016 = Réel 2016-01 + Réel 2016-02 + Réel 2016-03 + ... + Réel 2016-12

Et je sais pas comment procéder !!

Merci de ta réponse encore une fois.
26/05/2016, 20h28
madefemere

Bonsoir,

Tu as je crois un problème de conception de ta base de données. A ce que je vois, tu raisonnes comme sur un tableur, fichier Excel.
Le code que tu montres est lancé à partir d'un bouton de commande d'un formulaire. Donc, tu veux lancer cette action dans un formulaire ?
Tu as si j'ai bien compris des "lignes", enregistrements dans ta table. et tu veux que la dernière colonne (le dernier champ) soit le résultat des 12 premiers ? Normalement, une somme calculée n'a pas à être conservée sauf problème de performance.
Si tu travailles sur un formulaire basé sur la même table avec ses 13 colonnes, pourquoi ne pas calculer "directement" la valeur de la dernière colonne en faisant la somme des 12 précédents ??

Cordialement.