title image


Smiley Re: Wie Hyperlink-Feld als Email vorformatieren


Private Sub MeinHyperlinkFeld_AfterUpdate()

Dim Addr As String

If not Isnull(Me!MeinHyperlinkFeld) then

Addr = HyperlinkPart(Me!MeinHyperlinkFeld, acAddress)

If InStr(Addr, "http:") > 0 And InStr(Addr, "@") > 0 Then

Me!MeinHyperlinkFeld = Replace(Me!MeinHyperlinkFeld, "http://", "mailto:")

end if

end if

End Sub



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: