VBA - LIKE est insensible à la casse !

Bonjour, et bonne année à toutes et tous !

Je me trouve dans une situation bizarre, et j'espère que vous saurez m'aiguiller :

J crée une fonction de vérification de correspondance avec un masque :

Code:

---

1 2 3 4

Public Function MasqueOk(ByVal Chaine As String) As Boolean MasqueOk = Chaine Like "[A-Z]" End Function

---

Puis je teste dans la fenêtre de débogage :

Code:

---

1 2 3 4 5

?MasqueOk("A") Vrai ?MasqueOk("a") Vrai

---

8O 8O 8O

L'opérateur LIKE n'est-il pas censé être sensible à la casse ??? :koi:

Alors j'ai pu obtenir cette sensibilité à la casse avec Option Compare Binary en tête de module, mais je voulais savoir s'il existait un autre moyen que d'impacter tout un module pour une seule fonction...

Merci d'avance pour vos réponses éclairées !

Bonjour,
si tu veux comparer en tenant compte de la casse, tu peux aussi utiliser la fonction StrComp :

Code:

---

strcomp("titi", "TiTI",vbBinaryCompare) ' retourne 0 si les chaines sont égales , voir l'aide Access

---

Cdlt

Bonjour.

Par défaut en VBA et en SQL, Access n'est pas sensible à la case.

On peut lui forcer la main dans un module avec :

Code:

---

Option Compare Binary

---

en tête de module.

Je ne connais pas de moyen de le faire en SQL.

A+

Citation:

---

Envoyé par micniv

Bonjour,
si tu veux comparer en tenant compte de la casse, tu peux aussi utiliser la fonction StrComp :

Code:

---

strcomp("titi", "TiTI",vbBinaryCompare) ' retourne 0 si les chaines sont égales , voir l'aide Access

---

Cdlt

---

Bonjour, et merci pour ta réponse rapide, mais en fait j'ai simplifié le code pour ne mettre en évidence le problème rencontré.

Je ne veux pas comparer deux textes, mais un texte avec un masque, et strComp ne le permet pas, au contraire de LIKE.

Merci quand même, et bonne continuation !

Citation:

---

Envoyé par marot_r

Bonjour.

Par défaut en VBA et en SQL, Access n'est pas sensible à la case.

On peut lui forcer la main dans un module avec :

Code:

---

Option Compare Binary

---

en tête de module.

Je ne connais pas de moyen de le faire en SQL.

A+

---

Bonjour, et merci pour ta réponse.

C'est ce que je me suis résolu à faire...

Bonne continuation !