Rechercher dans une base de donn\u00e9es avec l\u2019op\u00e9rateur Like est assez trivial. Avec quelques jokers on arrive \u00e0 retrouver ce que l\u2019on souhaite. Cependant lorsque on a affaire \u00e0 des contenus ayant des caract\u00e8res accentu\u00e9s il est difficile de r\u00e9cup\u00e9rer \u00e0 la fois ceux qui en comporte et ceux qui n\u2019en ont pas.<\/p>\n\n\n\n
L\u2019objet de ce billet est d\u2019utiliser VBA pour contourner ce probl\u00e8me.<\/p>\n\n\n\n
La premi\u00e8re chose \u00e0 faire est de cr\u00e9er une fonction qui va traiter le mot recherch\u00e9.<\/p>\n\n\n\n
Function ConvertAccForLike(strValue As String) As String\n' Fabrice Constans (MVP ACCESS) mars 2016\nIf InStr(1, strValue, \"a\") > 0 Then\n strValue = Replace(strValue, \"a\", \"[a\u00e0\u00e2\u00e4]\")\nEnd If\nIf InStr(1, strValue, \"e\") > 0 Then\n strValue = Replace(strValue, \"e\", \"[e\u00e9\u00e8\u00ea\u00eb]\")\nEnd If\nIf InStr(1, strValue, \"i\") > 0 Then\n strValue = Replace(strValue, \"i\", \"[i\u00ee\u00ef]\")\nEnd If\nIf InStr(1, strValue, \"o\") > 0 Then\n strValue = Replace(strValue, \"o\", \"[o\u00f4\u00f6]\")\nEnd If\nIf InStr(1, strValue, \"u\") > 0 Then\n strValue = Replace(strValue, \"u\", \"[u\u00f9\u00fb\u00fc]\")\nEnd If\nConvertAccForLike = strValue\nEnd Function<\/pre>\n\n\n\nDans cette fonction, on recherche la pr\u00e9sence des voyelles, une \u00e0 une, en commen\u00e7ant par le a, ensuite le e, puis le i, etc. Chaque fois que la voyelle est d\u00e9tect\u00e9e on la remplace par la syntaxe Contient de l\u2019op\u00e9rateur Like, soit [\u2026]<\/p>\n\n\n\n
Pour le mot \u00ab\u00a0eleve\u00a0\u00bb, la valeur renvoy\u00e9e sera :<\/p>\n\n\n\n
\"[e\u00e9\u00e8\u00ea\u00eb]l[e\u00e9\u00e8\u00ea\u00eb]v[e\u00e9\u00e8\u00ea\u00eb]\"<\/pre>\n\n\n\nLes mots trouv\u00e9s seront :<\/p>\n\n\n\n
eleve, \u00e9leve, \u00e9l\u00e8ve, \u00e9lev\u00e9\u2026<\/strong><\/p>\n\n\n\n
Vous pouvez l\u2019utiliser directement dans objet requ\u00eate, une source de formulaire, une clause Where <\/strong>d\u2019un\u00a0OpenForm <\/strong>ou OpenReport <\/strong>comme dans une requ\u00eate en VBA.<\/p>\n\n\n\n
Voici son utilisation :<\/p>\n\n\n\n
SELECT * FROM matable WHERE champ1 LIKE convertAccForLike(\"eleve\");<\/pre>\n\n\n\n\u00c9videmment vous pouvez compl\u00e9ter avec les autres jokers.<\/p>\n\n\n\n
SELECT * FROM matable WHERE champ1 LIKE convertAccForLike(\"eleve?\");<\/pre>\n\n\n\nDans ce cas la valeur renvoy\u00e9e sera :<\/p>\n\n\n\n
\"[e\u00e9\u00e8\u00ea\u00eb]l[e\u00e9\u00e8\u00ea\u00eb]v[e\u00e9\u00e8\u00ea\u00eb]?\"<\/pre>\n\n\n\nCe bout de code fonctionne avec des tables li\u00e9es, cependant lorsque vous utilisez d’autres bases de donn\u00e9es comme Sql Server, MariaDB, PostgreSql, il vaut mieux travailler directement sur ces derni\u00e8res pour des raisons \u00e9videntes de performance.<\/p>\n\n\n\n
N’h\u00e9sitez pas \u00e0 laisser un commentaire.<\/p>\n","protected":false},"excerpt":{"rendered":"
Rechercher dans une base de donn\u00e9es avec l\u2019op\u00e9rateur Like est assez trivial. Avec quelques jokers on arrive \u00e0 retrouver ce que l\u2019on souhaite. Cependant lorsque on a affaire \u00e0 des contenus ayant des caract\u00e8res accentu\u00e9s il est difficile de r\u00e9cup\u00e9rer \u00e0 la fois … Continuer la lecture