Probleme mit VBA

13/09/2007 - 14:07 von Stefan Reermann | Report spam
Hallo,

habe ein Problem mit meinem VBA-Code.
Möchte in einem Formular über einen Befehl ein Fenster öffnen, wo ich ein
Bild auswàhlen kann, das extern gespeichert ist.
Beim Klick auf die Befehlsschaltflàche, zeigt er mir an: benutzerdefinierter
Typ nicht definiert, anschließend markiert er im VBA-Editor diese Zeile: Dim
fd As New FileDialog

Woran kann das liegen?
Habe die VBA ma eingefügt.

Option Compare Database
Option Explicit
'Code für Pfadsuche Bildauswahl
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

Private Sub Befehl25_Click()

'Öffnen-Dialog für Pfadauswahl zu Befehl25
On Error GoTo Error_Befehl25_Click

Const OFN_FILEMUSTEXIST = &H1000
Const OFN_PATHMUSTEXIST = &H800
Const OFN_HIDEREADONLY = &H4
Const OFN_READONLY = &H1
Const OFN_OVERWRITEPROMPT = &H2
Const OFN_ALLOWMULTISELECT = &H200
Const OFN_EXPLORER = &H80000

Dim fd As New FileDialog
Dim i As Integer
Dim FocusAufAuswahl As Boolean
fd.hwnd = Me.hwnd

fd.ShowOpen
If fd.FileName = "" Then
Me.BildFeld = ""
Else
Me.BildFeld = fd.FileName
End If

Exit_Befehl25_Click:
Exit Sub
Error_Befehl25_Click:
MsgBox Err.Description
Resume Exit_Befehl25_Click

End Sub



mfg
 

Lesen sie die antworten

#1 André Minhorst
13/09/2007 - 14:19 | Warnen spam
Hi Stefan,

Stefan Reermann schrieb:
habe ein Problem mit meinem VBA-Code.
Möchte in einem Formular über einen Befehl ein Fenster öffnen, wo ich ein
Bild auswàhlen kann, das extern gespeichert ist.
Beim Klick auf die Befehlsschaltflàche, zeigt er mir an: benutzerdefinierter
Typ nicht definiert, anschließend markiert er im VBA-Editor diese Zeile: Dim
fd As New FileDialog





gibt es da irgendwo ein Klassenmodul namens Filedialog?

Sonst musst Du das noch hinzufügen
(http://www.kpries.de/Entwicklertool...dialog.htm).

Ciao
André

Ähnliche fragen