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

[Kastrinos]

Καλησπέρα σας,
Προσπαθώ να βρω που έχω λάθος στο παρακάτω:
----------------------------------------------------------------------
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
Select Case Err.Number
Case 0
Case REPORTCANCELLED
Case Else
MsgBox Err.Description, vbExclamation, "Error"
End Select
End if
End sub
----------------------------------------------------------------------
Ευχαριστώ

[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.

Με εκτίμηση


Τάσος
,