Problème de type dans un select case Fermé

Question

Bonjour,

voici mon code avec lequel j'ai un problème :


Do Until enr1.EOF


    Select Case enr1![IT Numéro de désignation]
          "Case enr2![IT Numéro de désignation] And ((enr2!semaine - enr1!semaine)< 3"
                enr1.Edit
                    enr1!rang_bis = i1
                enr1.Update
                i1 = i1 + 1
           Case Else
                enr1.Edit
                    enr1!rang_bis = i1
                enr1.Update
                i1 = 1
        End Select

J'ai une erreur lors de l'exécution :  "incompatibilité de type" sur la ligne qui est entre guillements.

Si quelqu'un peut m'aider

le père · Answer

Bonjour

"enr2![IT Numéro de désignation]" est suivi de And, ce devrait donc être un booléen. Or ce n'en est probablement pas un.
Tu ne voulais pas plutôt faire :

Select Case enr1![IT Numéro de désignation]
  Case enr2![IT Numéro de désignation] 
    if (enr2!semaine - enr1!semaine)< 3" then
    ...
    endif

Problème de type dans un select case

1 réponse

Discussions similaires