En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1020125 visiteurs

 1 visiteur en ligne

Importer les formulaires

Fonction qui permet d'importer tous les formulaires d'une base externe.

Function fnImportForm(sBase As String)
    '/
    '/ Usage :
    '/ fnImportForm "C:MesFichiersMaBase.mdb"
    '/
    Dim Dbs As DAO.Database
    Dim Con As DAO.Container
    Dim Doc As DAO.Document

    If Dir(sBase) = "" Then
        MsgBox "Chemin ou nom de la base incorrect !", vbCritical, "Erreur"
        Exit Function
    End If

    Set Dbs = OpenDatabase(sBase)
    Set Con = Dbs.Containers("Forms")

    For Each Doc In Con.Documents
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
                               sBase, acForm, Doc.Name, Doc.Name, False, True
    Next

    Dbs.Close
    Set Dbs = Nothing
    Set Con = Nothing
End Function


Catégorie : Les mémos - Formulaires
Page lue 6003 fois

Vous êtes ici :   Accueil » Importer les formulaires