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

 1223684 visiteurs

 11 visiteurs en ligne

Nous contacter

Contact

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 7363 fois
Vous êtes ici :   Accueil » Importer les formulaires