title image


Smiley Re: cancelerror lässt sich nicht abfangen
Hallo, so sollte es funktionieren:

Private Sub Command1_Click()

On Error GoTo err_Handler

 

With Me.dlgFileOpenSave

 

.CancelError = True 'Fehler, wenn User auf Abbrechen geht

.DialogTitle = "Öffnen" 'Dialog-Titel

.InitDir = App.Path 'Anfangs-Dateiverzeichnis

.Filter = "Textdateien (*.txt;*.csv)|*.txt;*.csv" 'Anzuzeigende Datei-Typen

.flags = cdlOFNFileMustExist 'Datei muss existieren

.FileName = m_strFileName 'Dateiname im Feld -> Dateiname

.ShowOpen 'Dialog anzeigen

m_strFileName = .FileName

 

'Grid-Daten lesen:

LoadGridData Me.mshgData, m_strFileName, m_strSep

 

End With

 

Exit Sub

 

err_Handler:

If Err.Number = 32755 Then Exit Sub ' Abbrechen gedrückt

MsgBox Err.Description, vbExclamation, "Fehler"

Exit Sub

 

End Sub

 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: