11/02/2011, 16:13
Arkadaşlar
Örneğin müşteri kartınızdaki Mail ve Web adresleri alanlarınızı
tablonuzda "köprü-hyperlink" olarak belirlemediniz ve zaten bu
bilgileri düz metin olarak depolamak istiyorsunuz !
Müşteri Mail adresi > musteri_MAIL = "okileturc@okileturc.com"
Müşteri Web adresi > musteri_WEB = "www.okileturc.com"
Ancak bu bilgileri form üzerinde kullanışlı
hale getirmek istiyorsunuz
1. Aşağıdaki 2 fonksiyonu modüller sekmenizde yeni
modül olarak kayıt edin. Form ve alan adlarını kendinize
uyarlayın
2. Form üzerinde MAIL alanı yanına bir buton yerleştirin
ve tıklandığında olayına aşağıdaki kodu yazın
3. Form üzerinde WEB alanı yanına bir buton yerleştirin
ve tıklandığında olayına aşağıdaki kodu yazın
Kolay gelsin
Örneğin müşteri kartınızdaki Mail ve Web adresleri alanlarınızı
tablonuzda "köprü-hyperlink" olarak belirlemediniz ve zaten bu
bilgileri düz metin olarak depolamak istiyorsunuz !
Müşteri Mail adresi > musteri_MAIL = "okileturc@okileturc.com"
Müşteri Web adresi > musteri_WEB = "www.okileturc.com"
Ancak bu bilgileri form üzerinde kullanışlı
hale getirmek istiyorsunuz
1. Aşağıdaki 2 fonksiyonu modüller sekmenizde yeni
modül olarak kayıt edin. Form ve alan adlarını kendinize
uyarlayın
Public Function GoToMailAdress()
Dim strURL As String
strURL = "mailto:" & Forms!Form1!musteri_MAIL
Application.FollowHyperlink (strURL)
End Function
Public Function GoToWebSite()
Dim strURL As String
strURL = "http:\\" & Forms!Form1!musteri_WEB
Application.FollowHyperlink (strURL)
End Function
2. Form üzerinde MAIL alanı yanına bir buton yerleştirin
ve tıklandığında olayına aşağıdaki kodu yazın
Call GoToWebSite
3. Form üzerinde WEB alanı yanına bir buton yerleştirin
ve tıklandığında olayına aşağıdaki kodu yazın
Call GoToMailAdress
Kolay gelsin