Problème de syntaxe SQL INSERT INTO IN
Bonjour
Je galère depuis un bon moment avec un ..... de pb de syntaxe :oops:
et ne trouve rien de clair sur le net
Le but de mon code :
J'ouvre une base
Je fais une recherche : un formulaire lié à une table s'ouvre = un enregistrement de cette table est visible
Je lance une commande pour copier cet enregistrement dans une table identique dans une autre base
Sélection bdd de destination : OK
Ouverture bdd de destination : OK
Mais pas moyen de copier l'enregistrement courant dans la base de destination,
j'ai toujours, soit une erreur de syntaxe sur le sql (monsql) ou "la clause de la requête est incomplète"
Je n'arrive pas à voir où est l'erreur, et peut-être, faut-il faire autrement ?
Merci beaucoup si vous pouvez m' éclairer ;)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
| Private Sub GhostCopyOtherBDD_DblClick(Cancel As Integer)
Dim dbDest As Access.Application
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim varFile, varPath As Variant
Dim NomDest As String
With fDialog
.AllowMultiSelect = False
.Title = "Selectionnez la base de destination."
.Filters.Clear
.Filters.Add "Bases Access", "*.accdb"
.Filters.Add "Bases Access", "*.mdb"
If .Show = True Then
varFile = .SelectedItems(1)
'varPath = .InitialFileName
Set dbDest = CreateObject("Access.Application")
With dbDest
.OpenCurrentDatabase varFile
.Visible = False
MsgBox "Base courante : " & CurrentDb.Name
MsgBox "Base destination : " & varFile
monsql = "INSERT INTO TabGen.* IN " & varFile & " SELECT TabGen.* FROM TabGen WHERE TabGen.affectation = '" & Me.Affectation & "' AND TabGEN.dateCrea = #" & Me.DateCrea & "#"
DoCmd.RunSQL monsql
.Quit
End With
Else
Exit Sub
End If
End With
End Sub |
