sub popup dans module

bonjour, j'ai un petit probleme
j'ai un bouton "bscpopup " qui doit rendre mon form dependant ou non. Tt se passe bien si la sub est dans le form mais ne fonctionne plus dans un module

Dans le module de classe la sub etait la suivante:

Code:

---

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

Sub BasPopup_Click() Dim valeur As Long If Me.Popup = False Then DoCmd.OpenForm "frepertoire", acDesign Forms.frepertoire.Popup = True Forms.frepertoire.BasPopup.Caption = "Dependant" Else DoCmd.OpenForm "frepertoire", acDesign Forms.frepertoire.Popup = False Forms.frepertoire.BasPopup.Caption = "independant" End If DoCmd.OpenForm "frepertoire", acNormal, , , , , valeur end sub

---

Dans le module je pensais avoir:

Code:

---

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

Sub dependant(strform As String, valeur As Long, Form As Form) 'fonction formulaire independant If Form.Popup = False Then DoCmd.OpenForm strform, acDesign Form.Popup = True Form.BasPopup.Caption = "Dependant" Else DoCmd.OpenForm strform, acDesign, , , , acHidden Form.Popup = False Form.BasPopup.Caption = "independant" End If DoCmd.OpenForm strform, acNormal, , , , , valeur End Sub

---

avec dans le formulaire sur le bouton "bscpopup"

Code:

---

1 2	dependant "frepertoire", idrepertoire, Forms.frepertoire

---

Des que le form passe en mode creation ,il ne comprend plus la variable form alors que si je le remplace par forms.frepertoire cela fonctionne?????

Bonjour,

Il vaut mieux éviter ce genre de chose : Form As Form.
Une variable du même nom que son type ... ça prête à confusion.

Voila ce que j'ai essayé et qui fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Dependant(valeur As Long, fm As Form) Dim strForm As String, bOldPopup As Boolean 'fonction formulaire independant strForm = fm.Name bOldPopup = fm.PopUp   DoCmd.OpenForm strForm, acDesign Set fm = Forms(strForm)   If bOldPopup = False Then fm.PopUp = True 'fm.BasPopup.Caption = "Dependant" Else fm.PopUp = False 'fm.BasPopup.Caption = "independant" End If   DoCmd.OpenForm strForm, acNormal, , , , , valeur End Sub

---

Je référence à nouveau la variable objet fm après DoCmd.OpenForm, car de toute évidence l'objet initial (au sens VBA) a été détruit puis recréé.

A+

un grand merci.
ça fonctionne impeccable et le set fm=forms(strform) va resservir de toute evidence
a bientot:ccool: