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

 1064555 visiteurs

 12 visiteurs 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 6270 fois

Vous êtes ici :   Accueil » Importer les formulaires