Access pb de requete

Question

Bonjour, J'ai un ptit souci ma requete SQL J'ai une erreur de syntaxe dans ma classe FROM et je ne vois pas pourquoi. Si quelqu'un peut m'aider je le remercie d'avance

Private Sub Commande13_Click()
On Error GoTo Err_Commande13_Click
Dim m As String
Dim a As String
Dim nomTable As String
Dim nomClasseur As String
Dim SQL As String
Dim d As String
m = Me!mois
a = Me!année
d = a & m
DoCmd.SetWarnings False
nomClasseur = "D:\Eric\dossier_projets\TDB\PJPF\PJPF2007-" & a & m & ".xls"
nomTable = "TableTest" & a & m
DoCmd.TransferSpreadsheet acImport, , nomTable, nomClasseur, 0
'Définir la requête
SQL = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, année) " & _
"SELECT OPPO, MPE, MPF, MRE, MRF, M__, " & d & " AS année " & _
"FROM" & name & _
"WHERE CBQD=""total"" AND MOIS=""total"" AND CMOP=""total"";"
'Exécuter la requête
CurrentDb.Execute SQL
Exit_Commande13_Click:
Exit Sub
Err_Commande13_Click:
MsgBox Err.Description
Resume Exit_Commande13_Click
End Sub

cs_Exploreur · Answer

Salut, Essaye cela :

Sql = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, année) " & _ "SELECT OPPO, MPE, MPF, MRE, MRF, M__, " & d & " AS année " & _ "FROM " & Name & "" & _ "WHERE CBQD=""total"" AND MOIS=""total"" AND CMOP=""total"";"

A+ Exploreur Linux a un noyau, Windows un pépin

jrivet · Answer

Salut,
Peu être qu'en passant par un recordset, tu ne peux pas faire ceci.
Il te faut peu être faire une SELECT ET SEULEMENT APReS un INSERT INTO .... VALUES ....

@+: Ju£i?n
Pensez: Réponse acceptée

cavo789 · Answer

Comme indiqué par Darksidious, il faut penser à mettre un espace après le mot FROM sinon VB va concaténer FROM et le nom de la table.

Christophe

darkspoilt · Answer

Merci ce code s'écécute mais plusieur fois je retrouve les meme données et je ne sais pas pourquoi voila le code complet et je ne sais pas s'ou ca vient
merci d'avance


Private Sub Commande13_Click()
    On Error GoTo Err_Commande13_Click
   
    Dim m As String
    Dim a As String
    Dim nomTable As String
    Dim nomClasseur As String
    Dim SQL As String
    Dim d As String
       
    m = Me!mois
    a = Me!année
    d = a & m
    
    DoCmd.SetWarnings False


    nomClasseur = "D:\Eric\dossier_projets\TDB\PJPF\PJPF2007-" & a & m & ".xls"
    nomTable = "TableTest" & a & m
   
    DoCmd.TransferSpreadsheet acImport, , nomTable, nomClasseur, -1


    'd = "2006_T3"
    'nomTable = "PJPF2006_T3"
    
    'Définir la requête
