Since my old DB had hyperlink (web pages) either starting with http:// or not, and the users were complaining that they couldn't easily edit the field, I converted all the fields to text. Then I tried the following code on doubleclick:
Dim WebLink As String
If Me.WebPage2 <> "http//" & "*" Then
WebLink = "Http://" & Me.WebPage2
Else
WebLink = Me.WebPage2
End If
Debug.Print WebLink
Application.FollowHyperlink WebLink, , True
The above works fine if there is no http:// but if there is one already in the text, then I get run time error 5 that it cannot locate the page. On checking what is happening, the code is adding http:// again even if it already there.
I have an Access 2010 database which has a table with several fields with the Hyperlink data type. Some of these hyperlinks reference files stored in a SharePoint database. I am relatively new to using hyperlinks. The task is to insert those hyperlinks into an email using VBA so that the recipient can just click on them to view the documents.
I have no problems with using VBA to create emails or to add attachments. My issue is with adding hyperlinks to the body of the email.
i have thousands of data records with hyperlinks that are correct. Each data record shows the actual link (google.com, foxnews.com, espn.com, etc.). However, i want to change all of the records to just say "link" instead of saying espn.com, etc. How can i do this automatically without having to manually right click, edit, and changing the text to display?
I want to create an app that works like Wikipedia. for example any word that have an explain and that's explain available in my database that word become hyperlink text with different color and so if operator click on that word open a new form and show the explain.
Small piece of code that can send / recieve small text-strings over a network. I finally got it to work, but forgot to think ahead . Right now it only works in a formular but i really need to be a function with input / output.
My problem is that i am using the "Withevents" to call the Ostrosoft Winsock network module and "Withevents" does not work in functions.
How to build this into a function ?
Code: Option Compare Database Option Explicit Dim sBuffer As String Dim spage As String Dim WithEvents wsTCP As OSWINSCK.Winsock
I have a table with person's name, clubname, cluburl. In a report I can show the clubname,but when I export to HTML, can this clubname become a hyperlink to the clubURL ? (While showing the clubname..) Anybody ideas ?
I have a table with one field set as a hyperlink. I have to generate the hyperlink according to what else is going on in the record, I do this by assembling a text string which I can write to a text field in the same record. I have no problem doing this but when I try to copy that string into the Hyperlink field I get type mismatch. Incidentally if I put two text boxes on a form and bind one to the text and one to the hyperlink field the I can 'cut and paste' it OK so how come I can't do it with Access basic?
Dim stGunlib As String Dim stGunlib2 As String stGunlib2 = [Stock number] stGunlib = "www.shooting.uk.com/Gunlibrary/" + stGunlib2 + ".jpg" [Link] = stGunlib [Picture] = stGunlib ([Picture] is a hyperlink field) it goes wrong here
I need to get an email address from a field and place it onto another form.. HOWEVER I dont want it as a hyperlink, nor do I want the mailto blah blah coming over.. I just want the email address as TEXT.In the application the user opens the email form by clicking an icon on an invoice screen, this will allow them to automatically email to the client.. Once they open the email screen they naturally see an arrangement of other boxes where they can enter subject, email description etc..
At the same time there are two boxes, the "To" box and the"From" box... I want these boxes to be auto updated with the email address (to save time). When the user clicks the icon on the invoice screen it automatically copies and displays the email address of the client in the "To" box on the invoice.. The problem I am having is that it is displaying as useless information which is associated with the hyperlink.The email address comes from a field that has already previously been associated as a hyperlink, and it HAS to come from this field, I have no way around it.... All of this information is coming from an address book section from a field that is a hyperlink field.. If it was a txt field then I would not be having this problem.
As I already have various forms open displaying information I am able to used simple code to fill in various bits of info to save time... Because of this I am using simply code to copy the email address from one form to another:
Forms![Email]![To] = Forms![AddressBook]![Email]
Obviously the above code is simple and works for 90% of this type of approach, however there must be some other code that I need to use to first translate the email address to text...
In the end I don't care what I have to do as long as it works.. Remember though that the original field is a hyperlink field and must remain so, I cannot simply convert that to txt..
I have a report where I need to display a box with the following:
="text text text " & url &" text text text"
I need the URL to be bolded, but not underlined or blue. The URL is a variable, so I'm building the text using a string. It looks like the only way to set part of the field to bold is to make it rich text and add html bolding instructions, but that converts the url to a hyperlink. I don't want it to be a hyperlink, just text.
I was trying to see if there is a way to convert text to a hyperlink in a query.
Background : I'm pulling information from a lotus notes database using an OBDC connection and storing it into an access database and using that to upload to a sharepoint site. While we are converting over to a sharepoint site, I was trying to make it easy to get back to the original site for each document to check the work.
So I have a table with 2 fields.The first field has the addresses to multiple hyperlink paths to folders on my computer.In this field the display text matches the hyperlink paths.In the second field I have the desired display text for field 1.I have tried using an update query to either:
1) Change the display texts of field 1 to match field 2 while preserving the hyperlink path 2) Add the hyperlink path from field 1 to field 2 without altering the display name.
I cannot get either one to work. Upon updating field 1, I lose the path, and upon updating field 2, I lose the name.
I am generating a report that needs to have a hyperlink in part of one of the fields. Prior to saving the field to the database I do a bit of VBA coding on it and add some HTML. The result is this in the field:
"There are two ways to book with your preferred rate: <br>
2. Call us directly or at 1-800-Hampton and use your Corporate ID 12345."
It works beautifully if you paste it into a web page but in the Access report, Access applies the Bold but just ignores the hyperlink.
This is Access 2013 with MS SQL Server 2008 backend. Everything I have read suggests that this should work and is supported. Is there some trick I'm missing?
I have a field in a Table (tblMainFile) named "File Location" which contains a hyperlink for each of the files.I have a continuous form (from a query) which displays information from the tblMainFile table.the form shows a text box (with the hyperlink) which is clickable to take them to the link location.I would like to have a button which says (GET FILE) or a different text box which simply says "Get File" as opposed to the entire hyperlink.
Please Does Anyone Know A Way To Send A Form , Like Copying Text, To Word Processor Programme Like Word For Example.is There A Programme To Do That? Thanx
In the Access Table, how does one Find and Replace part of the hyperlink if the Text to display is different?
Example of Hyperlink Editor:
Example of Find and Replace
In other words, I'd like to find FAKESERVER and replace it with C:Users in all 1000 records. Is there any possible way to do this if there is Text to display?
Im developing a database for work, I would like to provide a link on a form to run an external program. The form is call frmProfile. The table is called tblProfile and the hyperlink field is called link.
I would like a diaglog box to appear where the user can browse for the file and select it. Ive found various scripts but with my vb skills being very basic its no wonder im getting no joy.
I should add... each record has its own associated file. Its cctv footage which runs from the cctv systems own proprietary software. So its an individual filefor each record not just a program.
I have 2 databases (accdb). Both databases have a loading pop form. Also both databases include the following line of code when the loading form opens:
Code: docmd.runcommand acCmdAppMinimize
This code works great when I open the databases individually. but my problem is that I have a label on the pop form in accdb 1 with its hyperlink address set to accdb 2 and the subaddress set to the macro name.The hyperlink opens the database 2 just fine and it opens the loading form but it doesn't minimize the application window.
I have a form titled 'New/Edit/Search Contractor Employee" that provides controls to fields within a table titled "Contractors". In this table, I have a Hyperlink field that will store the location of the files related to individual employees. On this form, I have a Control that (at the moment) the user can copy a Hyperlink and enter into this, to populate the field. This will then allow the user to click on this Hyperlink to open up the individual folder location to drag and drop whatever files they want associated to this individual record.
I have created a Command Button to automatically create a unique folder for this record, VBA below:
Private Sub Command168_Click() strPath = "V:IntProdTrans&OpsTERMINALSDriver and Contractor Database 2014ContIndPW" & "" & txtCompanyID If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath End If strPath = "V:IntProdTrans&OpsTERMINALSDriver and Contractor Database 2014ContIndPW" & "" & txtCompanyID & "" & txtFirstName & " " & txtLastName If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath End If End Sub
What I'm trying to work out now is how to automatically enter this new folder location into the Control, which is then viewable and can be clicked on. I managed to do this (can't for the life of me remember how) but it entered the location as text and I wasn't able to click.
The Hyperlink control is titled 'Induction Paperwork' relates to a Hyperlink field.
I'm trying to use ghudson's browse button in a form on MS Access. It works well, but I'm running into a tiny bug after implementing it into my database.
[URL] ....
I am able to browse, I am able to select a file, and am also able to have it display into the hyperlink textbox. However, when I try to click on the hyperlink in the textbox, it does not take me to the file.
To fix the bug, and to get the hyperlink working again, I have to modify the hyperlink within the textbox, then bring it back as it was. (generally, I hit backspace, and replace the letter I removed.)
I am using the following vba code to create and send an html format email message. The key information in the email is a hyperlink to a network drive folder location using [Directory] as a hyperlink table value to get the address that is stored like this: K:PipelinesP9 - TEP ProductsMOP AID-1500Final Approved
The email hyperlink that is produced looks like this:
#K:PipelinesP9_-_TEP_ProductsMOP_AID- Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem Dim MOPVDB As String MOPVDB = "H:PGADSBYMOP VALIDATIONTRACKINGMOPVDBMOP Validation DatabaseFE.accdb" Set appOutLook = CreateObject("Outlook.Application")
I am attempting to open a website hyperlink, some of the fields contain https:// and some of them dont.
Code: Private Sub Facebookbut_Click() Dim Hyper As String If InStr([TEAMFacebook], "https") Then Hyper = Me.TEAMFacebook Else Hyper = ("https://www.facebook.com/" & Me.TEAMFacebook) End If Application.FollowHyperlink Hyper End Sub
So far this does 2 things, it doesn't open any hyperlinks at all and continues to attempt to until the program is closed from task manager. Before I had this error it would open the hyperlink twice if the field does not contain "https" and the IF statement was passed to the 2nd option.
I am trying to create a button that opens up a webpage. I get how to create a hyperlink on a button. The problem is, I need to open a specific page depending on the information in a text box.
The text box displays the tracking number for the current record. That number is populated automatically via a control source. The problem is that I need to open different web pages depending on the tracking number displayed. For example, UPS has a specific start to their number (1ZX....). Other trucking companies have a specific format, also.
So how do I tell it to look at the tracking number and then open the corresponding web page?
I am using MS Access 2010. I have a code that I am using that loops through a folder gather all the names of the files in the folder and inserts them into a table (shown below). The table is named "tblFiles" there are two columns in the table titled file name and file path. What I want to do is to also loop through the same folder to find the file path of the files and insert them into the file path column has a hyperlink where users can just click on the hyperlink and the file opens.
Private Sub Form_Load() Dim fs, f, f1, fc, s Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tblFiles")
