shokadelika
Messages postés26Date d'inscriptionmardi 26 octobre 2004StatutMembreDernière intervention 8 juin 2007 27 févr. 2006 à 23:17
Merci pour ce code. Je débute et j'avais ce problème de lien mail. Encore merci.
musicmandj5
Messages postés42Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention17 février 2005 14 janv. 2005 à 10:48
j'ai enfin trouvé je vais poster pr ceux que ça pourrait intéresser
je fous un label et non une textbox
et je la remplisd e cette façon
'txthide8_lbl est un label
dim h as hyperlink
If rst("contact_mail") <> "" Then
txthide8_lbl.ForeColor = 16711680 'bleu
txthide8_lbl.FontUnderline = True
Set H = txthide8_lbl.Hyperlink
With H
.Address = "mailto:" & rst("contact_mail")
.ScreenTip = rst("contact_mail")
.TextToDisplay = rst("contact_mail")
End With
Else
txthide8_lbl.ForeColor = 0
txthide8_lbl.FontUnderline = False
Set H = txthide8_lbl.Hyperlink
With H
.Address = Null
.ScreenTip = rst("contact_mail")
.TextToDisplay = "No mail"
End With
End If
cs_mariochk
Messages postés11Date d'inscriptionvendredi 1 février 2002StatutMembreDernière intervention 7 octobre 2004 14 janv. 2005 à 09:00
je n'ai pas besoin des données d'une part, mais des tables quand même bien sûr et tu peux le zipper
musicmandj5
Messages postés42Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention17 février 2005 14 janv. 2005 à 08:41
g peur que la base prenne trop de place pr envoyer par mail.....Comment pourrions nous faire?
cs_mariochk
Messages postés11Date d'inscriptionvendredi 1 février 2002StatutMembreDernière intervention 7 octobre 2004 14 janv. 2005 à 00:20
c'est mario@dogacademy.ch. je pense que tu as raison concernant le recordset. A+
musicmandj5
Messages postés42Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention17 février 2005 13 janv. 2005 à 08:52
mais je pense que le pb vient du fait que je passe par un recordset qui me récupère les valeurs d'un contact bien précis. Je n'ai pas créé la textbox avec le wizard d'access
musicmandj5
Messages postés42Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention17 février 2005 13 janv. 2005 à 08:30
Oui c'est ce quil me semblait, quel est ton mail?
cs_mariochk
Messages postés11Date d'inscriptionvendredi 1 février 2002StatutMembreDernière intervention 7 octobre 2004 12 janv. 2005 à 21:20
salut,
En fait, dès que le champ est formaté en lien hypertexte, il réagit sans problème dans la textbox. Il suffit de le glisser dans ton formulaire, je ne comprends pas pourquoi ça ne fonctionne pas. Dans l'absolu, envoie-moi ta base et je regarde ...
musicmandj5
Messages postés42Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention17 février 2005 12 janv. 2005 à 09:16
Hello, J'ai une petite question. Une fois que ce lien est inséré sous access dans une base, je voudrais le récupérer et le mettre dans une textbox. J'ai mis la textbox en lien hypertexte, mais impossible de la faire réagir comme un lien hypertexte......Est ce que tu as une solution?
27 févr. 2006 à 23:17
14 janv. 2005 à 10:48
je fous un label et non une textbox
et je la remplisd e cette façon
'txthide8_lbl est un label
dim h as hyperlink
If rst("contact_mail") <> "" Then
txthide8_lbl.ForeColor = 16711680 'bleu
txthide8_lbl.FontUnderline = True
Set H = txthide8_lbl.Hyperlink
With H
.Address = "mailto:" & rst("contact_mail")
.ScreenTip = rst("contact_mail")
.TextToDisplay = rst("contact_mail")
End With
Else
txthide8_lbl.ForeColor = 0
txthide8_lbl.FontUnderline = False
Set H = txthide8_lbl.Hyperlink
With H
.Address = Null
.ScreenTip = rst("contact_mail")
.TextToDisplay = "No mail"
End With
End If
14 janv. 2005 à 09:00
14 janv. 2005 à 08:41
14 janv. 2005 à 00:20
13 janv. 2005 à 08:52
13 janv. 2005 à 08:30
12 janv. 2005 à 21:20
En fait, dès que le champ est formaté en lien hypertexte, il réagit sans problème dans la textbox. Il suffit de le glisser dans ton formulaire, je ne comprends pas pourquoi ça ne fonctionne pas. Dans l'absolu, envoie-moi ta base et je regarde ...
12 janv. 2005 à 09:16
Merci d'avance