SQL = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, [année]) " & _
    "SELECT OPPO, MPE, MPF, MRE, MRF, M__, """ & d & """ AS [année] " & _
    "FROM " & nomTable & _
    " WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"


    'Exécuter la requête
    CurrentDb.Execute SQL




Exit_Commande13_Click:
    Exit Sub
Err_Commande13_Click:
    MsgBox Err.Description
    Resume Exit_Commande13_Click
End Sub

cavo789 · Answer

Tu fais un INSERT INTO aussi je me demande si tu n'as pas lancé ton code plusieurs fois; tout bêtement.

Si pas, est-ce que les données en double se trouvent déjà dans ta table de base ?   Si oui, soit il faut cleaner cette table-là soit faire une requête type SELECT DISTINCT 

Christophe

darkspoilt · Answer

J'ai trouvé le probleme cela se passe lros de mon import soit il faudrait que je vérifie l'existance de ma table soit j'écrase mon ancienne table mais je ne connais pas les méthode pour faire cela

cavo789 · Answer

Supprimer ton ancienne table : une façon parmis d'autre; en SQL,  "DROP TABLE [" & nomTable & "]"

Christophe

chaibat05 · Answer

Salut,
étant donné que les champs des deux tables o,t le même alias, il doit savoir
de quels champ il s' agit :
Dans la partie SELECT ou tu énumère les champs à ajouter tu  prcèder
le nom du champ par le nom de la table (  & nomTable &  "'![LeChp]) 
Tu t' es compliqué la tache en mettant le nom de la table dans une variable.

<hr />® l l i n g , l' agité du bocal : 
   Etre une heure, une heure seulement..Rien qu' une heure,
   Vert, vert, vert et beau à la foooooooooooooooooooooooois.

chaibat05 · Answer

Sql = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, année) " & _
    "SELECT ['" & Name & "']![OPPO, MPE], ['" & Name & "']![MPE]...etc
    "FROM " & Name & "" & _

<hr />

chaibat05 · Answer

Pardon
'" & Name & "']![OPPO], 
Copier/Coller raté !

<hr />.

darkspoilt · Answer

est ce que c'est possible de voir s'il est existe au préalable?? quel est la méthode??

chaibat05 · Answer

et avant de faire une nouvelle insertion tu fais
"DELETE * FROM " & nomTable & _
    " WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"

<hr />.

chaibat05 · Answer

NON NON ! c' est 

"DELETE * FROM test" & _
    " WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"
je vais me coucher 

<hr />.

darkspoilt · Answer

oui mais si la table est éffectuer la premiere fois test ne comtien rien encore pour le moment ca va surment planter non??

pseudoOM · Answer

Salut,
non il n'y aura pas d'erreur si la table est vide. C'est juste qu'il ne trouvera rien et donc il n'effacera rien. C'est comme si tu fesais un Select et qu'il ne te retourne rien, il n'y a pas d'erreur pour autant.

 pseudoOM

chaibat05 · Answer

Pas du tout !
s' il ne trouve rien , c' est donc rie à supprimer...
il ne va rien faire et tu ne t' en aperceveras même pas.

<hr />

chaibat05 · Answer

Salut pseudo
post croisé !
le "pas du tout" est adressé à dark.
.

<hr />.

darkspoilt · Answer

Sinon je peux pas juste vérifier l'existence de la table et éviter l'import si elle existe c'est pas plu simple??

chaibat05 · Answer

alors au préalable tu fais :
"SELECT * FROM test" & _
    " WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"

S' il te renvoie queques chose, c' es donc que ls enregistrements en question existent déjà,Sion tu procèdes à l' insertion

.

darkspoilt · Answer

En VBA c'est possible?? car la je devrais avoir recour a un recordset or j'aimerais évité.

darkspoilt · Answer

Voila mon code mais il fonctionne pas et je ne saispa s pourquoi les doublon sont toujorus la

Option Explicit


Private Sub Commande13_Click()
    On Error GoTo Err_Commande13_Click
   
    Dim m As String
    Dim a As String
    Dim nomTable As String
    Dim nomClasseur As String
    Dim SQL As String
    Dim d As String
    Dim cat As New ADOX.Catalog
       
    m = Me!mois
    a = Me!année
    d = a & m
    
    DoCmd.SetWarnings False


    nomClasseur = "D:\TEST\PJPF2007-" & a & m & ".xls"
    nomTable = "TableTest" & a & m


    If Not ExisteTable("nomTable") Then
    DoCmd.TransferSpreadsheet acImport, , nomTable, nomClasseur, -1
    End If
    'd = "2006_T3"
    'nomTable = "PJPF2006_T3"
    
    'Définir la requête
    SQL = "INSERT INTO Test ( OPPO, MPE, MPF, MRE, MRF, M__, [année]) " & _
    "SELECT OPPO, MPE, MPF, MRE, MRF, M__, """ & d & """ AS [année] " & _
    "FROM " & nomTable & _
    " WHERE CBQD='total' AND MOIS='total' AND CMOP='total';"


    'Exécuter la requête
    CurrentDb.Execute SQL


Set cat = Nothing
Exit_Commande13_Click:
    Exit Sub
Err_Commande13_Click:
    MsgBox Err.Description
    Resume Exit_Commande13_Click
End Sub


Function ExisteTable(ByVal strTabl As String) As Boolean
    Dim str As String
    On Error GoTo err01
    str = CurrentDb.TableDefs(strTabl).name
    ExisteTable = True
    Exit Function
err01:
    Select Case Err.Number
        Case 3265
            ExisteTable = False
    End Select
End Function

chaibat05 · Answer

re salut
Je ne sais pas si ça va changer quelque chose;
mais pour vérifier si ta table éxiste


Function ExisteTable(strTabl As String) As Boolean
 Dim tblCount As Integer, i as inger
 tblCount=CurrentDb.TableDefs.Count
  For i=0 To tblCount
   If CurrentDb.TableDefs(i).Name=strTabl Then
     ExisteTable=True
     Exit For
  End If
Next


End Function













.

darkspoilt · Answer

Ta fonction m'affiche une fenetre Element non trouvé dans la collection et du coup il ne veut pas continuer l'éxécution de mon code.
Est-ce normal??

pseudoOM · Answer

oui c'est normal chaibat à fait une petite erreur.
Dim tblCount As Integer, i as integer
Je pense que c'est là que ça bloque.

Bonne chance pour la suite !

 pseudoOM

darkspoilt · Answer

C'est bon j'ai résolu le probleme

pseudoOM · Answer

Et quel était-il si je peux savoir ?

 pseudoOM

chaibat05 · Answer

Salut tout le monde,
Salut pseudom,

Sûrement For i=0 To tblCount -1

<hr />

Access pb de requete

27 réponses

Votre réponse

Discussions similaires