Hallo Wouter,
für die Bilder in den Berichten speicherst Du den Pfad zur Bilddatei ab. In Deiner DB muss der Pfad im Dateiexplorer kopiert und nachbearbeitet (die "" löschen) werden.
In meiner eigenen DB habe ich das etwas eleganter gelöst: Ein Button <Pfad einlesen> und dahinter folgende VBA-Ereignisprozedur:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub cmdPfad_Click()
Dim f As Office.FileDialog
Dim filePath As String
Set f = Application.FileDialog(msoFileDialogFilePicker)
With f
.InitialView = msoFileDialogViewThumbnail
.Title = "Abbildung auswählen" 'Fenstertitel
.AllowMultiSelect = False 'Nur eine Datei auswählbar
.ButtonName = "Auswählen" 'Button Beschriftung
.Filters.Clear 'erst alle Filter löschen
.Filters.Add "Bilder", "*.jpg; *.jpeg; *.png" 'dann eigene anlegen
'.Filters.Add "Word-Dateien", "*.do*"
'.FilterIndex = 2 'einen Filter vorselektieren
.InitialFileName = "X:\Modelleisenbahn\Abbildungen" 'Startverzeichnis
'.Show
If .Show = True Then
'Set variable "filename" equal to path of file selected:
If f.SelectedItems.Count > 0 Then
filePath = f.SelectedItems(1)
'You can now use the filename for the file selected in your code:
'MsgBox filePath
txtPfad = filePath 'das ist das Datenbankfeld, in dem der Pfad gespeichert wird
End If
Else
MsgBox "Die Auswahl wurde abgebrochen."
End If
End With
End Sub
Vielleicht magst Du das verwenden. Ist nicht von mir, habe ich aus einem Access-Forum entnommen und für mich angepasst.
Herzliche Grüße