Saving a hyperlink into my database

[Jan22]

Ok so i'm having trouble fixing this problem. I have a VBA code to copy files into a specified folder. Works okay!
But now I have to save the hyperlink of the copied file into a record of my database.

Private Sub Knop29_Click()
Pad = "C:\"
Dim Bestandslocatie As String

Bestandslocatie = DLookup("[Waarde]", "tblInstellingen", "[Tag] = 'Locatie'")
With Application.FileDialog(3)
.Title = "Bestand selecteren"
.Filters.Clear
.AllowMultiSelect = False
.InitialFileName = Pad

If .Show <> 0 Then
Bestandnaam = .SelectedItems.Item(1)
End If
End With
Oldname = Bestandnaam

If Me![Kraan Onderdelen] = "Kraan" Then
If Me![Soort Data] = "Onderdelenlijst" Then NewName = Bestandslocatie & "Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Onderdelenlijst\" & Bestandnaam
If Me![Soort Data] = "Parameters" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Parameters\"
If Me![Soort Data] = "Overige Informatie" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Overige informatie\"
If Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Mechanische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Mechanische tekeningen\"
If Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Hydraulische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Hydraulische tekeningen\"
If Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Elektrotechnische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Elektrotechnische tekeningen\"
If Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Pneumatische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Pneumatische tekeningen\"
If Me![Soort Data] = "Onderhoudsgegevens" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Onderhoudsgegevens\"
If Me![Soort Data] = "Keuringsgegevens" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Keuringsgegevens\"
If Me![Soort Data] = "Software" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Software\"
End If



If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Onderdelenlijst" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Onderdelenlijst\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Parameters" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Parameters\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Overige Informatie" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Overige informatie\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Mechanische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Mechanische tekeningen\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Hydraulische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Hydraulische tekeningen\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Elektrotechnische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Elektrotechnische tekeningen\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Pneumatische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Tekeningen\Pneumatische tekeningen\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Onderhoudsgegevens" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Onderhoudsgegevens\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Keuringsgegevens" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Keuringsgegevens\"
If Me![Kraan Onderdelen] = "Kraan" And Me![Soort Data] = "Software" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Kraan\Software\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Onderdelenlijst" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Onderdelenlijst\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Parameters" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Parameters\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Overige Informatie" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Overige informatie\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Mechanische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Tekeningen\Mechanische tekeningen\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Hydraulische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Tekeningen\Hydraulische tekeningen\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Elektrotechnische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Tekeningen\Elektrotechnische tekeningen\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Tekeningen" And Me![Soort technische tekening] = "Pneumatische Tekening" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Tekeningen\Pneumatische tekeningen\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Onderhoudsgegevens" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Onderhoudsgegevens\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Keuringsgegevens" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Keuringsgegevens\"
If Me![Kraan Onderdelen] = "Traverse" And Me![Soort Data] = "Software" Then NewName = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan 24, mattenkraan\Traverse\Software\"
retval = 0
Dim objfso As Object
Set objfso = CreateObject("Scripting.FileSystemObject")
retval = objfso.CopyFile(Oldname, NewName, True)


Set objfso = Nothing

Me.Data.Value = NewName
End Sub



The column where the hyperlink of the copied file has to come is "data"
As you can read the code i tried to do it this way: Me.Data.Value = NewName, but then i only get this pad saved into my database:
\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan24\Traverse\Software\

So i need to find a way to past the file name after this link so that it becomes someting like this:

\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan24\Traverse\Software\File.exe

Could somebody help me out?

[June7]

You have the file name in a variable? Concatenate the variable.
"\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Kranen\Kraan24\Traverse\Software\" & variable

The hyperlink string has 3 parts separated by # character. Review http://www.allenbrowne.com/casu-09.html

Don't have to save as a hyperlink. Here is alternative http://allenbrowne.com/func-GoHyperlink.html