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
Pascal B.
Salut,
Il faut ouvrir la DB en mode exclusif, exemple:
On Error Resume Next Db.OpenCurrentDataBase("c:Base.MDB", True) If Err.Number <> 0 then
'(La DB est déjà ouverte)
Else
'(La DB n'était pas ouverte)
End If
Pascal.
"Ingrid" a écrit dans le message de news:130a01c3e012$30d4c730$ > Hello Tout le monde, > J'ouvre une base Access avec: > > Db.OpenCurrentDatabase ("C:Base.mdb") > Db.Application.Visible = True > Db.DoCmd.OpenReport ("Report1"), acNormal > Db.CloseCurrentDatabase > Db.Quit > > 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 > Ingrid
Salut,
Il faut ouvrir la DB en mode exclusif, exemple:
On Error Resume Next
Db.OpenCurrentDataBase("c:Base.MDB", True)
If Err.Number <> 0 then
'(La DB est déjà ouverte)
Else
'(La DB n'était pas ouverte)
End If
Pascal.
"Ingrid" <ingridnlfr@hotmail.com> a écrit dans le message de
news:130a01c3e012$30d4c730$a101280a@phx.gbl...
> Hello Tout le monde,
> J'ouvre une base Access avec:
>
> Db.OpenCurrentDatabase ("C:Base.mdb")
> Db.Application.Visible = True
> Db.DoCmd.OpenReport ("Report1"), acNormal
> Db.CloseCurrentDatabase
> Db.Quit
>
> 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
> Ingrid
On Error Resume Next Db.OpenCurrentDataBase("c:Base.MDB", True) If Err.Number <> 0 then
'(La DB est déjà ouverte)
Else
'(La DB n'était pas ouverte)
End If
Pascal.
"Ingrid" a écrit dans le message de news:130a01c3e012$30d4c730$ > Hello Tout le monde, > J'ouvre une base Access avec: > > Db.OpenCurrentDatabase ("C:Base.mdb") > Db.Application.Visible = True > Db.DoCmd.OpenReport ("Report1"), acNormal > Db.CloseCurrentDatabase > Db.Quit > > 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 > Ingrid
