commondialog - cancelknap

Sæt commondialog1.cancelerror = True og lav en errorhandler som kan opfange fejlen der dannes når der vælges cancel.

ok hvordan vil du have sådan en error handler skulle se ud kode mæssigt ??
jeg mente jo det var noget med :
On Err.number = fejlnummer goto Fejl
da jeg ikke vil bruge
On Error resume next
da den også tager højde for andre fejl.

On Err.number = fejlnummer goto Fejl
virker heller ikke men hvor ligge fejlen
hvis du kan svare på det er pointene dine :)

Hvis fejlen er 32755 (cancel was selected.) hopper den ud af sub'en.
Msgbox 1/0 er bare taget med for at vise en anden fejl...

Private Sub Command1_Click()
  On Error GoTo error_handler
  CommonDialog1.CancelError = True
  CommonDialog1.ShowOpen
  MsgBox 1 / 0
  Exit Sub
error_handler:
  If Err.Number = 32755 Then
    Exit Sub
  Else
    MsgBox Err.Number & " - " & Err.Description
  End If
End Sub

takker :)

Selvtak og tak for point :)