[Tasos]

Ιωάννη μου δεν έκανες δοκιμές στο παράδειγμα που ανέβασες αλλά σε άλλο αρχείο που συνδέεται με MSSQL. Δεν είναι το ίδιο πράγμα.

Δοκίμασε τα παρακάτω:

Αντικατέστησε τον κώδικα:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3022 Then
        Dim ret As VbMsgBoxResult
       MsgBox "Υπάρχει ήδη ο αριθμός φακέλου: '" & Me.Αριθμός_Φακέλου & _
                     "'" & vbLf & vbLf & "Πατήστε [ESC] για να ακυρώσετε την αποθήκευση", _
			 vbExclamation, "Διπλότυπη καταχώρηση"
        Me.Αριθμός_Φακέλου.Undo
        Me.Αριθμός_Φακέλου.SetFocus
        Me.Αριθμός_Φακέλου.SelStart = 0
        Me.Αριθμός_Φακέλου.SelLength = Len(Me.Αριθμός_Φακέλου.Text)
        Response = acDataErrContinue
    End If
End Sub

Με τον παρακάτω:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
        MsgBox Dataerr
End Sub

και προσπάθησε να περάσεις μια διπλοεγγραφή για να δεις εάν, και ποιο νούμερο σφάλματος θα σου επιστρέψει (μπορεί να είναι και το 3621).

Κατόπιν επανέφερε τον αρχικό κώδικα και άλλαξε το 3022 με το νούμερο του μηνύματος (MsgBox) και δοκίμασε ξανά.