Recherche multi-critères

**PAUL87** · 11/12/2005, 22h00

j'ai donc bien appliqué la modif que tu m'a conseillé...
j'ai exactement le meme résultat
par contre lorsque j'utilise l'apostrophe devant la ligne ""Me.lblStats.Caption.....
j'ai exactement le meme message d'erreur 3075 avec cette fois la ligne

Code :

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

Resul = DCount("*", "Patients", SQLWhere)

**PAUL87** · 12/12/2005, 08h47

bonjour,
donc si je met une apostrophe devant

Code :

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

Me.lblStats.Caption = DCount("*", "Patients", SQLWhere) & " / " & DCount("*", "Patients")

et une autre devant

Code :

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

Resul = DCount("*", "Patients", SQLWhere)

CA FONCTIONNE TRES BIENle filtrage s'effectue à la perfection!!
sauf comme prévu le comptage et affichage des résultats.
Quelle est la modif à realiser? et sutout m'expliquer pourquoi...
Merci

**keita** · 12/12/2005, 09h45

bonjour Paul,
eh bien enleve maintenant les appostrophes;on va debogguer cette partie
@+

**PAUL87** · 12/12/2005, 09h52

Bonjour,
Ok apostrophes enlevées..
donc meme code erreur à l'exécution 3075
avec surlignage sur : "Me.lblStats.Caption....

**keita** · 12/12/2005, 09h59

Eh bien fais ça:
partie du code actuel:

Code :

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

Me.lblStats.Caption =....

essai ça:

Code :

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

Me!lblStats.Caption =....

le point d'exclamation!!!!!!!!!!!! entre Me et lblstats.
et puis essai de me mettre une partie ou tout le texte du message;c'est important.
@+

**PAUL87** · 12/12/2005, 10h12

J'ai toujours le meme resultat avec le point ou avec le point d'exclamation.
Erreur3075
"erreur de syntaxe dans l'expression 'patients!reclin<>0 and patients!nometude= " and Patients!typedepathologie= "and Patients![DC]=True

**PAUL87** · 12/12/2005, 10h21

ne peut-il pas s'agir d'une modif à faire sur SQLWHERE en fonction de chkDC value???

**PAUL87** · 12/12/2005, 10h32

Il y a donc bien une erreur dans

Code :

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

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

car si je supprime completement cette ligne cela fonctionne a nouveau
MAISavec seulement le total des enregistrements et pas le nbre trouvé apres filtrage

**keita** · 12/12/2005, 10h48

dans cette partie:

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
If Not Me.chkNomEtude Then 
    If Len(chkNomEtude) > 0 Then 
    SQL = SQL & "And Patients!NomEtude = '" & Me.cmbRechNomEtude & "' " 
    End If 
End If 
 
If Not Me.chkNomInvestigateur Then 
    If Len(chkNomInvestigateur) > 0 Then 
    SQL = SQL & "And Patients!NomInvestigateur = '" & Me.cmbRechNomInvestigateur & "' " 
    End If 
End If 
 
 
If Not Me.chkTYPEDEPATHOLOGIE Then 
    If Len(chkTYPEDEPATHOLOGIE) > 0 Then 
    SQL = SQL & "And Patients!TYPEDEPATHOLOGIE = '" & Me.cmbRechTYPEDEPATHOLOGIE & "' " 
    End If 
End If

fais comme ça:

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
If Not Me.chkNomEtude Then 
    If Len(chkNomEtude) > 0 Then 
    SQL = SQL & "And Patients!NomEtude = '" & Me!cmbRechNomEtude & "' " 
    End If 
End If 
 
If Not Me.chkNomInvestigateur Then 
    If Len(chkNomInvestigateur) > 0 Then 
    SQL = SQL & "And Patients!NomInvestigateur = '" & Me!cmbRechNomInvestigateur & "' " 
    End If 
End If 
 
 
If Not Me.chkTYPEDEPATHOLOGIE Then 
    If Len(chkTYPEDEPATHOLOGIE) > 0 Then 
    SQL = SQL & "And Patients!TYPEDEPATHOLOGIE = '" & Me!cmbRechTYPEDEPATHOLOGIE & "' " 
    End If 
