[Tasos]

Καλημέρα σε όλους!

Γιάννη, φρόντισε τα ονόματα των πινάκων αλλά και των υπόλοιπων στοιχείων του έργου σου να έχουν μικρό μήκος και να περιέχουν μόνο λατινικούς χαρακτήρες.

στη σχεδίαση του πίνακα "Περιστατικα_Ιδ_Ενδιαφέρον� �ος_Εξωτερικών_Μαιευτικής" επίλεξε το πεδίο "Αριθμός Φακέλου"
και άλλαξε την ιδιότητα "Με ευρετήριο" σε "Ναι (Δεν επιτρέπονται διπλότυπα)".

Κατόπιν στη φόρμα "Περιστατικά_Ιδ_Ενδιαφέροντ ος_Εξωτερικών_Ιατρ_Μαιευτι� �ής"
αφού αφαιρέσεις το συμβάν "Αριθμός_Φακέλου_BeforeUpdate" , επικόλλησε τον παρακάτω κώδικα και αποθήκευσε:

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

Καλή συνέχεια!

Τάσος