Discussion :

[alexkickstand]

Bonjour, je ne sais pas si je peux insérer dans une requete access une variable récupéré d'un formulaire :


j'ai une requete en access qui s'appelle : QUERY_JOB_TRACKING
cette requete récupère des données de la table Carte suivant un numéro de Job
voici le code sql de la requete :

Code :

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

1
2
3
4
 
SELECT Carte.Job, Carte.Code_Ope, Carte.Date
FROM Carte
WHERE (((Carte.Job)=job_tracking));

mon but est de copier les données d'une requete dans une table suivant un numero de job.


j'ai un form avec un bouton avec le code suivant :

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
35
36
37
38
39
 
Private Sub Command0_Click()
 
  Dim dba As Database
  Dim Enreg As Recordset
  Dim tbl_def As TableDef
  Dim tbl_name As TableDef
  Dim STR_SQL1, STR_SQL2, STR_SQL3
 
  job_tracking = "10005"
  MsgBox (job_tracking)
 
  'Ouverture de la base de données "mabase.mdb"
   Set dba = OpenDatabase("V:\UPDATES\Alex\ACCESS\excel\mabase.mdb")
 
  'suppression de la table JOB_TRACKING si existante
   dba.TableDefs.Refresh
    ' If RecentHires query exists, delete it.
     For Each tbl_def In dba.TableDefs
        If tbl_def.Name = "JOB_TRACKING" Then
          dba.TableDefs.Delete tbl_def.Name
        End If
     Next tbl_def
 
' requete sql qui copie les données de la requete QUERY_JOB_TRACKING
' dans une nouvelle table JOB_TRACKING suivant le numéro de job_tracking
 
STR_SQL1 = "SELECT QUERY_JOB_TRACKING.* INTO"
STR_SQL2 = " [JOB_TRACKING] FROM QUERY_JOB_TRACKING "
STR_SQL3 = "WHERE [Carte].Job = '" & job_tracking & "';"
STR_SQL = STR_SQL1 & STR_SQL2 & STR_SQL3
 
Debug.Print STR_SQL
 
dba.Execute (STR_SQL)
 
dba.Close
 
End Sub

j'ai une erreur :

error runtime 3061
Too few parameters. Expected 1.

Merci d'avance pour de l'aide

Alex

[AlainTech]

Il manque un espace à la fin de STR_SQL2.

Si tu avais fait un

Code :

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

Debug.Print STR_SQL

tu l'aurais vu.

[philben]

bonjour,

STR_SQL1 = "SELECT QUERY_JOB_TRACKING.* INTO"
STR_SQL2 = " [JOB_TRACKING] FROM QUERY_JOB_TRACKING "
STR_SQL3 = "WHERE [Carte].Job = '" & job_tracking & "';"
STR_SQL = STR_SQL1 & STR_SQL2 & STR_SQL3

ce n 'est pas une requete d'insertion de données dans une table...

Voir les requetes <INSERT INTO ...>

cordialement,

Philippe

[alexkickstand]

bonjour,



ce n 'est pas une requete d'insertion de données dans une table...

Voir les requetes <INSERT INTO ...>

cordialement,

Philippe

Hello merci de ta précision.

mais le

Code :

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

1
2
3
 
select "requete".* INTO 
table FROM requete

copie toute les données d'une requete dans une table ca fonctionnes tres bien sauf que pour mon cas j'ai rajouté un WHERE puis la ca fonctionnes plus.

merci

Alex

ps : Si tu as une idée je suis preneur !!!

[philben]

bonjour,

tu as raison, essaye avec :

Code :

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

1
2
3
4
STR_SQL1 = "SELECT QUERY_JOB_TRACKING.* INTO"
STR_SQL2 = " [JOB_TRACKING] FROM QUERY_JOB_TRACKING "
STR_SQL3 = "WHERE [QUERY_JOB_TRACKING].Job = '" & job_tracking & "';"

cordialement,

Philippe

[alexkickstand]

bonjour,

tu as raison, essaye avec :

Code :

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

1
2
3
4
STR_SQL1 = "SELECT QUERY_JOB_TRACKING.* INTO"
STR_SQL2 = " [JOB_TRACKING] FROM QUERY_JOB_TRACKING "
STR_SQL3 = "WHERE [QUERY_JOB_TRACKING].Job = '" & job_tracking & "';"

cordialement,

Philippe

Re , toujours la meme erreur
j'ai l'impression que cette méthode ne prend pas en compte un WHERE

je vais essayer de faire une requete et ensuite d'enregistrer le résultat dans une table .

merci de ton aide !!

Alex

[philben]

La clause Where est acceptée.

j'ai vérifié, l'erreur vient probablement du fait <job> est un champ numérique.

Avec un peu de chance :

Code :

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

1
2
3
4
STR_SQL1 = "SELECT QUERY_JOB_TRACKING.* INTO "
STR_SQL2 = "[JOB_TRACKING] FROM QUERY_JOB_TRACKING "
STR_SQL3 = "WHERE [QUERY_JOB_TRACKING].Job = " & job_tracking & ";"

Philippe

[alexkickstand]

Re, le champs job est au format texte mais contient un numero

en tout cas j'ai testé ton code puis j'ai toujours la meme erreurs

est-ce que le code sql de ma requete est correct ?

Code :

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

1
2
3
4
 
SELECT Carte.Job, Carte.Code_Ope, Carte.Date
FROM Carte
WHERE (((Carte.Job)=job_tracking));

merci encore de ton aide

Alex

[philben]

ben non ta variable n'est pas vue par ta requete enregistrée.

Si j'ai bien compris, pourquoi ne pas écrire directement:

Code :

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

1
2
3
STR_SQL1 = "SELECT Carte.* INTO [JOB_TRACKING] FROM " & _
                  "Carte WHERE Carte.Job = '" & job_tracking & "';"

Philippe

[alexkickstand]

ben non ta variable n'est pas vue par ta requete enregistrée.

Si j'ai bien compris, pourquoi ne pas écrire directement:

Code :

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

1
2
3
STR_SQL1 = "SELECT Carte.* INTO [JOB_TRACKING] FROM " & _
                  "Carte WHERE Carte.Job = '" & job_tracking & "';"

Philippe

pourquoi vouloir faire compliquer quand c'est simple !!!

lol j'y avais pas penser merci ca fonctionnes nikel

je peux passer a l'étape 2

merci beaucoup au plaisir de t'aider

Alex