Που έχω λάθος στον κώδικα ;

[Tasos]

Αγαπητέ Κώστα δοκίμασε:

Private Sub Id_AfterUpdate()
' Report
    Const REPORTCANCELLED = 2501
    On Error Resume Next
    DoCmd.RefreshRecord
    If ID = 1 Then DoCmd.OutputTo acOutputQuery, "Ôï üíïìá ôïõ Query", acFormatXLSX
    If ID = 2 Then DoCmd.OutputTo acOutputQuery, " Ôï üíïìá ôïõ Query", acFormatXLSX
    If ID = 3 Then DoCmd.OutputTo acOutputQuery, " Ôï üíïìá ôïõ Query", acFormatXLSX
    If ID = 4 Then DoCmd.OutputTo acOutputQuery, " Ôï üíïìá ôïõ Query", acFormatXLSX
    If ID = 5 Then DoCmd.OutputTo acOutputQuery, " Ôï üíïìá ôïõ Query", acFormatXLSX
    If ID = 6 Then
        DoCmd.OutputTo acOutputQuery, "Ôï üíïìá ôïõ Query", acFormatXLSX
        DoCmd.OutputTo acOutputQuery, "Ôï üíïìá ôïõ Query", acFormatXLSX
        DoCmd.OutputTo acOutputQuery, "Ôï üíïìá ôïõ Query", acFormatXLSX
        DoCmd.OutputTo acOutputQuery, "Ôï üíïìá ôïõ Query ", acFormatXLSX
        DoCmd.OutputTo acOutputQuery, "Ôï üíïìá ôïõ Query, acFormatXLSX"
    End If
    Select Case Err.Number
        Case 0
        Case REPORTCANCELLED
        Case Else
            MsgBox Err.Description, vbExclamation, "Error"
    End Select
    ' End If
End Sub

Το "End If" μετακινήθηκε έτσι ώστε να περιλαμβάνονται σφάλματα που πιθανόν να προκληθούν στο AfterUpdate των ID 1 έως 5.

Με εκτίμηση


Τάσος
,