Access 2021

Med FileSystemObject eller DOS-kommandoen Move, men du kan også bruge ren VBA:

Source = "d:\mappe1\filnavn.ext"
Destination = "d:\mappe2\nytfilnavn.ext"

FileCopy Source, Destination
Kill Source

#1
Det giver en fejl...

Min kode :
FraFil = "C:\Bilag\" & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "\IMG_0001.pdf"
TilFil = "D:\Dokumenter\LinkTest1\" & strFilNavn

Source = FraFil
Destination = TilFil
FileCopy Source, Destination
Kill Source

Fejl:
Run time error '76';
Path not found

Dokumenter er det lokaliserede navn. Prøv:

TilFil = "D:\Documents\LinkTest1\" & strFilNavn

Fik det til at virke med at gemme/omdøbe fil og post i database...

Men nyt problem...:(

Kan ikke åbne filen fra database feltet(Link)...
file:///D:\Dokumenter\LinkTest1\2_28-03-2025.pdf

er det med vilje, at du i koden har _ mellem datoelementer, og i filnavnet i #4 bruger -

evt prøv at skifte \ til / i filnavn i #4 file:///D:/Documents/LinkTest1/2_28-03-2025.pdf

Det lyder som det samme problem.
Mappen Dokumenter skulle vel ikke være synkroniseret via OneDrive eller SharePoint?

#5
Har prøvet - men det virker delvis både med /// og \\\ - mærkeligt...

#6
Nej, det hele kører lokalt på pc...

Der må jo være noget med mappen Dokumenter.
Prøv med en anden mappe.
Eller prøv i en DOS-boks at skrive:

Dir D:\

og se, om Dokumenter er på listen.

#9
Ja, mappen Dokumenter er i Dir D:\ dos prompten...

Og samme fejl ved brug af en anden mappe?

#11
Ja, samme fejl ... filen åbner ikke...

Vil din funktion åbne den oprindelige fil?

Og hvad er det, der forsøger at "åbne" filen? Access åbner ikke filer uden videre.

#13
Jeg bruger ikke en funktion - det er et felt i tabellen, som er konfigureret til at være af typen Link, som så vises i formularen, og der klikker jeg på linket...

Det er klikket på feltet i formularen, der skal åbne pdf filen...

Har løst det på denne måde, og det virker fint...
Har lavet en form, der åbner tekstfelt med path til billed/dokument...
Når filen er åben lukkes form igen...

Private Sub Form_Load()
    Application.FollowHyperlink Address:=Form_frmSoeg_uf.Billed
    DoCmd.Close
End Sub

OK. Men det havde så ikke noget at gøre med kopiere filen fra en mappe til en anden.

#16
Det blev løst i #4

file:///D:\Dokumenter\LinkTest1\2_28-03-2025.pdf
eller
file:\\\D:\Dokumenter\LinkTest1\2_28-03-2025.pdf

virker bare ikke...