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