[VBA (script FAQ)] ouvrir un formulaire d'une autre base depuis un formulaire

Bonjour à tous,

Alors, je vous (ré)explique mon problème : le script de la FAQ (http://access.developpez.com/faq/?pa...ss#OuvrBddForm) ne fonctionne pas chez moi.

Lorsque je l'intègre dans un module comme mentionné et que j'appelle la fonction

Code:

---

Call fOpenRemoteForm("C:\Documents and Settings\...\mabase.mdb", "Form_a_ouvrir")

---

Cela m'affiche 2 fenêtre Access vide, une qui semble correspondre à ma base puisqu'elle a le même nom (mais ça n'est pas elle car j'ai des données dans la base que je souhaite ouvrir :ccool:) et une autre qui semble correspondre à mon formulaire (pareil même nom sauf que le formulaire que j'aimerai ouvrir n'est pas vide lui).

Lorsque je ferme l'une des deux fenêtre vide et que je reviens sur la fenêtre ou se trouve le formulaire appelant, j'ai une erreur :
Runtime error
Error #:91
Variable objet ou variable de bloc With non définie

Pas chouette, tout ce que je veux moi c'est ouvrir un formulaire depuis un autre formulaire (ces deux derniers ne se situant pas dans la même base de donnée bien entendu :mouarf:).

Merci à tous ceux qui pourront m'aider à résoudre mon problème :)

bonjour et bienvenue sur le forum,

si tu es sur que la base et form existe et que c'est les bons noms :

essayes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TonBouton_Click() csts = "C:\\\TaBase.accdb" Set appAccess = _ CreateObject("Access.Application") appAccess.OpenCurrentDatabase csts appAccess.DoCmd.OpenForm "TonFormulaire", acNormal   appAccess.DoCmd.RunCommand acCmdAppMaximize     appAccess.Visible = True   End Sub

---

Bonjour,

dans le code remplace ces lignes

Code:

---

1 2 3

lngRet = apiSetForegroundWindow(.hWndAccessApp) lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE) lngRet = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)

---

par

Code:

---

1 2	.visible=True 'Mettre à false pour ne voir que le formulaire .RunCommand acCmdAppMaximize

---

et ces lignes

Code:

---

1 2 3 4

.DoCmd.OpenForm strForm, intView Do While Len(.CurrentDb.Name) > 0 DoEvents Loop

---

par

Code:

---

1 2 3

If .CurrentProject.AllForms(strform).Name=strForm then .DoCmd.OpenForm strForm, WindowMode:=acDialog End if

---

Bonjour à vous deux,

et un grand Merci!!! :ccool:

J'ai testé vos deux solution et elles fonctionnent nickel, autant celle bourrine de LE VIEUX que l'adaptation du code de la FAQ d'ilank :mrgreen:.

Problème résolu donc, merci encore. Je pense que je vais prendre la solution de ilank car, comme il l'aura deviné, je ne cherche à ouvrir que le formulaire nommé mais aucun doute que cela aurait également été possible avec ta solution LE VIEUX ;) .

Bonne journée :zoubi:


PS : au niveau du code de la FAQ justement, pas que je m'intéresse spécialement à la prog en vba mais il serait peut-être utile de préciser que si la solution proposée occasionne le même problème que le mien, il faut se rapporter à la solution d'ilank. Apparemment il a su cerner le problème donc cela pourrait arriver à n'importe qui utilisant ce code non?