probleme requete vba access avec variables

Version imprimable

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:

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:

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

11/09/2007, 18h49
AlainTech

Il manque un espace à la fin de STR_SQL2.

Si tu avais fait un

Code:

Debug.Print STR_SQL

tu l'aurais vu.
11/09/2007, 19h42
philben

bonjour,

Citation:

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
11/09/2007, 20h10
alexkickstand
Citation:

Envoyé par philben

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:

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 !!!

bonjour,

tu as raison, essaye avec :

Code:

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

11/09/2007, 20h27
alexkickstand
Citation:
Envoyé par philben

bonjour,

tu as raison, essaye avec :

Code:

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
11/09/2007, 20h50
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:

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
11/09/2007, 20h57
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:

1 2 3 4 SELECT Carte.Job, Carte.Code_Ope, Carte.Date FROM Carte WHERE (((Carte.Job)=job_tracking));
merci encore de ton aide :D

Alex
11/09/2007, 21h08
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:

1 2 3 STR_SQL1 = "SELECT Carte.* INTO [JOB_TRACKING] FROM " & _ "Carte WHERE Carte.Job = '" & job_tracking & "';"
Philippe
11/09/2007, 21h19
alexkickstand
Citation:
Envoyé par 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:

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