FileDialog - Typen unverträglich

Hallo Zusammen,

ich bin noch ein VBA-Neuling und komme an dieser Stelle nicht mehr weiter.
Ich möchte aus einem Access-Formular einen FileDialog per Button-Druck öffnen. Und bekomme nur folgende Meldung ‚Fehler beim Kompilieren - Typen unverträglich‘
Ich arbeite mit Access 2003

Kann mir jemand hier einen Tip geben?

Danke schon mal


Public Enum MsoFileDialogType
msoFileDialogOpen = 1
msoFileDialogSaveAs = 2
msoFileDialogFilePicker = 3
msoFileDialogFolderPicker = 4
End Enum

Private Sub btFileUpload_Click()
'FEHLER - Typen unverträglich
Dim oFileDialog As New Access.Application.FileDialog
Set oFileDialog = Access.Application.FileDialog(msoFileDialogFolderPicker)
With oFileDialog
.title = „Wählen Sie bitte den gewünschten Ordner aus!“
.ButtonName = „Weiter“
.Show
End With

End Sub

Hallo Andy_Stufent,

überprüfe bitte mal, ob im VBA Editor unter Extras -> Verweise die „Microsoft Office 11.0 Object Library“ aktiviert ist.

mfg
Michael