In het voorbeeld werkt zeker goed, alleen heb ik wel een vraagje.
Ik wil deze functie in een bestaande DB gebruiken. Alleen ik krijg een Compileerfout:
Een door de gebruiker gedefinieerd gegevenstype is niet gedefinieerd.
En de tekst :
Private Sub Btn_File_Open_Click() wordt geel.
En
fd As FileDialog wordt geselecteerd
Ik heb hem in het huidige datbase als een subform gebruikt op een tabblad.
Deze code staat onder de knop:
---------------------------------------------------------------------------------------------------------
Private Sub Btn_File_Open_Click()
'Declare a variable as a FileDialog object.
Dim fd As FileDialog
'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'Declare a variable to contain the path
'of each selected item. Even though the path is a String,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant
'Use a With...End With block to reference the FileDialog object.
With fd
If IsNull(Me.Cbo_Documenten) Or Me.Cbo_Documenten = "" Then
MsgBox ("Voer eerst de locatie van de documenten in!"), vbInformation, "Let op!"
Me.Cbo_Documenten.SetFocus
Exit Sub
Else
.InitialFileName = Forms!frm_ednummer![sfrm_document Subformulier]!Cbo_Documenten.Column(1)
.Filters.Add "Documenten", "*.xls; *.pdf; *.rtf; *.png; *.ppt; *.doc; *.msg", 1
.Filters.Add "Alle bestanden", "*.*", 2
End If
'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the action button.
If .Show = -1 Then
'Step through each string in the FileDialogSelectedItems collection.
For Each vrtSelectedItem In .SelectedItems
'vrtSelectedItem is a string that contains the path of each selected item.
'You can use any file I/O functions that you want to work with this path.
'This example simply displays the path in a message box.
Me.Documentnaam = ""
Me.Documentnaam = vrtSelectedItem
Next vrtSelectedItem
'The user pressed Cancel.
Else
'End If
End With
'Set the object variable to nothing.
Set fd = Nothing
End Sub
---------------------------------------------------------------------------------------------------------
Helaas is de DB te groot om te posten