Discussion :

[musicales]

Bonjour,

Sous VBA Access 2016, j'ai une chaîne (dim Caract As String) de caractères. Selon la fenêtre de variables locales, elle vaut "r", dans la fenêtre d'exécution ? Caract renvoie "r", ? Asc(Caract) renvoie 114 et ? Len(Caract) renvoie 1. Jusque là, tout est normal.

Cependant le test ? Caract="r" renvoie Faux.

Je programme régulièrement sous VBA mais j'ai du passer à côté de quelque chose.

Avez vous une explication ?

Cordialement

[marot_r]

Bonjour.

À tout hasard, vérifie que tu as bien Option Compare Database en haut de module.

A+

[marot_r]

Et vérifie aussi qu'au moment où tu fais le test Caract vaut bien ce que tu crois qu'elle vaut.

A+

[musicales]

Oui l'option Compare Database est bien activée en entête du module.

Je lis les valeurs et effectue le test en mode debogage, la valeur apparait ainsi dans la fenêtre des variables globales.

[tee_grandbois]

bonsoir,
peut-on voir le code complet histoire de voir ce qu'il doit faire ?

[musicales]

En réalité, c'est à la suite d'un Case Select qui ne fonctionnait pas correctement, que j'en suis arrivé à simplifier le problème. A l'intérieur du programme, le test se déroule ainsi:

Code :

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

1
2
3
4
5
               Dim Caract As String
               Caract = Surnoms.Surnom
               Caract = Mid(Caract, 10, 1)
               Debug.Print Caract, Asc(Caract), Len(Caract), Caract = "r"
               Stop

Et la fenêtre d'exécution affiche:

               r              114           1            Faux

Et c'est le dernier Faux qui me gêne. Il m'empêche de tester une chaîne entière plus grande contenant ce caractère. Les autres caractères de la chaîne Mid(Caract, 9, 1) par exemple renvoie un test correct sur le =.

[tee_grandbois]

que vaut Caract après Caract = Surnoms.Surnom ?

quel est le type de Surnoms.Surnom ?

et que renvoie le test Asc(Caract) = 114 ?

[musicales]

Surnoms est de type Prop_Surnom:

Code :

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

1
2
3
4
5
6
7
Private Type Prop_Surnom
   Surnom As String           ' Surnom d'origine
   Surnom_Sspar As String     ' Surnom sans les parenthèses
   Surnom_Born As String      ' Surnom avec le nom de naissance
   Nom As String              ' Nom de famille usuel
   Nom_Born As String         ' Nom de famille de naissance
End Type

asc(caract)=114 renvoie Vrai

[tee_grandbois]

Cstr(Caract) = "r" et Mid(Surnoms.Surnom, 10, 1) = "r"
renvoient quoi ?

[musicales]

? Cstr(Caract) = "r" renvoie Faux

et

? Mid(Surnoms.Surnom, 10, 1) = "r" renvoie Faux

[tee_grandbois]

pas sympa on dirait un vrai bug

c'est possible d'avoir la base allégée en pièce jointe ?

[Invité]

bonjour,

et ceci

Code :

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

Debug.Print StrComp(Caract, "r", vbTextCompare)

sinon essayer de décompiler, recompiler et compacter la base via le .bat de fabulous loufab

[musicales]

StrComp(Caract, "r", vbDatabaseCompare) renvoie 1

et donc Caract>"r" envoie Vrai.

Je sais compiler et compacter la base. Je ne sais pas décompiler et je n'ai pas trouvé le .bat sur la page de Fabulous Loufab.

[musicales]

Désolé, StrComp(Caract, "r", vbTextCompare) renvoie 1 aussi

[musicales]

Peut-être une piste. Asc(Caract) renvoie 114, AscB(Caract) renvoie 89 tandis que AscW(Caract) renvoie 345.

En général on a Asc(x)=AscB(x)=AscW(x)

[ilank]

Bonjour,

La chaine de caractères est en unicode (un caractère sur 2 octects) et tu testes une valeur ANSI (1 caractère sur 1 octet).

Regarde du cote de strconv pour convertir la chaine de caractères avant traitement.

[Arkham46]

Bonjour,

Effectivement 345 cest un ř (avec un petit chapeau).
Sans doute que vba ne sait pas l'afficher dans l'éditeur, mais ce n'est pas un simple r.