Discussion :

[quanou]

Bonjour, je suis en Access 2000

Je voudrais savoir s'il est possible, par code ou non, lors d'un clic sur un bouton (ou lien): ouvrir un formulaire particulier contenu dans une autre base, cette dernière est protégé par mot de passe.

Merci beaucoup pour votre aide.

[Steph9]

j'ai déjà vu quelque chose comme ça ici, les sources ou une recherche devraient t'aider à trouver ton bonheur

[quanou]

j'ai déjà vu quelque chose comme ça ici, les sources ou une recherche devraient t'aider à trouver ton bonheur

Salut,
Merci, effectivement,
J'ai trouvé qq chose dans la FAQ :
http://access.developpez.com/faq/?pa...ss#OuvrBddForm

J'ai implémenté le code. Ca a l'air d'ouvrir la deuxième base ainsi que le formulaire voulu mais pas entièrement (c'est vide). En fait, le code bloque à cette boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            Do While Len(.CurrentDb.Name) > 0
                DoEvents
            Loop

On ne sort pas de la boucle et de la fonction. Le comportement est étrange !

Merci si qqun peut me dépanner

[quanou]

Bon,

Je l'ai fait un peu à ma sauce, ça marche, en tout cas pour moi. Il faudra juste rajouter qq vérifications et gestion d'erreurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function fOpenRemoteDb(strMDB As String, strPwd As String, strForm, Optional intView As Variant)
 
    Dim objAccess As Access.Application
    Set objAccess = New Access.Application
    If IsMissing(intView) Then intView = acViewNormal
    Call objAccess.OpenCurrentDatabase(strMDB, False, strPwd)
    objAccess.DoCmd.OpenForm strForm, intView
    Set objAccess = Nothing
 
fOpenRemoteDb_Exit:
    Exit Function
fOpenRemoteDb_Err:
    fOpenRemoteDb = False
    Resume fOpenRemoteDb_Exit
End Function