Discussion :

[texas2607]

Salut,
Est il possible de faire un test sur une BD avant une importation de tables par vba afin de savoir si les tables qu'elle contient sont correct.

Je m'explique, actuellement j'ouvre une boite de dialogue dans laquelle je sélectionne une base (X) puis j'efface certaines tables de ma currentdb (Y) et j'importe ces tables de X vers Y mais si par malheur lors de ma sélection j'ai choisi une mauvaise base, alors mes tables sont effacées sur Y et je ne pourrait pas en importer à partir de X puisque inexistante.

D'avance merci
Fred

[Pascal87]

Bonjour,

J'avais un souci comparable.

J'ai constitué dans mon appli une table avec le nom des tables à importer, avec éventuellement le nom et le chemin d'accès de la base X.
Le code parcours la table et procède à l'import, table par table.


A+

[texas2607]

salut,
oui je suis d'accord mais tu es bien obligé d'effacer tes tables avant d'en importer car access ne les remplace pas, il incrémente le nom. Donc si tu efface, même si tu as les noms des tables, si il y a erreur tu n'as plus les tables "d'origines".
Je n'ai pas le problème pour importer les tables mais surtout d'être sûr que celles que je veux importer sont bien dans l'appli sélectionnée, et là.....

[LedZeppII]

Bonsoir,

une adaptation du code de la faq : Comment savoir si une table existe ?

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ExistTable2(strDB As String, strTabl As String) As Boolean
Dim db As DAO.Database
Dim str As String
    On Error GoTo err01
    Set db = Application.DBEngine.OpenDatabase(strDB)
    str = db.TableDefs(strTabl).Name
    ExistTable2 = True
    Exit Function
err01:
    Select Case Err.Number
        Case 3265
            ExistTable2 = False
    End Select
End Function

Exemple

Code vb :

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

MsgBox ExistTable2("C:\Mes Documents\bd_1.mdb", "Prdts")

A+

[texas2607]

Un grand merci LedZeppII, çà fonctionne nickel.
Merci

FRED