End If

remplace le point par des !!!!!!!!!!!!!!!!!
dis moi que represent rtes controles dont le nom commence par chk?
on va finir par y arriver; on y est presque; c'est sur c'est dans sqlwhere.
@+

**PAUL87** · 12/12/2005, 11h05

meme résultat avec les points ou points d'exclamation et meme message d'erreur.
les autres controles chk sont des cases a cocher qui activent(ou désactivent) des cmbox liees à des listes déroulantes dans lesquelles on selectionne les criteres il y a 3 chk liees a 3 cmbox
c'est sur qu'on est pres du but ...mais

**keita** · 12/12/2005, 11h25

ok verifie bien que tu as:

Code :

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

1
2
3
If Me.chkDC Then 
  SQL = SQL & " And Patients![DC]=True;" 
End If

i.e l'espace avant le "And"; j'ai l'impression que l'a fait sauter.

**PAUL87** · 12/12/2005, 11h35

non non j'ai:

Code :

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

1
2
3
If Me!chkDC.Value = True Then
  SQL = SQL & " And Patients![DC]=True;"
End If

**Tofalu** · 12/12/2005, 11h40

Code :

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

1
2
3
If Me!chkDC.Value = True Then 
  SQL = SQL & " And Patients![DC]=True;" 
End If

ça ne serait pas mieux ainsi ?

Code :

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

  SQL = SQL & " And Patients![DC]=" & Me!chkDC.Value

Enfin, je sais pas en fait, ça dépend de ce que tu veux faire

**PAUL87** · 12/12/2005, 11h57

SUPER ça fonctionne enfin!!!!!!!
par contre comment se fait-il qu'à l'ouverture du form et des la premiere sélection sur une cmbox le filtrage s'effectue directement avec chkDC activé
ce qui se concretise par un affichage deja filtré par chkDC il faut décocher la case pour rétablir l'affichage

**keita** · 12/12/2005, 11h57

Oui Tofalu, mais je pense plutot que le pb est dans cette ligne:

Code :

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

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

Paul, isole la ligne avec une '''''''''''''''''' et fais ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Me.chkDC Then 
  SQL = SQL & "And Patients![DC]=True;"
  else
       SQL = SQL & ";"
End If 
 
'SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1)) 
 
 
 
Me.lblStats.Caption = DCount("*", "Patients", SQL) & " / " & DCount("*", "Patients")

Attention, j'ai changé quelque chose ici:

Code :

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

DCount("*", "Patients", SQL) & " / " & DCount("*", "Patients")

le SQL à la place du SQLWhere.
Essai ça paul.
@+[/code]

**PAUL87** · 12/12/2005, 12h20

ben non keita,
j'ai toujours le meme code d'erreur
la soluce de [/b]tofalusemble parfaitement fonctionner..
mais pourquoi ce filtrage chkDC actif des le début???

**PAUL87** · 12/12/2005, 12h27

oups, j'avais pas vu mais la solution de tofalu fonctionne mais le compteur n'affiche que le nombre du resultat trouvé et pas le résultat trouvé/(sur/nombre total d'enregistrement

**PAUL87** · 12/12/2005, 12h36

mais je peux modifier mon affichage en rajoutant

Code :

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

=CpteDom("*";"[PATIENTS]")

cela ne règle pas le probleme de chkDC actif au lancement du form...
il faudrait que chk DCsoit décoché au lancement

**PAUL87** · 13/12/2005, 09h20

bonjour,
est-il possible d'inverser l'état d'une case a cocher lors du lancement d'un form?

**cafeine** · 13/12/2005, 10h55

Keita, je n'ai pas trop compris pourquoi les "!" marcheraient mieux que les "." ...

Paul, Oui on peut définir la valeur d'un contrôle à l'ouverture d'un formulaire.

Recherche multi-critères

Access

Discussions similaires

Partager

Partager