20. maj 2015 - 20:25Der er
1 kommentar og 1 løsning
Find filer der tilhøre aktuel post
Jeg har en database som indeholder poster hvor sagsnr er unik.
Vel gerne havde det sådanne at jeg kan se de bilag der tilhøre det aktuel sagsnr.
Vedhæftning af filer du ikke da der kan blive rette eller tilføjet i de enkelt bilag. Alle bilag begynder med det 4 cifferde sagsnr xxxx-navn på den langesigt 5 ciffer
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.