title image


Smiley cancelerror lässt sich nicht abfangen
Die Dateiladen Routine klappt einwandfrei wenn eine Datei ausgewählt wird. Wenn ich jedoch den Cancelbutton clicke wird ein Fehler ausgelöst und das Programm kann nur noch beendet oder debugt werden .Goto geht nicht zu err_Handler. Wie bekomme ich das geregelt. Danke für Hilfe



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

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: