OVH Cloud OVH Cloud

Petit Probleme

1 réponse
Avatar
Stephanie
Bonjour,=20

j'ai voulu que dans ma base de Donn=E9e, je puisse ouvrie=20
un formulaire dans une autre base de donn=E9e.
J'ai =E9crit cette proc=E9dure dans mon bouton:
Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim App As New Access.Application
App.OpenCurrentDatabase "systeme_vierge.mdb"
App.Visible =3D True
App.DoCmd.OpenForm "Clients"
Set App =3D Nothing

Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click
=20
End Sub

Et ca m'=E9crit que :
" Impossible d'ouvrir la base de donn=E9es parce que celle-
ci est manquante, ou a =E9t=E9 ouverte par un autre=20
utilisateur en mode exclisif."

Mais pourtant la seule base qui est ouvert est celle ou=20
il y a ce code, alors je ne comprend pas mon erreure.

J'attend de vos nouvelles,

Stephanie

1 réponse

Avatar
Francois
Bonjour,

Ceci peut il t'aider ?
http://www.mvps.org/accessfr/forms/frm0034.htm

A+

François

"Stephanie" a écrit dans le message
news: 23a7901c45eac$36929b20$
Bonjour,

j'ai voulu que dans ma base de Donnée, je puisse ouvrie
un formulaire dans une autre base de donnée.
J'ai écrit cette procédure dans mon bouton:
Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim App As New Access.Application
App.OpenCurrentDatabase "systeme_vierge.mdb"
App.Visible = True
App.DoCmd.OpenForm "Clients"
Set App = Nothing

Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub

Et ca m'écrit que :
" Impossible d'ouvrir la base de données parce que celle-
ci est manquante, ou a été ouverte par un autre
utilisateur en mode exclisif."

Mais pourtant la seule base qui est ouvert est celle ou
il y a ce code, alors je ne comprend pas mon erreure.

J'attend de vos nouvelles,

Stephanie