Erreur de compilation et de syntaxe

**accessgalérien** · 20/08/2014, 16h20

Bonjour

et bonnes vacances pour les aoûtiens =)

Je requière votre aide car je tourne depuis quelques jours dessus et je ne trouve pas de solutions.

En faite, je sélectionne une ligne de ma zone de liste (Liste62) et sur un bouton (Commande 68) au click, j'aimerai faire un
ajout de cet enregistrement dans une table d'archive que j 'ai crée, puis effectue un update et supprime l'enregistrement dans la table d'origine.
J'ai testé la requête delete qui fonctionne par contre ça ne fonctionne pas sur les 2 premières requêtes (insert et update)

1.J'ai une "erreur de compilation: Sub ou Function non définie" sur la requête insert into
2.J'ai aussi une "erreur de syntaxe dans l'instruction UPDATE" sur la requête Update

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
26
27
28
29
30
31
32
33
 
Private Sub Commande68_Click()
On Error GoTo Err_Commande68_Click
    Dim Requete As String
    Dim Dtbase As DAO.Database
    Set Dtbase = CurrentDb()
    If IsNull(Liste62.Column(0)) Then
        MsgBox ("Aucune ligne n'a été sélectionnée")
    Else
    'ajout de la sélection dans la table archivage
    Requete = (" INSERT INTO Archivage " _
    & "([Libellé Projet], [Date de clôture])" _
    & " SELECT Projets.[Libellé Projet]," _
    & " Opérations.[Date de clôture]" _
    & " FROM Opérations INNER JOIN Projets ON Opérations.Projet = Projet.Clé;")
    WHERE clé = " & Liste62.Column(0) & """
    Dtbase.Execute (Requete)
    'maj/calcul du Montant réajustement
    Requete = " UPDATE Dossiers SET (Dossiers.[Montant enveloppe] - [Echéancier opérations].Montant) Where Clé = " & Liste62.Column(0) & ""
    Dtbase.Execute (Requete)
    'suppression de la table d'origine
    Requete = "DELETE * FROM Opérations WHERE Clé = " & Liste62.Column(0) & ""
    Dtbase.Execute (Requete)
    'rafraichissement de la liste de sélection
        Me.Refresh
        Me.Liste62.Requery
    End If
Exit_Commande68_Click:
    Exit Sub
Err_Commande68_Click:
    MsgBox Err.Description
    Resume Exit_Commande68_Click
End Sub

Merci d'avance de votre aide.

**zoom61** · 21/08/2014, 08h00

Voici quelque piste :

Liste62.Column(0) est de quel genre numérique ou alphanumérique
dans Projet.Clé et Clé, il me semble qu'il faut [Clé], car il y a un accent

**accessgalérien** · 21/08/2014, 09h28

rebonjour,

J'ai mis les crochets sur clé mais ça ne change rien , j'ai toujours la même erreur.

plus précisément l'erreur pointe sur le where de :

Code :

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

WHERE [clé] = " & Liste62.Column(0) & """

Liste62.Column(0) est de quel genre numérique ou alphanumérique

--> est de type numérique, c'est la première colonne de ma liste :clé (numauto)

need help

**zoom61** · 21/08/2014, 10h06

Cela devrait être :

Code :

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

