Discussion :

[Mat08]

Bonjour,

J'ai un formulaire "frmMenu" avec un bouton "btnPhotos".
Je veux ouvrir le formulaire "frmPhotos" lorsque je clique sur le bouton "btnPhotos".
J'ai voulu créer un module "mdlOuvrirFormulaire" avec une procédure "OuvrirFormulaireSansLien()
" qui ouvre un formulaire.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub OuvrirFormulaireSansLien()
 
    Public NomFormulaire As String
 
    DoCmd.OpenForm NomFormulaire
 
End Sub

Voici le code que j'ai mis à l'évènement sur clic du bouton "btnPhotos" :

Code :

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

1
2
3
4
5
6
7
Option Compare Database
 
Private Sub btnPhotos_Click()
 
    Call OuvrirFormulaireSansLien(frmPhotos)
 
End Sub

Cela ne fonctionne pas et j'obtiens le message d'erreur suivant : Erreur de compilation: Variable ou procédure attendue, et non un module.
Dans le code, "Call OuvrirFormulaireSansLien" est mis en surbrillance.

Si quelqu'un a une piste je suis preneur.

Merci d'avance pour vos réponse.

[Dolphy35]

bonjour,

c'est normale car tu ne charge pas la variable NomFormulaire
déclare ta variable dans la procédure.

Code :

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

1
2
3
4
5
Sub OuvrirFormulaireSansLien(NomFormulaire as String)
 
    DoCmd.OpenForm NomFormulaire
 
End Sub

Dolphy

[Mat08]

J'ai fait cette modification mais j'ai encore une erreur : Erreur de compilation: Type d'argument ByRef non compatible. Et cette fois c'est "frmPhoto" qui est en surbrillance.

[dut-dut]

Il faut mettre des guillemets...

Code :

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

1
2
3
4
5
6
7
Option Compare Database
 
Private Sub btnPhotos_Click()
 
    Call OuvrirFormulaireSansLien("frmPhotos")
 
End Sub

[Mat08]

Cela fonctionne.

Merci à vous deux.