File Dialog Fehler. aber wo ?

Computer: Software & Programmierung Microsoft Access
#1

hier der code.
es gibt keine fehlermeldung aber er macht einfach nichts.

Private Sub fb_opendialog895_Click()
On Error GoTo Err_fb_opendialog895_Click

Dim gCommonDialog As Control
Dim gInitDir As String
Dim gFileName As String

On Error Resume Next

With gCommonDialog
.InitDir = gInitDir
.Filter = „All Files (*.*)|*.*|“
.CancelError = True
.ShowOpen
gFileName = .FileName
End With

Exit_fb_opendialog895_Click:
Exit Sub

Err_fb_opendialog895_Click:
MsgBox Err.Description
Resume Exit_fb_opendialog895_Click
Exit Sub
ErrOpenCommonDialog:
gFileName = vbNullString

End Sub

1000 Dank

#2

du weisst aber…

On Error Resume Next

… das er nach obiger Anweisung alle Fehler einfach übergeht und mit der nächsten Zeile weitermacht ;o))

Bernd

#3

oh shit.
ja hab ich übersehen …

naja ok … objektvariable is net festgelegt.
wie komm ich an diesen file dialog?
seit 2 stunden such ich bei google. und nix brauchbares dabei.

1000 Dank

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

thx
ok habs schon …