วันนี้ผมได้ตอบคำถามไว้ที่
http://bbs.elementkjournals.com/bbs/showpost.pl?Board=ima&Number=15399&page=0&view=collapsed&sb=5
โดยเขาถามคำถามนี้ไว้
I'm looking for VBA code that can be used to change the address part of a hyperlink field from the default "http://" to "mailto:".

Here's my situation...

I have a field defined in a table as Hypeylink. I want to store e-mail addresses in this field. However, Access default to the "http://" prefix whenever you type something in the field.

Thus, I'm looking for some sort of VBA code that can be used to change the address part of the hyperlink field from "http://" to "mailto:" whenever the data in the field is changed.

Thanks in advance to anyone who can assist me,

Tony

ผมเลยได้ตอบเขาไปดังนี้
I use the code below to deal with the problem.

Private Sub CEmail_AfterUpdate()
Dim strEmail As String

If Len(Me.CEmail) > 0 Then
strEmail = Left(Me.CEmail, InStr(Me.CEmail, "#") - 1)
strEmail = strEmail & "#mailto:" & strEmail & "#"
Me.CEmail = strEmail
End If

End Sub

HTH

Cheers!!

Tim K.
Thailand