Discussion :

[ttfme]

Bonjour,

j'ai une db pour des kinés.
Le but est de pouvoir lister par ville(s) tous les kinés.
une table SIG avec champs Nokine , nom etc... Nokine étant le clé. Une table CPLocalite avec id_localite comme clé et champs code postal , localite
Une table de jonction sig_cplocalite qui reprend num_sig qui est en lien avec Nokine de la première table et num_cplocalite qui est en liaison avec id_localite de la deuxième table.

J'ai un formulaire où j'ai une liste de choix pour sélectionner les villes. Sur ce même formulaire, un bouton pour ouvrir le report avec le filtre des villes sélectionnées ....voici le code sur click

:

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
23
24
25
Private Sub BtnList_Click()
 
  Dim varI As Variant
  Dim strFiltre As String
  Dim test As String
 
  strFiltre = ""
  If Me.lstlocalite.ItemsSelected.Count = 0 Then
    MsgBox "Aucune localité n'a été sélectionnée"
  Else
     For Each varI In Me!lstlocalite.ItemsSelected
        If strFiltre = "" Then
            strFiltre = "[CPLocalite].[id_localite]= " & Me!lstlocalite.ItemData(varI)
        Else
            strFiltre = strFiltre & " AND "
            strFiltre = strFiltre & "[CPLocalite].[id_localite]= " & Me!lstlocalite.ItemData(varI)
        End If
    Next varI
    MsgBox ("condition : " & strFiltre)
    DoCmd.OpenReport "R_Kine_CPLocalite", acViewReport, "", strFiltre
 
 
  End If
 
End Sub

Quand mon report s'ouvre il me demande dans une dialog box [CPLocalite].[id_localite] ?????


merci d'avance,


david

[loufab]

Bonjour,

Si tu ne transmets pas de valeur au paramètre ne met rien.

Code :

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

DoCmd.OpenReport "R_Kine_CPLocalite", acViewReport, , strFiltre

La source ne trouve pas [CPLocalite].[id_localite] d'où le message. Tu l'as inclus dans l'état en tant que contrôle ?

Cordialement,

[ttfme]

Bonjour,

en effet, j'avais déjà essayé sans les "" mais cela n'est pas la cause du problème.
C'est une adaptation de code que j'ai trouvé sur ce forum c'est donc pour cela que je ne comprends pas d'où vient ce [CPLocalite].[id_localite] .
Mon report est basé sur une requête. quand j'exécute cette requête, access me renvoie bien les bonnes données (non filtrées) et quand dans le design view de ma requête, je spécifie comme critère de [CPLocalite].[id_localite] un nombre valite, il filtre bien comme il doit.
Vous pensez que [CPLocalite].[id_localite] est un champs de mon report et que celui-ci n'est pas rempli par le critère que je rempli comme passage de paramètre à l'ouverture de mon report?
En exécutant simplement la requête sans passer par le report, il exécute bien sans avoir besoin de ce [CPLocalite].[id_localite] ??

merci de votre aide et bonne journée,

ttfme

[loufab]

Non bien entendu que cela ne vient pas du "".

Je mettrais le champ id_localite dans le report, en invisible éventuellement, et dans l'appel je mettrais simplement :

Code :

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

strFiltre = "[id_localite]= " & Me!lstlocalite.ItemData(varI)

[ttfme]

Bonjour,


merci pour vos recherches,

j'ai simplifié mon code pour enlevé toutes les causes possible de ce problème
voici ce que j'ai tenté :

Code :

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

strFiltre = "[id_localite]= 49"

et aussi

Code :

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

strFiltre = "[CPLocalite_id_localite]=49 "

et il me donne toujours le dialogbox : [CPLocalite_id_localite] ?

Je vous joins le query sur lequel est basé mon report ainsi que le report avec les caractéristiques de la zone de texte qui pose problème.

Merci d'avance,

ttfme

[loufab]

Avec le Name et Control Source réglé sur id_localite et en mettant ceci :

Code :

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

strFiltre = "[id_localite]=49"

Il est toujours demandeur de id_localite ?

Très étrange.

[loufab]

Lorsque; qu'avec le réglage précédent, tu tapes ceci dans la fenêtre d'exécution de VBE :

Code :

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

DoCmd.OpenReport "R_Kine_CPLocalite", acViewPreview,, "[id_localite]= 49"

Il te demande encore id_localite ?

[ttfme]

J'ai changé dans le report sur le text box , le nom est : id_localite ainsi que la source comme tu m'as proposé.
Il me demande toujours CPLocalite_id_localite dans son dialogbox?????
Je ne sais même pas où cette variable se situe????
Je n'ai pas connaissance d'avoir encore ce nom là nul part?

[loufab]

Veux-tu que je regarde ton appli ?

[ttfme]

Bonjour,


Voilà, j'ai refait un report à neuf et cela fonctionne à présent.


Un tout grand merci pour votre aide