Foto zoeken

[Zurrik]

Waarom werkt dit niet. Foutmelding bij dik gedeelte:

Sub getFileName()
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

 

[Frontier]

Zurrik,

misschien kan je hier iets mee.....

Gr.
Frontier