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 :
mon but est de copier les données d'une requete dans une table suivant un numero de job.
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));
j'ai un form avec un bouton avec le code suivant :
j'ai une erreur :
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
error runtime 3061
Too few parameters. Expected 1.
Merci d'avance pour de l'aide
Alex
Partager