Discussion :

[Sneige]

Bonjour,

Je souhaiterai ouvrir un état selon deux critères (dateF et ID_PIa) issu d'un formulaire. Lorsque j'effectue les filtres séparément avec les codes suivant, mes filtres fonctionnent :

Code :

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

1
2
3
4
Private Sub outputtest_Click()
CheminDossier = GetFolderName()
DoCmd.OpenReport "Étatintervenanintraemarg", acViewPreview, , "[DateF] = # " & Me.[DateF] & "#"
End Sub

Code :

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

1
2
3
4
Private Sub outputtest2_Click()
CheminDossier = GetFolderName()
DoCmd.OpenReport "Étatintervenanintraemarg", acViewPreview, , "[ID_PIa] =" & Me.[ID_PIa]
End Sub

Mais lorsque je veux avoir les 2 filtres simultanément le code suivant ne fonctionne pas :

Code :

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

1
2
3
4
Private Sub outputtest3_Click()
CheminDossier = GetFolderName()
DoCmd.OpenReport "Étatintervenanintraemarg", acViewPreview, , "[ID_PIa] =" & Me.[ID_PIa] And "[DateF] = # " & Me.[DateF] & "#"
End Sub

Access me dit : "Erreur d'exécution 13 - Type incompatible".
Quelqu'un aurait une solution à me proposer? Je ne vois pas mon erreur...

Merci d'avance

[loufab]

Bonjour,

Le and fait partie de la condition Where SQL et non de VBA.
Ceci :

Code :

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

1
2
 
DoCmd.OpenReport "Étatintervenanintraemarg", acViewPreview, , "[ID_PIa] =" & Me.[ID_PIa] And "[DateF] = # " & Me.[DateF] & "#"

doit être écrit comme ceci :

Code :

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

DoCmd.OpenReport "Étatintervenanintraemarg", acViewPreview, , "[ID_PIa] =" & Me.[ID_PIa] & " And [DateF] = #" & Me.[DateF] & "#"

Est-ce clair ?

Attention aux dates en VBA qui sont TOUJOURS au format UK/US.

Cordialement,

[Sneige]

C'est très clair! Merci à vous, je n'avais pas remarqué cette différence et pourtant cela fait un moment que je cherche....

Bien cordialement.