ma question est la suivante :
Avant d'ouvrir d'executer ce code je voudrais verifier si
la base est deja ouverte ?
If "Base is open?????quest ce qu'on met " then
Db.DoCmd.OpenReport ("Report1"), acNormal
Db.CloseCurrentDatabase
Db.Quit
else
Db.OpenCurrentDatabase ("C:\Base.mdb")
Db.Application.Visible = True
Db.DoCmd.OpenReport ("Report1"), acNormal
Db.CloseCurrentDatabase
Db.Quit
end if
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Il ne faut surtout pas travailler sur une application déjà ouverte (elle est toujours ouverte car toi-même tu es sous access). Et en plus avec un quit à la fin, il ne va pas être content l'autre !
ton db est-il bien ouvert comme ceci ? Dim Db As Access.Application Set Db= New Access.Application
ma question est la suivante : Avant d'ouvrir d'executer ce code je voudrais verifier si la base est deja ouverte ? If "Base is open?????quest ce qu'on met " then Db.DoCmd.OpenReport ("Report1"), acNormal Db.CloseCurrentDatabase Db.Quit else Db.OpenCurrentDatabase ("C:Base.mdb") Db.Application.Visible = True Db.DoCmd.OpenReport ("Report1"), acNormal Db.CloseCurrentDatabase Db.Quit end if
qqu'un peut m'aider
Merci d'avance Ingird
Bonjour.
Il ne faut surtout pas travailler sur une application déjà ouverte (elle est
toujours ouverte car toi-même tu es sous access). Et en plus avec un quit à
la fin, il ne va pas être content l'autre !
ton db est-il bien ouvert comme ceci ?
Dim Db As Access.Application
Set Db= New Access.Application
ma question est la suivante :
Avant d'ouvrir d'executer ce code je voudrais verifier si
la base est deja ouverte ?
If "Base is open?????quest ce qu'on met " then
Db.DoCmd.OpenReport ("Report1"), acNormal
Db.CloseCurrentDatabase
Db.Quit
else
Db.OpenCurrentDatabase ("C:Base.mdb")
Db.Application.Visible = True
Db.DoCmd.OpenReport ("Report1"), acNormal
Db.CloseCurrentDatabase
Db.Quit
end if
Il ne faut surtout pas travailler sur une application déjà ouverte (elle est toujours ouverte car toi-même tu es sous access). Et en plus avec un quit à la fin, il ne va pas être content l'autre !
ton db est-il bien ouvert comme ceci ? Dim Db As Access.Application Set Db= New Access.Application
ma question est la suivante : Avant d'ouvrir d'executer ce code je voudrais verifier si la base est deja ouverte ? If "Base is open?????quest ce qu'on met " then Db.DoCmd.OpenReport ("Report1"), acNormal Db.CloseCurrentDatabase Db.Quit else Db.OpenCurrentDatabase ("C:Base.mdb") Db.Application.Visible = True Db.DoCmd.OpenReport ("Report1"), acNormal Db.CloseCurrentDatabase Db.Quit end if
