Variables in a Hyperlink

[PBCN]

Im sorry to say but I am very green to VBA but after much reading and things going over my head im still not sure im going about my problem the right way.

What I have and trying to do is:-

Im building a access program to manage the admin and job management for a business doing building approvals and inspections, I am already using and plan to run in conjuntion with the access program onedrive to hold all the files, like plans etc and the photos that go along with the inspections. I am planning to have a file location in access and in onedrive for each separate job.

I am going to use sharepoint as the backend and the program is going to be used on 3-5 different computers.



I want to be able to put a link or command button on each job file in access to open the onedrive file for that job but it contains two variables that I need to add into the destination line, one being the User of the computer and the other being the file number

the code so far

Private Sub JobFile_Click()    Dim UserName As String
        UserName = Allan
    Dim JobFile As String
        JobFile = Me![JobFile]
Application.FollowHyperlink "C:\Users\UserName\OneDrive\PCAwork\jobs\Jobfile"
End Sub

I basically want the hyperlink to end up looking something like this C:\Users\Allan\OneDrive\PCA work\Jobs\16-129 Lot 34 Foxtail St Fern Bay

[pbaldy]

Try

Application.FollowHyperlink "C:\Users" & UserName & "\OneDrive\PCAwork\jobs" & Jobfile

I keep editing to add the backslashes that got dropped, and they won't stick. Put them in as appropriate.

[PBCN]

This is what I am now using, I took out the UserName part just to try and get it working with one variable before re-adding the second

 Dim JobFile As String        JobFile = Me![JobFile]
Application.FollowHyperlink "C:\Users\Allan\OneDrive\PCAwork\jobs\" & JobFile

But Im still getting a run time error 490 cannot open the specified file.

Could/would the problem be that Im trying to open a file folder and not a file like a PDF?

[pbaldy]

Not at a computer but try adding a backslash after the folder name.

[PBCN]

Ok after some further tinkering Ive got it working, code below

Private Sub Command310_click()    
    Dim JobFile As String
    Dim strinput As String
    
        JobFile = Me![JobFile]


        Me.Text306 = "C:\Users\Allan\OneDrive\PCA work\Jobs\" & JobFile
        
        strinput = Me![Text306]


Application.FollowHyperlink strinput, , True




End Sub

[pbaldy]

Glad you got it working. I note a new space in the path. Welcome to the site by the way!