Discussion :

[rominous41]

bonjour ,
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
str = "select email_Tiers from ADHERENT where matricule_Tiers = '" & collec(cpt).mattiers & "' and email_Tiers is not null"
         Set sql = CurrentDb().OpenRecordset(str)
         If sql.RecordCount = 0 Then
            MsgBox "Pas d'email pour l'adhérent :" & collec(cpt).mattiers
        Else
            MsgBox sql!email_Tiers
           collec(cpt).mail = sql!email_Tiers
        End If
        sql.Close
        Set sql = Nothing

Dans la classe qui définit l'objet collec(cpt) ( collec étant une collection d'objet) la variable mail est bien de type hyperlink et dans ma table ADHERENT email_Tiers est bien de type lien hypertexte

Pourtant à l'execution de mon code j'ai l'erreur 91 qui s'active et la ligne

Code :

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

1
2
 
collec(cpt).mail = sql!email_Tiers

est surligné en jaune

et la msgbox affiche @#mailto:@#

Quelqu'un a til une idée sur une solution au problème ??

merci d'avance et bonne journée

[Invité]

Bonjour

Je préfère écrire comme cela

Code :

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

collec(cpt).mail = sql("email_Tiers")

Philippe

[rominous41]

d'accord mais pourquoi est ce que c'est mieux ta façon d'écrire sa m’intéresse ??

merci d'avance
bonne journée

[Invité]

Re

D'abord est-ce que cela fonctionne maintenant ?

J'utilise aussi d'autres langage de programmation tel que VB6, un peu de vb.net et un autre langage spécifique à mon métier.

Et cette manière d'écrire est pour moi plus logique et plus facile à décortiquer que ces ! que je déteste dans le code sous Access, d'ailleurs je ne les utilise jamais.

Philippe

[rominous41]

non cela ne fonctionne toujours pas