1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| 'Copie de la base car erreur de partage
Base.Close
FileCopy App.Path & "\Gestion des Familles.mdb", App.Path & "\Gestion des FamillesEtatFF.mdb"
Set Base = OpenDatabase(App.Path & "\Gestion des Familles.mdb")
Set ChefFamille = Base.OpenRecordset("ChefFamille", dbOpenDynaset)
Set Aides = Base.OpenRecordset("Aides", dbOpenDynaset)
Set Enfants = Base.OpenRecordset("Enfants", dbOpenDynaset)
Set HeureAide = Base.OpenRecordset("HeureAide", dbOpenDynaset)
'Ouverture de la copier de la BdD Access
Dim MesEtats As Access.Application
Set MesEtats = New Access.Application
MesEtats.OpenCurrentDatabase App.Path & "\Gestion des FamillesEtatFF.mdb", False
'Visualiser
MesEtats.Visible = True
MesEtats.DoCmd.OpenReport "État Fiche Familiale", acViewPreview
MesEtats.DoCmd.Maximize |