concatenate

[gripper]

Hi folks, have a question about a string.

I have a form in Access with a field named domain which has an entry of raw data like "mydomain.com" What I want to do is off to the right to have a hyperlink in a text box that will be "http://www.mydomain.com".

I will use this to check occasionally to see if the site is active.

Thank you very much for your help.

 

[jasmith4]

Well, I did it with a label, because hyperlinks don't apply to text boxes.

Anyway, here's all the form's VBA code. I'm assuming the text box on the form -- as opposed to the data field in the table -- is called txtDomain. First add a label to the form, call it lblHyperlink, and change its font to blue and underlined if you want:

Option Compare Database
Option Explicit
 
' Event handlers
 
Private Sub txtDomain_BeforeUpdate(Cancel As Integer)
    Call MakeLink
End Sub
 
Private Sub txtDomain_AfterUpdate()
    Call MakeLink
End Sub
 
Private Sub Form_Current()
    Call MakeLink
End Sub
 
' Link maker
 
Private Sub MakeLink()
    With Me.lblHyperlink
        .Caption = "[URL]http://www[/URL]." & Me.txtDomain.Value
        .HyperlinkAddress = .Caption
    End With
End Sub

All it does is to update the label based on the text box 1) whenever you change the text box and save it and 2) whenever you move to a new record. You may not even need txtDomain_BeforeUpdate.

 

[gripper]

jasmith4 your code worked fantastically. Thank you very much.