Discussion :

[tee_grandbois]

j'ai modifié les paramètres de date, le séparateur étant le point et non la barre, et j'ai aussi mis le jour avant le mois.
j'ai essayé avec l'année sur 2 chiffres mais j'ai la même chose

pourquoi changer le code que j'ai donné ?
à part l'erreur détectée par hyperion13 :

Euh... il manque un # dans votre WHERE

le format n'est qu'un artifice de présentation, une date reste un champ numérique quel que soit le format

[novalisdom]

il ne fonctionne pas, j'ai donc tout tenté

[tee_grandbois]

j'ai testé en changeant mes paramètres Windows et j'ai un souci avec ce format, donc on va faire autrement car en SQL, le format date avec points pose problème lorsqu'on l'utilise avec des variables externes.
Comme les dates sont des champs numériques on va remplacer les dates du formulaire par des entiers longs et convertir DateJour également:

Code :

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

1
2
3
4
5
6
7
8
  Dim lgdtDeb As Long
  Dim lgdtFin As Long
...
  lgdtDeb = CDate(Format(Me![FrmDebut], "mm/dd/yyyy"))
  lgdtFin = CDate(Format(Me![FrmFin], "mm/dd/yyyy"))
...
& "WHERE Clng(T_Suivi.DateJour) between " & lgdtDeb & " and " & lgdtFin & " " _
...

autre chose: les dates du formulaire sont cadrées à gauche, signe que se sont certainement des champs de type texte et pas date ...

[Jeannot45]

Désolé, je prends la discussion en route. Le problème de départ soumis par novalisdom m'a fait pensé à un tuto (Les listes multifonctions) dans lequel, j'explique comment combiner plusieurs critères dans une requête

J'y ai simulé l'utilisation des filtres automatiques d'Excel.

Je pense qu'il pourrait peut-être y trouver une piste de réflexion

[novalisdom]

Tee
bonjour, ce qui veut dire que si l'ordinateur ou je vais installer l'appli n'a pas les mêmes paramètres, on recommence tout ?
Je teste malgré tout le code et je vous tiens au courant

Jeannot,
merci je vais aller jeter un œil

[novalisdom]

tee, le code je l'insère ou exactement (je ne suis pas une pro, je vous rappelle, ou alors c'était il y a longtemps, longtemps)

[tee_grandbois]

bonjour,

bonjour, ce qui veut dire que si l'ordinateur ou je vais installer l'appli n'a pas les mêmes paramètres, on recommence tout ?

ben non, au contraire, convertir la date en numérique cela permet d'éviter les problèmes de format de dates ...

le code je l'insère ou exactement (je ne suis pas une pro, je vous rappelle, ou alors c'était il y a longtemps, longtemps)

il suffisait de compléter ton code d'origine, cela donne ceci:

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
Private Sub Bt_ok_Click()
  Dim lgdtDeb As Long
  Dim lgdtFin As Long
  Dim stSql As String
  Dim qdf As QueryDef
 
  ' conversion des dates en numérique
  lgdtDeb = CDate(Format(Me![FrmDebut], "mm/dd/yyyy"))
  lgdtFin = CDate(Format(Me![FrmFin], "mm/dd/yyyy"))
 
  stSql = "TRANSFORM Count(T_Suivi.Motif) AS CompteDeMotif " _
& "SELECT T_Femmes.N° " _
& "FROM T_Femmes LEFT JOIN T_Suivi ON T_Femmes.N° = T_Suivi.N° " _
& "WHERE Clng(T_Suivi.DateJour) between " & lgdtDeb & " and " & lgdtFin & " " _
& "GROUP BY T_Femmes.N° " _
& "PIVOT T_Suivi.Motif In (""Agression"",""Agression sexuelle"",""Autre"",""Difficultés"",""Harcèlement travail"",""Inceste"",""Planning"",""Violences anciennes"",""Violences conjugales"",""Violences familiales"");"
 
  Set qdf = CurrentDb.QueryDefs("R_nbFemmeMotif00")
  qdf.SQL = stSql
 End Sub

[tee_grandbois]

Désolé, je prends la discussion en route. Le problème de départ soumis par novalisdom m'a fait pensé à un tuto (Les listes multifonctions) dans lequel, j'explique comment combiner plusieurs critères dans une requête

J'y ai simulé l'utilisation des filtres automatiques d'Excel.

Je pense qu'il pourrait peut-être y trouver une piste de réflexion

bonjour Jeannot45,
le (ou plutôt les) souci est ailleurs: une requête analyse croisée n'accepte pas les paramètres issus d'un formulaire (du type WHERE MonChamp = Formulaires![MonFormulaire]![MonControle]) et qui plus est, se sont des dates ayant un format avec des points, ce que le SQL n'aime pas si on essaie de les convertir.

La seule solution c'est de reconstruire la requête à chaque demande et d'utiliser les dates dans leur format natif (réel double, avec les heures ou entier long, sans les heures)

[novalisdom]

je vérifie demain et je vous tiens au courant.
plein d'autres soucis à vous soumettre, mais avant je cherche....
merci tout plein à vous tous,
et à demain

[novalisdom]

Merci Tee et les autres
j'ai tout changé ....eh oui
J'ai créé une requête création de table avec les critères de date et ensuite toutes mes autres requêtes se basent sur cette table.
J'utiliserai le code du formulaire, lorsque j'en serais à la création de l'appli à proprement parler.
Il ne me reste que 2 états à créer et normalement, si tout va bien ce sera ok.
Je vais donc mettre résolu sur ce post.
Je reviendrais certainement vers vous pour le reste.
MERCI MERCI MERCI