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?