Hallo
Vanuit het oefenbestand "Noordenwind" heb ik het formulier 'werknemers' geimporteerd in mijn database.
In dit formulier is een mooie manier toegepast om foto's te plaatsen in de database, waarbij de foto wordt gelinkt en de database zelf niet groter wordt.
Nadat ik het formulier heb geimporteerd en ik een fotobestand wil toevoegen krijg ik de foutmelding dat een variabele niet is gedeclareerd.
Hieronder de vba waar de foutmelding op van toepassing is (in het rood is van toepassing)
Weet iemand hoe ik dit oplos?
Bedankt maar weer....
Option Compare Database
Option Explicit
Dim path As String
Sub getFileName()
' Geeft het Office-dialoogvenster Bestand openen weer van
' waaruit een fotobestand voor de huidige medewerkersrecord
' kan worden gekozen. Het geselecteerde bestand wordt in het
' besturingselement voor afbeeldingen weergegeven.
Dim fileName As String
Dim result As Integer
With Application.filedialog(msoFileDialogFilePicker)
.Title = "Foto van medewerker selecteren"
.Filters.Add "Alle bestanden", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Voornaam].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub
Vanuit het oefenbestand "Noordenwind" heb ik het formulier 'werknemers' geimporteerd in mijn database.
In dit formulier is een mooie manier toegepast om foto's te plaatsen in de database, waarbij de foto wordt gelinkt en de database zelf niet groter wordt.
Nadat ik het formulier heb geimporteerd en ik een fotobestand wil toevoegen krijg ik de foutmelding dat een variabele niet is gedeclareerd.
Hieronder de vba waar de foutmelding op van toepassing is (in het rood is van toepassing)
Weet iemand hoe ik dit oplos?
Bedankt maar weer....
Option Compare Database
Option Explicit
Dim path As String
Sub getFileName()
' Geeft het Office-dialoogvenster Bestand openen weer van
' waaruit een fotobestand voor de huidige medewerkersrecord
' kan worden gekozen. Het geselecteerde bestand wordt in het
' besturingselement voor afbeeldingen weergegeven.
Dim fileName As String
Dim result As Integer
With Application.filedialog(msoFileDialogFilePicker)
.Title = "Foto van medewerker selecteren"
.Filters.Add "Alle bestanden", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
Me![Voornaam].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub
