Discussion :

[nemog]

Bonjour

Je galère depuis un bon moment avec un ..... de pb de syntaxe
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 :

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

[loufab]

Bonjour,

En l'absence de boule de cristal, d'entrailles de poulet et autre matériel divinatoire, le plus simple serait que tu communiques, au minimum, le résultat de ça :

Code :

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

"INSERT INTO TabGen.* IN " & varFile & " SELECT TabGen.* FROM TabGen WHERE TabGen.affectation = '" & Me.Affectation & "' AND TabGEN.dateCrea = #" & Me.DateCrea & "#"

Après et seulement après on pourra te donner des pistes.

Cordialement,

[nemog]

désolé si je n' ai pas été clair

Je veux copier l'enregistrement d'une table (TabGen) de la base ouverte dans la Table TabGen d' une autre base préalablement sélectionnée (varFile)
Cet enregistrement est celui visible dans le formulaire lié et ouvert - d'où la condition WHERE avec 2 paramètres(Me.Affectation et Me.DateCrea)

[nemog]

Voila !

La bonne syntaxe est la suivante :

Code :

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

"INSERT INTO TabGen IN '" & varFile & "' SELECT TabGen.* FROM TabGen WHERE TabGen.affectation = '" & Me.Affectation & "' AND TabGEN.dateCrea = #" & Me.DateCrea & "#"

corrigé grâce à un post de Tee_Grandbois de 2017 !

https://www.developpez.net/forums/d1...t/#post9625412

donc merci Tee_Grandbois !