Discussion :

[popofpopof]

bonjour,

je souhaite ouvrir un formulaire avec deux filtre mais j'ai une erreur erreu 13 incompatibilité type.

Vous pouvez m'aidé?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Détail du nombre estimation"
 
        stLinkCriteria = "[AFFECTE_A] = " & " '" & Me![PSEUDO_SALARIE] & "'"
 
         stLinkCriteria = stLinkCriteria And "[filtremois]='mois'"
 
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria

[tee_grandbois]

Bonsoir,
les noms d'objets contenant des espaces doivent être balisées par des crochets dan VBA.
Mois : est-ce une variable ou un nom de champ ?
On met des quotes si mois est du texte, sinon # pour une date et rien pour un nombre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim stDocName As String
Dim stLinkCriteria As String
 
stDocName = "[Détail du nombre estimation]"
 
stLinkCriteria = "[AFFECTE_A] = '" & Me![PSEUDO_SALARIE] & "'"
 
stLinkCriteria = stLinkCriteria & " And [filtremois]='" & mois & "'"   
 
 
DoCmd.OpenForm stDocName, , , stLinkCriteria