Bonjour,

Dans le code ci-dessous, j'ai le INSERT INTO qui me ramème le message suivant :
Erreur d'exécution '3134'

Syntx error in INSERT INTO statement.

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
34
 
Private Sub tables_Click() 
 
    Dim oRst As DAO.Recordset 
    Dim strTo As String 
    Dim oTable As Variant 
    Dim oEnr As Variant 
 
    'Ouvre un recordset sur les dossiers incomplets 
    Set oRst = CurrentDb.OpenRecordset("SELECT * FROM Dossiers_incomplets") 
 
    'Boucle sur chaque numéro de magasin 
    While Not oRst.EOF 
        Set oEnr = oRst.Fields("REF") 
        If oEnr <> "" Then 
            'Création de la table temporaire 
            DoCmd.RunSQL "CREATE TABLE Temp " _ 
            & "(REF CHAR, CA CHAR, CF TEXT, FAM TEXT, FRS TEXT, DES
TEXT, REFF TEXT, CSM TEXT, ARF TEXT, PDD TEXT, IMEI TEXT);" 
            'Renommer Table Temporaire par Num Mag 
            DoCmd.Rename "" & oEnr & "_Dossiers_RR_Cogedem", acTable, "Temp" 
            'Récupère le nom de la table 
            oTable = "" & oEnr & "_Dossiers_RR_Cogedem" 
            'Copie les enregistrements du magasin dans la nouvelle table 
            DoCmd.RunSQL "INSERT INTO " & oTable & "" _ 
                & "SELECT *  " _ 
                & "FROM Dossiers_incomplets WHERE REF='" & oEnr & "';" 
            'Supprime les enregistrements du magasin dans table Dossiers_incomplets 
            DoCmd.RunSQL "DELETE * FROM " _ 
                & "Dossiers_RR_Cogedem WHERE WHERE REF='" & oEnr & "';" 
        End If 
    Wend 
 
End Sub
Pouvez-vous m'indiquer où se trouve mon erreur ?

J'ai une doute sur la table de réception car les deux premier champs devrait être en numérique mais je ne trouve pas le type de donnée qu'il faut mettre.

Merci,

LeRico