Find filer der tilhøre aktuel post

Why not have a link to the file(s) in a text field? You can also use the link to open the file.

Først:
- Opret en lille tabel, som kan indeholde filnavnene

Ved kørsel:
- Slet alle poster i ovennævnte tabel
- Løb mappen med bilagene igennem og opsaml de filer, hvor navnet svarer til sagsnummeret, i tabellen
- Præsenter brugeren for en formular baseret på tabellen

Altså noget i stil  med:

Sub Test
  OpsamlBilag("1234")
End Sub

Sub OpsamlBilag(Sagsnr as String)
  Const Mappe = "c:\Users\Chefen\Documents\"
 
  Dim d As String
 
  DoCmd.SetWarnings False
 
  DoCmd.RunSQL ("DELETE DinTabel.* FROM DinTabel")
 
  d = Dir(Mappe & Sagsnr & "*.*")
  Do Until d = ""
    Debug.Print d
    ' Gem filnavnet i tabellen
    DoCmd.RunSQL ("INSERT INTO DinTabel(Filnavn) SELECT '" & d & "'")
   
    d = Dir
  Loop

  DoCmd.SetWarnings True

  'Vis formularen
End Sub