arkadaşlar örneğin bir e posta adresleriniz var ve bunu ad sekmesini birisi@hotmail.com diye değilde işte o kişi adı neyse örnek erdogan olarak göstermek istiyorsunuz bunun için eposta köprüsü onarma yolu şu şekilde
Private Sub Email_AfterUpdate()
'Bir e posta yazdıysanız: birisi@hotmail.com
'access onu değiştirir: birisi@hotmail.com#[url]http://birisi@hotmail.com#[/url]!!
'bu kod onu düzeltmeye çalışır
Dim intI As Integer
'E Posta boş ise hiçbir şey yapma
If IsNothing(me.Email) Then Exit Sub
'http://varsa düzelt
Me.Email=Replace(Me.Email, "http://", "mailto:")
'şimdi köprü görüntü adını sınırlayan ilk "#" e bak
intI=InStr(Me.Email, "#")
've bulunursa kişi adını onun yerine koy
If intI > 0 Then
Me.Email=(Me.Adı+ " ") & Me.Soyadı & Mid(Me.Email, intI)
End If
End Sub
yukarıda yazılı alanların açıklaması
Email (sizin kişi için belirlediğiniz Emali adreslerini yazdığınız formun üzerindeki görünen alan)
Adı veya Soyadı burada ayrı ayrı genelde personel yada kişi bilgilerini ben ayrı ayrı yazdığımdan bunun birleşimini ayarladım siz tek satırda yazmışsanız eğer AdıSoyadı gibi ozaman birleştirmeden kullanabilirsiniz kolay gelsin
umarım işinize yarar.:hey:
Private Sub Email_AfterUpdate()
'Bir e posta yazdıysanız: birisi@hotmail.com
'access onu değiştirir: birisi@hotmail.com#[url]http://birisi@hotmail.com#[/url]!!
'bu kod onu düzeltmeye çalışır
Dim intI As Integer
'E Posta boş ise hiçbir şey yapma
If IsNothing(me.Email) Then Exit Sub
'http://varsa düzelt
Me.Email=Replace(Me.Email, "http://", "mailto:")
'şimdi köprü görüntü adını sınırlayan ilk "#" e bak
intI=InStr(Me.Email, "#")
've bulunursa kişi adını onun yerine koy
If intI > 0 Then
Me.Email=(Me.Adı+ " ") & Me.Soyadı & Mid(Me.Email, intI)
End If
End Sub
yukarıda yazılı alanların açıklaması
Email (sizin kişi için belirlediğiniz Emali adreslerini yazdığınız formun üzerindeki görünen alan)
Adı veya Soyadı burada ayrı ayrı genelde personel yada kişi bilgilerini ben ayrı ayrı yazdığımdan bunun birleşimini ayarladım siz tek satırda yazmışsanız eğer AdıSoyadı gibi ozaman birleştirmeden kullanabilirsiniz kolay gelsin
umarım işinize yarar.:hey: