Discussion :

[Glherbier]

Bonjour,

Alors ça fait quelques messages que je laisse sur le forum, toujours pour ma création de planning, et mon cheminement avance, je tente ici de coder un bouton de rafrachissement d'horaires dans une table en VBA.
Malheureusement Access ne veut même pas compiler. Pourtant j'ai lu plusieurs tuto, faq et je ne trouve pas mon erreur ! (apparamment elle se trouve sur la ligne ci-dessous commençant par "UPDATE", access me dit : "Erreur de compilation, attendu : fin d'instruction").
J'arrive à la fin de mon projet ça serait vraiment bien si quelqu'un pouvait me corriger ce code vite fait!
Merci beaucoup!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Commande100_Click()
On Error GoTo Err_Commande100_Click
 
Dim NomAffaire As String
Dim H_en_plue As Long
 
'' Récupère les valeurs entrées par l'utilisateur, à savoir le nom de l'affaire et le nombre d'heures effectuées par l'ouvrier
 
NomAffaire = Affaire.Value
H_en_plus = Heures
 
'' Met à jour la base de donnée
 
UPDATE T_Affaire SET Nb_h_ecoule=Nb_h_ecoule+H_en_plus WHERE T_Affaire.Numero_Affaire=NomAffaire WITH OWNERACCESS OPTION;
 
 
Exit_Commande100_Click:
    Exit Sub
 
Err_Commande100_Click:
    MsgBox Err.Description
    Resume Exit_Commande100_Click
 
End Sub

Quelques types : Affaires est une liste déroulante dans un formulaire basé sur une table, mais qui n'est pas la table "T_Affaire"

[Invité]

Bonjour

Tu ne peux lancer une requête de mise à jour de la sorte, il faut utiliser la méthode : Docmd.Runsql

Regardes dans l'aide Access pour avoir la syntaxe complète et un exemple.

Starec

[marcuscircus]

Comme l'a dit Starec, il faut utiliser docmd.runsql pour executer ta requete !

Si je peux te donner un conseil, quand tu crées un bouton, prends l'habitude de le renommer, c'est beaucoup plus propre que d'avoir commande100, ... !

[Glherbier]

Ok j'ai changé mon code je vous le met ci-dessous en intégralité (ça marche pas encore mais ça avance, je m'explique en bas de page...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Commande100_Click()
On Error GoTo Err_Commande100_Click
 
Dim NomAffaire As String
Dim H_en_plue As Long
Dim SQL As String
 
'' Récupère les valeurs entrées par l'utilisateur, à savoir le nom de l'affaire et le nombre d'heures effectuées par l'ouvrier
 
NomAffaire = Affaire.Value
H_en_plus = Heures
 
'' Met à jour la base de donnée
 
SQL = "UPDATE T_Affaire" & _
        "SET T_Affaire.Nb_h_ecoule= T_Affaire.Nb_h_ecoule + H_en_plus" & _
        "WHERE T_Affaire.Numero_Affaire= NomAffaire"
 
DoCmd.RunSQL SQL
 
Exit_Commande100_Click:
    Exit Sub
Err_Commande100_Click:
    MsgBox Err.Description

La compilation passe, c'est déjà ça ^^
Par contre quand j'appuie sur ce bouton (dont je changerais le nom à l'avenir c'est vrai que c'est plus clair marcuscircus), access me dit "Erreur de syntaxe dans l'instruction UPDATE"

Il est possible que ce soit parce que le formulaire ne découle pas de la table que je veux modifier et donc qu'il faut utiliser l'instruction IN non ? Mais je ne trouve pas comment utiliser "IN" sur l'aide. Enfin bon c'est peut-être pas ça je ne sais pas trop...

Vous avez un avis?

[Glherbier]

It works!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Commande100_Click()
On Error GoTo Err_Commande100_Click
 
Dim NomAffaire As String
Dim H_en_plue As Long
Dim SQL As String
 
'' Met à jour la base de donnée
 
SQL = "UPDATE T_Affaire SET T_Affaire.Nb_H_ecoule= T_Affaire.Nb_H_ecoule + Heures WHERE T_Affaire.Numero_Affaire= Affaire.Value"
 
DoCmd.RunSQL SQL
 
 
Exit_Commande100_Click:
    Exit Sub
Err_Commande100_Click:
    MsgBox Err.Description
    Resume Exit_Commande100_Click
 
End Sub