Discussion :

[caro2552]

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 :

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

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 :

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

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 :

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

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?????

[LedZeppII]

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 :

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

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+

[caro2552]

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