probleme boucle if [Résolu]

[xargin]

Bonjour,

j'ai ce code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Dim reponse As String
            sql = "select Reference, NomMP from FOURNISSEUR where NomMP='" & Me.majnommp & "';"
            Set rs = CurrentDb.OpenRecordset(sql)
            rs.MoveFirst
            Do While Not rs.EOF
                ref = rs.Fields("Reference").Value
                MsgBox (ref)
                If (ref = "FT") Then
                    reponse = MsgBox("Changer la reference ?", vbYesNo)
                    If (reponse = vbYes) Then
                        MsgBox ("salut")
                    End If
                Else
                    MsgBox ("salut2")
                End If
                rs.MoveNext
            Loop

la boucle "if", ne fonctionne pas. En effet, il passe directement dans le "else".
je ne comprend pas pourquoi
merci de votre aide

[marot_r]

Que vaut Ref au moment du test ?

A+

[xargin]

ref vaut FT

[pc75]

Bonjour,

A essayer ?

Code :

1
2
 
If uCase(Trim(ref)) = "FT" Then

[xargin]

merci cela fonctionne

[marot_r]

Pour infos sauf indication contraire Access ne différencie pas les minuscules des majsucules donc probablement que tu avais des blancs après le FT.

A+

[xargin]

Envoyé par marot_r

Pour infos sauf indication contraire Access ne différencie pas les minuscules des majsucules donc probablement que tu avais des blancs après le FT.

oui, c'est une valeur que je recupere dans ma base, et access met des blanc a la fin des données dans la table.