Discussion :

[Aurèl90]

Bonjour

Je désire importer des données provenant de 3 fichiers Access et les regrouper dans une seule table. J'ai executer le code suivant :

Code :

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

1
2
3
4
5
6
7
 
If IsTable("A") = True Then
                    Drop_Table ("A")
                    DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\B1.mdb", actable,  "Import_A1", "A", False
                   DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\B2.mdb", actable,  "Import_A2", "A", False
                   DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\B3.mdb", actable,  "Import_A3", "A", False
End If

Mais au lieu de me faire le regroupement lors de l'import, Access me créé 3 table A différentes. Il doit y avoir un élément que j'ai omis ?

Merci de me livrer ma faille. :-)
Aurélien

[jbaudin]

Ca me parait normal que Access te crée 3 tables différentes. Question de sécurité pour éviter d'écraser des données.
Perso je penche pour un code supplémentaire pour ajouter les enregistrements des 2 autres tables dans la première.

[Aurèl90]

Perso je penche pour un code supplémentaire pour ajouter les enregistrements des 2 autres tables dans la première.

J'importe déjà les données d'une table contenue dans une autre base. Si Acces me crée une table par import pour éviter d'écraser les données, pourquoi en réalisant cet import depuis une table de la même base, ne ferait-il pas la même chose ?

[random]

plutot de de faire un import declare des tables liées et lance une requête ajout

[Aurèl90]

Le soucis avec cette méthode est que j'importe des données depuis des bases dont le nom change avec le temps mais dans laquelle la table porte toujours le même nom.
En fait, c'est un regroupement de tables de commandes de produits. Donc ça change toujours .... je ne peux pas lier les tables dans ce cas ?

[jbaudin]

Si il est possible de lier les tables par le code VBA.

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
Function fctLiaisonTable(strDBase As String, strTable As String)
On Error GoTo errfctLiaisonTable
    Dim db As Database
    Dim tabdef As TableDef
 
    ' Ouvre la base de données courante.
    Set db = CurrentDb
 
    Set tabdef = db.CreateTableDef(strTable)
 
    tabdef.Connect = ";DATABASE=" & strDBase
    tabdef.SourceTableName = strTable
 
    db.TableDefs.Append tabdef
 
    tabdef.RefreshLink
 
    db.Close
    Set db = Nothing
    Set tabdef = Nothing
    Exit Function
 
errfctLiaisonTable:
    Select Case Err.Number
    Case 3012
        Call MsgBox("La liaison de la table " & strTable & "  existe déjà." _
                    & vbCrLf & "Exécution terminée" _
                    , vbCritical, Application.name)
 
    Case 3011
        Call MsgBox("La table " & strTable & " n'existe pas dans la base de données demandée.", vbCritical, Application.name)
    Case Else
        MsgBox Err.Number & " : " & Err.Description
    End Select
 
End Function

Utilisation :

Code :

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

call fctLiaisonTable ("c:\temp\mabase.mdb", "maTable")

[Ajout]
En faisant un scan d'un répertoire pour récupérer les noms des bases sans les savoir à l'avance !
[/Ajout]