|
| Sujet n°255 |
criteres sans accents
par momo le 23/07/2009 : 14:43 |
j'ai appliqué le code cela m'affiche une erreur :
Erreur d'exécution '13'
Incompatibilité de type
merci de votre aide
voici une partie du code
If DonneesMedicales2 = "Pathologies-CIM10" And DonneesMedicales3 = "CIM10" Then
Me.LSTDonneesMedicales4.RowSource = "SELECT DonneesMedicales.DonneesMedicales4 FROM DonneesMedicales WHERE (((DonneesMedicales.DonneesMedicales3)='" & Format(Me.DonneesMedicales3, "0") & "') AND ((DonneesMedicales.DonneesMedicales2)='" & Format(Me.DonneesMedicales2, "0") & "') AND ((DonneesMedicales.DonneesMedicales4) Like MatchAccents(Me.RechCIM10) & " * "));" |
| Réponse n° 1 |
par 3Stone le 23/07/2009 : 14:55 |
Bonjour,
Tu utilises peut-être les guillemets alors que le contenu est numérique ou inversément ?
Déjà, comme tu base ta requête sur une seule table, tu peux éclairsir :
If DonneesMedicales2 = "Pathologies-CIM10" And DonneesMedicales3 = "CIM10" Then
Me.LSTDonneesMedicales4.RowSource = "SELECT DonneesMedicales4 FROM DonneesMedicales WHERE (((DonneesMedicales3)='" & Format(Me.DonneesMedicales3, "0") & "') AND ((DonneesMedicales2)='" & Format(Me.DonneesMedicales2, "0") & "') AND ((DonneesMedicales4) Like MatchAccents(Me.RechCIM10) & " * "));"
Et à regarder, il me semble que tu as également un problème de parenthèses...
Ceci dit, les noms de table et champs utilisés me laisse penser que la base n'est pas très normalisée...
Cordialement,
Pierre(3stone)
|
| Réponse n° 2 |
par momo le 23/07/2009 : 19:48 |
Mon pb réside après le like en utilisant la fonction MatchAccents, car si je ne l'utilise pas cela fonctionne très bien mais ca ne prend pas en compte les accents
If DonneesMedicales2 = "Pathologies-CIM10" And DonneesMedicales3 = "CIM10" Then
Me.LSTDonneesMedicales4.RowSource = "SELECT DonneesMedicales4 FROM DonneesMedicales WHERE (((DonneesMedicales3)='" & Format(Me.DonneesMedicales3, "0") & "') AND ((DonneesMedicales2)='" & Format(Me.DonneesMedicales2, "0") & "') AND ((DonneesMedicales4) Like ""*" & Me.RechCIM10 & " * ""));" |
| Réponse n° 3 |
par 3Stone le 24/07/2009 : 20:27 |
Bonjour,
Oui, car la fonction doit être "sortie" de la chaîne que tu crées pour qu'elle soit interprètée...
La fin devrait fonctionner ainsi :
AND ((DonneesMedicales4) Like '" & MatchAccents(Me.RechCIM10) & "'* ));"
Cordialement,
Pierre(3stone)
|
| Réponse n° 4 |
par momo le 24/07/2009 : 23:44 |
Bonsoir,
Merci pour ton aide, en utilisant ton code je n'ai aucune réponse, par contre en le modifiant un peu :
Like ""*" & MatchAccents(Me.RechCIM10) & "*"" ;"
cela fonctionne très bien
Merci beaucoup
@+
|
[ Retour à la liste des sujets ]
| Recherche
Préférences
 1 membre
Connectés :
( personne )
|
visiteurs
visiteurs en ligne
© 2004-2013 
