Discussion :

[lolothom]

bonjour

j'ai une zone de liste filtrée par une valeur numdem d'un formulaire F_demande, j'ai donc le contenu de la zone de liste

Code :

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

1
2
3
4
SELECT T_commentaires.id_commentaire, T_commentaires.NUMDEMANDE, T_commentaires.DATE, T_commentaires.AUTEUR, T_commentaires.sujet
FROM T_commentaires
WHERE (((T_commentaires.NUMDEMANDE)=[forms]![F_demande]![numdem]))
ORDER BY T_commentaires.DATE DESC;

le pb quand je ferme le formulaire j'ai une msgbox me demandant la valeur du paramètre [forms]![F_demande]![numdem]

[vodiem]

salut,

ta requete est correcte.

si tu ferme le form F_demande, la valeur numdem n'est plus accessible. il y a donc erreur.

donc il ne faut pas fermer le F_demande quand la liste est ouverte où faire une fonction qui si le form est ouvert donne numdem sinon définit une valeur par defaut.

[lolothom]

bonjour

Code :

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

où faire une fonction qui si le form est ouvert donne numdem sinon définit une valeur par defaut.

c'est exactement cà mais je ne sais pas faire

[vodiem]

voilà à quoi ca devrait ressembler:

Code :

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

1
2
3
4
5
6
7
8
9
Public Function DonneValeur() As Variant
DonneValeur = "Val par défaut"
For Each f In Forms
    If f.Name = "F_demande" Then
        DonneValeur = Forms![F_demande]![numdem]
        Exit For
    End If
Next n
End Function

sur un module à part

[lolothom]

bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function DonneValeur() As Variant
Dim n As Integer
Dim F As Form
 
DonneValeur = "Val par défaut"
For Each F In Forms
    If F.Name = "F_DEMANDE" Then
        DonneValeur = Forms![F_DEMANDE]![NUMDEM]
        MsgBox DonneValeur
        Exit For
    End If
Next F
End Function

j'ai fait cà

donnevaleur me donne bien une valeur non nulle (msgbox)

par contre je mets où l'appel de la fonction

j'ai fait sur fermer de mon formulaire

Code :

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

1
2
donnevaleur
docmd.close

mais toujours le msgbox me demandant la valeur du paramètre [forms]![F_demande]![numdem]

[vodiem]

non dans la requete:

Code :

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

1
2
3
4
SELECT T_commentaires.id_commentaire, T_commentaires.NUMDEMANDE, T_commentaires.DATE, T_commentaires.AUTEUR, T_commentaires.sujet
FROM T_commentaires
WHERE (((T_commentaires.NUMDEMANDE)=donnevaleur()))
ORDER BY T_commentaires.DATE DESC;

[lolothom]

c'est super ce truc
ca marche nickel

Francishop va etre content je fais des progres !!

[vodiem]

bravo lolothom,
bon on va pas lui dire à francishop que je t'ai donné un coup main alors...

[lolothom]

bonjour

je voulai dire je progresse gràce à vous tous !!