Discussion :

[jmde]

Bonjour,

Je suis sur un formulaire frm1 qui comporte un sous formulaire en mode continu sfm 2
et un autre sous formulaire sfm3 en mode feuille de donnée.

En partant d’une liste déroulante du sous formulaire sfm 3, je voudrais ouvrir un autre
Formulaire frm 4 filtré sur le même enregistrement qui apparaît sur sfm 2, mais je n'y
arrive pas.

Lorsque je passe avec la souris sur stFiltre j'ai pour valeur "[RéfAdhérentr]=3", mais mon
Formulaire ne s’ouvre pas sur l’enregistrement 3.

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
20
21
‘sfm 3
Private Sub cmbFormation_Click()
F_FormEnCour = "frm 1"
F_FormAOuvrir = "frm 4"
F_StFiltre = "[RéfAdhérent]=" & Me.Parent.RéfAdhérent
 
If Trim(TxtRéfAni) = "" Or Trim(TxtRéfAni) = 0 Then
 
 '--- Boite de dialogue par Api
      reponse = MessageBox(Me.hwnd, !!!!!!!!!!!.", _
                   ap_AppTitle(), mb_yesno + MB_ICONQUESTION)
      If reponse = vbYes Then
 
        Me.Undo
        Call OuvrirForm
        Exit Sub
     Else
         Me.Undo
        Exit Sub
     End If
End If

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
Sub OuvrirForm()
On Error GoTo GestionErreur
    Dim stDocName As String
    Dim stDocAmasquer As String
    Dim stFiltre As String
    Dim InFiltre As Variant
 
    stDocAmasquer = F_FormEnCour ‘frm 1
    stDocName = F_FormAOuvrir       ‘frm 4
    stFiltre = F_StFiltre
 
    Forms(stDocAmasquer).Visible = False
 
    DoCmd.OpenForm stDocName, , stFiltre, OpenArgs:=stDocAmasquer
GestionErreur:
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Sur frm 4
Private Sub Form_Unload(Cancel As Integer)
'--- Réaffiche le formulaire
     Dim stDocName As String
     stDocName = Nz(Me.OpenArgs)
     If stDocName <> "" Then
        If IsLoaded(stDocName) Then
           Forms(stDocName).Visible = True
        End If
     End If
End Sub

Merci pour votre aide.

Salutations

[Milyshyn76]

Hello,

Pour filtrer un Sous Formulaire, je te conseil ceci :

Code :

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

1
2
SQL = "Select * From MaTable Where ..."
Me.MonSousForm.Form.RecordSource = SQL

D'où MaTable alimente ce fameux sous formulaire (MonSousForm)

[jmde]

Bonjour Milyshyn76,

Merci pour ta réponse, mais j'aimerais savoir pourquoi ma solution
ne fonctionne pas.

Salutations

[Pierre Fauconnier]

Bonjour

Avance en pas à pas.

A première vue, je dirais que tu as un problème de portée de variable.

As-tu option explicit comme toute première ligne dans tes modules?

Dans la proc OuvirForm, tu as

Code :

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

1
2
3
4
5
    stFiltre = F_StFiltre
 
    Forms(stDocAmasquer).Visible = False
 
    DoCmd.OpenForm stDocName, , stFiltre, OpenArgs:=stDocAmasquer

A quoi te sert la variable stFiltre puisqu'elle reprend la valeur de F_StFiltre. Si F_StFiltre est déclarée dans frm3, elle n'est pas accessible directement dans ta proc...

[jmde]

Bonsoir Pierre,

Merci pour ta réponse.

F_StFiltre est déclaré dans un module de cette façon:

Code :

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

Public F_StFiltre As String

Ma variable arrive bien à Sub OuvrirForm() puisque lorsque je passe avec la souris sur stFiltre j'ai pour valeur "[RéfAdhérent]=3".

Quels sont les contrôle que je pourrais faire ?

Salutations

[jmde]

Bonjour,

J’ai modifié le DoCmd.OpenForm en rajoutant un nouvel argument (virgule) et cela fonctionne.

Code :

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

 DoCmd.OpenForm stDocName, , , stFiltre, OpenArgs:=stDocAmasquer

Mais comme j’utilise ce DoCmd pour d’autres formulaires, et lorsque je déclenche le DoCmd
à partir d’un ctrl du form pricipal ça ne fonctionne pas, il faut alors pour que cela fonctionne supprimer
le nouvel argument (virgule)

Code :

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

DoCmd.OpenForm stDocName, ,  stFiltre, OpenArgs:=stDocAmasquer

Comment procéder pour utiliser ma procédure pour tous les formulaires ?

Salutations

[Pierre Fauconnier]

Tu aurais intérêt à utiliser les paramètres nommés pour tous les paramètres utilisés.

Cela te permet d'omettre ceux qui sont vides
Par exemple

Code :

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

DoCmd.OpenForm stDocName, , , stFiltre, OpenArgs:=stDocAmasquer

peut (devrait) s'écrire

Code :

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

DoCmd.OpenForm FormName:=stDocName, WhereCondition:=stFiltre, OpenArgs:=stDocAmasquer

[jmde]

Bonsoir Pierre,

Merci pour tes conseils que j'ai appliqués aussitôt, mais dans le deuxième cas
à partie du form pricipal cela ne fonctionne toujours pas.

Crois-tu qu'il y a une solution à mon problème ? car je suis vraiment bloquer sur ce cas.

Salutations

[Pierre Fauconnier]

Une idée qui me vient à l'esprit.

Pour le deuxième cas, ouvre le formulaire en mode création et vas voir les propriétés.

Si tu as une propriété Filtre, vide-là et enregistre ton formulaire, puis ferme-le et réessaye le code

[jmde]

Bonjour Pierre,

Hélas aucun résultat, mais en attendant pour régler provisiorement le problème je vais créer un nouveau module.

Salutations.