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?