Discussion :

[mike2302]

Bonjour amis developpeurs!

J'ai fais un code vba qui me permet de faire une requête trés simple.

Cette requête consiste à prendre 2 champs d'une table et les insérer dans une nouvelle table.

J'ai ce code-ci mais access me trouve une erreur...Peut-être saurai-vous m'aiguiller?
Voici mon code :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Commande26_Click()
Dim sSQL As String
Dim db As DAO.Database
Dim myrst As DAO.Recordset

'tu definis quelle est la BD étudiée, c'est celle qui est courante..
Set db = CurrentDb

'nom de ta table
maTable = "2004_airbus_Usage_01"
monAutreTable = "SIGLUM VIDE"

'creation de la table
DoCmd.RunSQL "CREATE TABLE [SIGLUM VIDE] (HostEmail String, Sigle String);"

'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier
sSQL = "SELECT HostEmail,Sigle from " & maTable & " ORDER BY HostEmail "

'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF

'recuperation des valeurs pour tes 2 champs
sHostEmail = myrst.Fields("HostEmail").Value
sSigle = myrst.Fields("Sigle").Value

'sFunction = myrst.Fields("SEG_function").Value

'requete d'insertion
sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( '" & sHostEmail & "' , '" & sSigle & "' )"

'tu envoies l'execution de la requête insert

dbBase.Execute sSQLInsert, dbFailOnError

'tu passes a l'enregistrement suivant
myrst.MoveNext

Loop
End If


' tu fermes/vides tout
myrst.Close
Set myrst = Nothing
db.Close

End Sub

L'erreur se passe lors de l'execution de la requête, pourtant la requête est bonne et sans erreur.

Voici le message d'erreur (cf doc joint)

Pouvez-vous m'aider s'il vous plait?

[daplomb]

Qu'as-tu dans sHostEmail et sSigle ? Si tu as une cote, ça change complètement ta requete SQL. Essaie ceci :

Code :

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

sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( "& Chr(34) & sHostEmail & Chr(34) & " , " & Chr(34) & sSigle & Chr(34) & " )"

[mike2302]

Merci de vos reponses rapides!!!

Qu'as-tu dans sHostEmail et sSigle ? Si tu as une cote, ça change complètement ta requete SQL. Essaie ceci :

Code :

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

sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( "& Chr(34) & sHostEmail & Chr(34) & " , " & Chr(34) & sSigle & Chr(34) & " )"

ok il me semble avoir déjà essayé avec le chr(34) mais je vais retenter quant a jean paul lepetit, je crois pas que mon erreur viens du dbBase qui n'est pas défini car j'ai remplacé "dbBase.Execute sSQLInsert, dbFailOnError" par un DoCmd.RunSQL et cela marcher toujours pas.

Je vais essayer vos propositions et je vous tiens au courant rapidement

merci de vos reponses!!

[mike2302]

voici mon code aprés quelques modifications:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Commande26_Click()
Dim sSQL As String
Dim db As DAO.Database
Dim myrst As DAO.Recordset

'tu definis quelle est la BD étudiée, c'est celle qui est courante..
Set db = CurrentDb

'nom de ta table
maTable = "2004_airbus_Usage_01"
monAutreTable = "SIGLUM VIDE"

'creation de la table
DoCmd.RunSQL "CREATE TABLE [SIGLUM VIDE] (HostEmail String, Sigle String);"

'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier
sSQL = "SELECT HostEmail,Sigle from " & maTable & " ORDER BY HostEmail "

'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF

'recuperation des valeurs pour tes 2 champs
sHostEmail = myrst.Fields("HostEmail").Value
sSigle = myrst.Fields("Sigle").Value

'sFunction = myrst.Fields("SEG_function").Value

'requete d'insertion
sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( " & Chr(34) & sHostEmail & Chr(34) & " , " & Chr(34) & sSigle & Chr(34) & " )"

'tu envoies l'execution de la requête insert

DoCmd.RunSQL sSQLInsert


'tu passes a l'enregistrement suivant
myrst.MoveNext

Loop
End If


' tu fermes/vides tout
myrst.Close
Set myrst = Nothing
db.Close

End Sub

Toujours la même erreur , au même endroit avec le même message d'erreur....

J'ai suivi vos 2 conseils mais cela marche toujours pas...
A moins qu'il y ait un problème au niveau de la requête en elle-même mais je suis sûr qu'elle est bonne...

Peut-être existe-t'il un code similaire qui permet l'exécution d'une requête mais à la syntaxe différente de celui-ci?

[daplomb]

J’ai encore 2 petites idées :
- SHostEmail ou sSigle est déclaré numérique en base et donc il ne faut ni ‘ ni Chr(34)
- la virgule après [Sigle] est en trop

[jean-paul lepetit]

Je viens de vérifier, c'est bien ce que dit daplomb

la virgule après [Sigle] est en trop

[jean-paul lepetit]

Salut,
ton erreur est bien sur ta ligne RunSql

Code :

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

dbBase.Execute sSQLInsert, dbFailOnError

dbBase n'est pas défini, c'est db

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
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Commande26_Click()
Dim sSQL As String
Dim db As DAO.Database
Dim myrst As DAO.Recordset

'tu definis quelle est la BD étudiée, c'est celle qui est courante..
Set db = CurrentDb

'nom de ta table
maTable = "2004_airbus_Usage_01"
monAutreTable = "SIGLUM VIDE"

'creation de la table
DoCmd.RunSQL "CREATE TABLE [SIGLUM VIDE] (HostEmail String, Sigle String);"

'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier
sSQL = "SELECT HostEmail,Sigle from " & maTable & " ORDER BY HostEmail "

'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(sSQL)

'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF

'recuperation des valeurs pour tes 2 champs
sHostEmail = myrst.Fields("HostEmail").Value
sSigle = myrst.Fields("Sigle").Value

'sFunction = myrst.Fields("SEG_function").Value

'requete d'insertion
sSQLInsert = "INSERT INTO [SIGLUM VIDE] ([HostEmail], [Sigle], ) VALUES ( '" & sHostEmail & "' , '" & sSigle & "' )"

'tu envoies l'execution de la requête insert

db.Execute sSQLInsert, dbFailOnError

'tu passes a l'enregistrement suivant
myrst.MoveNext

Loop
End If


' tu fermes/vides tout
myrst.Close
Set myrst = Nothing
db.Close

End Sub