1
2
3
4
5
6
Requete = (" INSERT INTO Archivage " _
    & "([Libellé Projet], [Date de clôture])" _
    & " SELECT Projets.[Libellé Projet]," _
    & " Opérations.[Date de clôture]" _
    & " FROM Opérations INNER JOIN Projets ON Opérations.Projet = Projet.Clé " _
    & "WHERE clé = " & Liste62.Column(0)

**accessgalérien** · 21/08/2014, 16h10

re,

malheureusement ça ne passe tjrs pas, j'ai essayé ton code, il y avait quelques soucis de syntaxe , mais ça me donne maintenant

Code :

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

1
2
3
4
5
6
Requete = " INSERT INTO Archivage " _
    & "([Libellé Projet], [Date de clôture])" _
    & " SELECT Projets.[Libellé Projet]," _
    & " Opérations.[Date de clôture]" _
    & " FROM Opérations INNER JOIN Projets ON Opérations.Projet = Projets.Clé " _
    & "WHERE Opérations.Clé = " & Liste62.Column(0) & ""

avec cet erreur: "trop peu de paramètres. 1attendu" ...

je m'arrache les cheveux la...

**zoom61** · 22/08/2014, 07h26

Que donne le msgbox :

Code :

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

1
2
3
4
5
6
7
Requete = " INSERT INTO Archivage " _
    & "([Libellé Projet], [Date de clôture])" _
    & " SELECT Projets.[Libellé Projet]," _
    & " Opérations.[Date de clôture]" _
    & " FROM Opérations INNER JOIN Projets ON Opérations.Projet = Projets.Clé " _
    & "WHERE Opérations.Clé = " & Liste62.Column(0) & ""
Msgbox Requete

**accessgalérien** · 22/08/2014, 09h39

rebonjour,

le msgbox donne comme réponse:

Nom : msgbox.JPG
Affichages : 206
Taille : 18,3 Ko

**zoom61** · 22/08/2014, 09h57

Ta requête est correcte

Opérations.Projet et Projets.Clé sont-ils de même type ?

Et idem pour les champs suivants :

Archivage.[Libellé Projet] et Projets.[Libellé Projet] ;
Archivage.[Date de clôture] et Opérations.[Date de clôture].

**accessgalérien** · 22/08/2014, 10h31

re,

j'ai vérifié les types des différents champs:

Opérations.Projet et Projets.Clé sont-ils de même type ?

Opérations.Projet --> numérique
Projets.Clé-->numeroAuto

Archivage.[Libellé Projet] et Projets.[Libellé Projet] ;

Archivage.[Libellé Projet] -->texte
Projets.[Libellé Projet]-->texte

Archivage.[Date de clôture] et Opérations.[Date de clôture].

Archivage.[Date de clôture]-->Date/heure
Opérations.[Date de clôture]-->Date/heure

**zoom61** · 22/08/2014, 10h35

Est-il possible d'avoir une modèle de la base ?

Par que là, je ne vois pas

**accessgalérien** · 22/08/2014, 10h57

oui bien sur

je vous ai envoyé ça en mp

**zoom61** · 22/08/2014, 13h16

Je viens de trouver l'erreur, tu as mis :

Code :

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

Opérations.[Date de clôture]

alors que c'est :

Code :

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

Opérations.[Date de cloture]

C'est pour cela qu'il est préférable de ne pas utiliser les accents et les espaces dans le nom des champs

**accessgalérien** · 22/08/2014, 14h34

OMG

tout ça à cause d'un chapeau en trop...

merci encore zoom61

une épine d'enlevée.

par contre, l'erreur de syntaxe sur l'instruction UPDATE , tu as une idée?

**zoom61** · 22/08/2014, 15h39

Ton update devrait plutôt être :

Code :

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

1
2
3
UPDATE Dossiers
SET Dossiers.[Montant enveloppe] = (select [Echéancier opérations]!Montant FROM [Echéancier opérations] 'peut un where)
WHERE Dossiers.Clé=200;

**accessgalérien** · 22/08/2014, 16h13

je me suis trompé sur ma requête, c'est plutôt quelque chose comme ça:

Code :

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

1
2
3
'maj/calcul du Montant réajustement
    Requete = " UPDATE Dossiers SET (Dossiers.[Montant réajustement] = Dossiers.[Montant enveloppe] - [Echéancier opérations].Montant) 
    Where Opérations.Clé = " & Liste62.Column(0) & ""

car il y a un soustraction qui se fait pour calculer le [Montant réajustement] dans la table Dossiers

**zoom61** · 22/08/2014, 20h55

Tu fais appel à une seconde table, donc un update ne fonctionne qu'avec une table, il faut donc partir sur le principe que je t'ai donné et faire une sous-requête pour avoir le résultat.

**accessgalérien** · 26/08/2014, 13h23

re

merci pour ton soutien, j'ai modifié ma requête incluant donc une sous requête mais voila que:

Code :

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

1
2
3
4
5
6
7
8
Requete = " UPDATE Dossiers SET Dossiers.[Montant réajustement]= " _
    & " (Dossiers.[Montant enveloppe]  - (Sélect [Echéancier opérations].Montant " _
    & " FROM [Echéancier opérations] INNER JOIN Opérations ON [Echéancier opérations]" _
    & " WHERE [Echéancier opérations].Opération = Opérations.Clé)) " _
    & " WHERE (Sélect Opérations.Clé FROM Dossiers INNER JOIN Opérations ON Dossiers.Clé = Opérations.Clé)" _
    & " = " & Liste62.Column(0) & """"
    MsgBox Requete
    Dtbase.Execute (Requete)

erreur: opérateur manquant et quand je mets le - entre " - ", ça me mets "type incompatible" pourtant sur le calcul donne :
monétaire = monétaire - numérique
ça devrait passer non?

je bloque

**zoom61** · 26/08/2014, 13h39

Cela ne serait-il pas plutôt :

Code :

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

1
2
3
4
5
6
7
8
Requete = "UPDATE Dossiers SET Dossiers.[Montant réajustement]= " _
    & "(Dossiers.[Montant enveloppe] - (" _
    & "Sélect [Echéancier opérations].Montant " _
    & "FROM [Echéancier opérations] " _
    & "INNER JOIN Opérations " _
    & "ON [Echéancier opérations].Opération = Opérations.Clé " _
    & "WHERE [Echéancier opérations].Opération = " & Liste62.Column(0) & ")) " _
    & "WHERE Opérations.Clé = " & Liste62.Column(0)

**accessgalérien** · 26/08/2014, 13h48

en effet, c'est plus propre comme ça mais

toujours: erreur "opérateur absent", il ne voit pas le - , j 'ai l impression

**zoom61** · 26/08/2014, 13h51

Quel est le résultat de cette requête :

Code :

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

1
2
3
4
5
Sélect [Echéancier opérations].Montant " _
    & "FROM [Echéancier opérations] " _
    & "INNER JOIN Opérations " _
    & "ON [Echéancier opérations].Opération = Opérations.Clé " _
    & "WHERE [Echéancier opérations].Opération = " & Liste62.Column(0)

Erreur de compilation et de syntaxe

IHM

Discussions similaires

Partager

Partager