Erreur d'exection "3134"Résolu

Question

bonjour ;

j'ai une 
Erreur d'exection "3134"

Erreur de synthaxe dans l'instruction "INSERT INTO" .

mon code est le suivant 

PublicSub test_iteration()
Dim Mba As Database, TabTempo As DAO.Recordset, NumId AsVariant
 
 
Set Mba = CurrentDb()
Set TabTempo = Mba.OpenRecordset("Temporary_Table")

 
DoUntil TabTempo.EOF
'insertion dans la LegalEntity l'enregistement en cour de TabTempo
     Sql1 = "INSERT INTO LegalEntity(Country, unit, plant) Values (" & TabTempo("Country") & ", " & TabTempo("unit") & ", " & TabTempo("plant") & ")"
     DoCmd.RunSQL Sql1

      TabTempo.MoveNext
Loop

EndSub
 

je developpe en Access .

MERCI .

cs_Exploreur · Accepted Answer

Salut,

Essaye comme cela ta requête :

Sql1 = "INSERT INTO LegalEntity(Country, unit, plant) Values ('" & TabTempo("Country") & "', '" & TabTempo("unit") & "', '" & TabTempo("plant") & "')"

A+
Exploreur

 Linux a un noyau, Windows un pépin

skillipo · Answer

Merci ca fonctionne .

je t'explique ma situation : j'ai 3table et 3 requetes .
Sql1 = "insert into  tab1..........."
Sql2 = "insert into tab2..........."
Sql3 = insert into tab3 ..........."

je voudrais recuperer l'Id de la "tab1" et le mettre en clé étrangere dans 

Merci

skillipo · Answer

Merci ca fonctionne .

je t'explique ma situation : j'ai 3table et 3 requetes .
Sql1 = "insert into  tab1..........."
Sql2 = "insert into tab2..........."
Sql3 = insert into tab3 ..........."

je voudrais recuperer l'Id de la "tab1" et le mettre en clé étrangere dans
"tab2" et pareil entre "tab2" et "tab3". 

Merci

cs_Exploreur · Answer

Re,

Je suis comme toi, en ce moment j'essaye de comprendre certaines choses(comme ta deuxième question), donc je ne saurais quoi de dire sauf une "bêtise"...je ne sais pas..

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_slayer07 · Answer

Bonjour, je veux mettre à jour une table access avec un fichier xls et dès que je clic sur mon bouton j'ai une erreur d'execution 3134.
voici mon code
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
Dim i As Integer
Dim cSQL
 
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("C:\oslr.10\Lslsin 27-BY - Base Technique PDR.xls")
Set oWSht = oWkb.Worksheets("Application TRI")
'premier ligne ou tu commence ton import
i = 30
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
 
  cSQL = "insert into T_MGE (Libellé, Gamme_Onduleur,Réf_article_nu,Réf Art Défectueux,Réf_Neuve,Réf_Réparée, Réf_Services,Indice, N T, IMR, PVF_RMA, PVF_RC, PVF_SCRAP, Modifié, Return_for_ repair, Return quickly for Quality diagnostic, Commentaires, Date de modif/indice) "
  cSQL = cSQL & " values ("" & oWSht.Cells(i, 1) & "","" & oWSht.Cells(i, 2) & "","" & oWSht.Cells(i, 3) & "","" & oWSht.Cells(i, 4) & "","" & oWSht.Cells(i, 5) & "","
  cSQL = cSQL & """ & oWSht.Cells(i, 6) & "","" & oWSht.Cells(i, 7) & "","" & oWSht.Cells(i, 8) & "","" & oWSht.Cells(i, 9) & "","" & oWSht.Cells(i, 10) & "","
  cSQL = cSQL & """ & oWSht.Cells(i, 11) & "","" & oWSht.Cells(i, 12) & "","" & oWSht.Cells(i, 13) & "","" & oWSht.Cells(i, 14) & "","" & oWSht.Cells(i, 15) & "","
  cSQL = cSQL & """ & oWSht.Cells(i, 16) & "","" & oWSht.Cells(i, 17) & "","" & oWSht.Cells(i, 18) & "");"


'exécute la requète
  DoCmd.RunSQL cSQL
 
 
  i = i + 1
Wend
 
DoCmd.SetWarnings True

je ne voit pas ou ça cloche.

Erreur d'exection "3134"

5 réponses

Votre réponse