Einzelnen Beitrag anzeigen
Alt 28.06.2002, 11:52   #5
Maverick
MOF User
MOF User
Standard

Hallo Arno,

ich hab jetzt das Exit Sub
hinter dem Cancel Event.
Hier nochmal der aktuelle Code:

Code:

Private Sub Report_Close()
On Error GoTo Err_Report_Close

Dim Ergebnis

Ergebnis = MsgBox("Wollen Sie den Auftrag speichern?", vbYesNoCancel, "Auftrag speichern")
If Ergebnis = vbYes Then
    MsgBox "Speichern gewählt"
    
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "aktualisieren_Kennzeichen"
    DoCmd.OpenQuery "anfüg_Auftrag_tmp_an_Auftrag"
    DoCmd.OpenQuery "anfüg_Auftrag_Details_tmp_an_Auftrag_Details"
    DoCmd.OpenQuery "löschen_Auftrag_Details_tmp"
    DoCmd.OpenQuery "löschen_Auftrag_tmp"
    DoCmd.SetWarnings True
    
    ElseIf Ergebnis = vbNo Then
    MsgBox " nicht speichern gewählt"
    
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "löschen_Auftrag_Details_tmp"
    DoCmd.OpenQuery "löschen_Auftrag_tmp"
    DoCmd.SetWarnings True
    
    ElseIf Ergebnis = vbCancel Then
    MsgBox "abbrechen"
    GoTo Exit_Report_Close
    
End If
DoCmd.Close acForm, "frm_Auftragerteilen"
DoCmd.OpenForm "Haupt", acNormal
DoCmd.OpenForm "frm_Auftragerteilen", acNormal

Exit_Report_Close:
    DoCmd.CancelEvent
    Exit Sub

Err_Report_Close:
    MsgBox Err.Description
    Resume Exit_Report_Close
   
End Sub
Ich hab auch die Variante, die
DoCmd.CancelEvent
Exit Sub

direkt hinter die MsgBox abbrechen zu stellen versucht.
Beides funkt leider nicht.
Sorry

Hast Du noch eine Idee???

__________________

Vielen Dank für eure Bemühungen im voraus

Klaus
Maverick ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten