Référence par valeur

**Eva71** · 02/08/2007, 15h58

Bonjour,

Je veux utiliser la même procédure pour plusieurs formulaires, donc j’envoie un paramètre (le nom du formulaire) par valeur dans une procédure :

Private Sub MaProcedure(ByVal Formulaire As String)

Ensuite, je dois utiliser ce formulaire dans ma procédure. Je ne sais pas sous quel forme je doit l’écrire :

Forms![Formulaire]
Forms!Formulaire
Forms!"Formulaire"

Rien ne fonctionne On me dit que la form Formulaire n'existe pas…
Je ne veux pas la form Formulaire mais la form(valeur de formulaire)

Sous quelle forme dois-je l’écrire pour que ça fonctionne

Merci beaucoup

**bruno28** · 02/08/2007, 16h01

Ajoute ton morceau de code stp (pense aux balises)

**Eva71** · 02/08/2007, 16h49

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
22
 
Private Sub Bascule27_Click()
 
If Me.IDEvenement.Value = 1 Then
      n = "F1"
Else n = "F2"
End If
 
    If ChildFormIsOpen(n) Then
        CloseChildForm (n)
    Else
        OpenChildForm (n)
        FilterChildForm (n)
    End If
 
LienBascule_Click_Exit:
    Exit Sub
LienBascule_Click_Err:
    MsgBox Error$
    Resume LienBascule_Click_Exit
 
End Sub

Toutes les procédure fonctionnent sauf FilterChildForm... j'imagine que c'est la notation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub FilterChildForm(ByVal Nom As String)
 
    If Me.NewRecord Then
        Forms![Nom].DataEntry = True
    Else
        Forms![Nom].Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement]
        Forms![Nom].FilterOn = True
    End If
 
End Sub

**cafeine** · 02/08/2007, 16h59

Hello,

la bonne manière c'est :

Code :

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

Forms("LeNom")

ou

Code :

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

Forms(VariableChaineNom)

**Eva71** · 02/08/2007, 17h22

La première façon ne fonctionne pas

La deuxième façon ne me renvoie pas d'erreur mais n'applique pas mon filtre.

**bruno28** · 02/08/2007, 17h28

Ce qui m'étonne

Code :

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

1
2
3
4
5
6
7
8
 
 
 Forms![Nom].Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement]
 
'Essaie
 
 
Forms![Nom].Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement] & "

Tu ferme pas tes quotes (enfin je pense, si j'ai bien lu)

**cafeine** · 02/08/2007, 17h34

Hello,

et ça ?

Code :

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

1
2
3
 Forms(Nom).Filter = "[IDVille] = """ & Me.[IDVille]  & _
    """ AND [IDEvenement] = " & Me.[IDEvenement] & _
    " AND [NoEvenement] = " & Me.[NoEvenement]

**Eva71** · 02/08/2007, 17h40

Ça ne fonctionne pas plus. le ploblème c'est que

Code :

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

1
2
 
Forms![F1].Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement]

fonctionne très bien!

Mais j'ai 12 formulaires à faire passer dans cette procédure et je ne veux pas l'écrire 12 fois avec des noms de formulaire différent

**cafeine** · 02/08/2007, 17h44

Hep, ils sont bien tous ouverts tes formulaires ?

**Eva71** · 02/08/2007, 17h49

La procédure précedente OpenChildForm ouvre mes formulaires et elle fonctionne bien

Code :

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

1
2
3
4
5
6
7
 
Private Sub OpenChildForm(byval Nom as string)
 
    DoCmd.OpenForm Nom
    If Not Me.[LienBascule] Then Me![LienBascule] = True
 
End Sub

**bruno28** · 02/08/2007, 17h49

Envoyé par Eva71

Ça ne fonctionne pas plus. le ploblème c'est que

Code :

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

1
2
 
Forms![F1].Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement]

fonctionne très bien!

Mais j'ai 12 formulaires à faire passer dans cette procédure et je ne veux pas l'écrire 12 fois avec des noms de formulaire différent

OK. Avait pas compris.

Je sais pas si ca marche, mais si tu boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i, j
i = 1
j = 0
Dim form(0 To 11)
 
    'Liste les forms
form(0) = Form!NomForm1
form(1) = Form!NomForm2
 
    For i = 1 To 11
form(j).Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement]
j = j + 1
    Next i

**Eva71** · 02/08/2007, 18h08

je ne cherche pas nécessairement à ce que tous les formulaires s'ouvre et se filtre, ça dépend de la valeur choisi dans une liste déroulante du formulaire. c'est pourquoi je renvoyais cette valeur dans ma procédure.

**cafeine** · 02/08/2007, 18h24

et Debug.Print Forms(Nom).Filter ?

**DMboup** · 02/08/2007, 18h30

Et si c'était le nom de la variable "Formulaire" qui pose problème?

**Eva71** · 02/08/2007, 18h32

pas de message d'erreur mais le filtre ne fonctionne pas

**Eva71** · 02/08/2007, 18h39

Envoyé par DMboup

Et si c'était le nom de la variable "Formulaire" qui pose problème?

Tu veux dire... l'appeler autrement? je l'ai déjà appeler formulaire, et ensuite nom...

Je trouve bien bizzare que mes procédure OpenChildForm, CloseChildForm, ChildFormIsOpen fonctionnent bien. Mais je crois vraiment que c'est la façon de l'écrire car dans toutes ces procédures, je le nomme directement sans Forms![] ou autres.

Code :

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

1
2
3
4
 
DoCmd.OpenForm Nom
ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, Nom) And acObjStateOpen) <> False
DoCmd.Close acForm, Nom

**DMboup** · 02/08/2007, 18h44

DoCmd.OpenForm Nom

Nom est aussi un mot qui peut avoir un comportement un peu spécial.

Je serais toi je change le nom des variables. Pas de formulaire ni de nom.

**Eva71** · 02/08/2007, 19h03

Peu importe... reste que

Code :

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

DoCmd.OpenForm Nom

fonctionne et que

Code :

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

Forms![Nom].Filter = "[IDVille] = " & """" & Me.[IDVille]  & """" & " AND [IDEvenement] = " & Me.[IDEvenement] & " AND [NoEvenement] = " & Me.[NoEvenement]

ne fonctionne pas

et je viens d'essayer avec rheui... ne marche toujours pas

**cafeine** · 03/08/2007, 09h21

Hello,

Tu indiques que ça ne marche pas avec (je trouve ça logique)

Code :

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

Forms![Nom].Filter

t'es sûr que ça ne marche pas avec ?

Code :

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

Forms(Nom).Filter

**Eva71** · 03/08/2007, 14h36

J'ai fais un copier coller de mon fichier... et dans ce nouveau fichier
Forms(Nom).Filter
fonctionne très bien!

Ça ne fonctionne toujours pas dans mon fichier original mais bon... je vais continuer avec la copie de mon fichier!

Merci à tous pour votre aide!!

Référence par valeur

IHM

Discussions similaires

Partager

Partager