[Free_Ghost]

Γεια σου Δάφνη, επειδή έχω φτιάξει μια παρόμοια εφαρμογή με πολύ βοήθεια από το παρόν site.

Βασικά νομίζω πώς είσαι λάθος στην εισαγωγή του Πρωτοκόλλου, έπρεπε να παίρνει μόνο του τον αριθμό με ημερομηνία και ώρα από αυτόματη αρίθμηση την στιγμή που πατάς ένα πλήκτρο New, και δεν θα βάζεις εσύ νούμερο.

Εγώ έβαλα τον παρακάτω κώδικα στα εισερχόμενα και στο πρωτόκολλο εκδότη επειδή υπάρχει περίπτωση να εισάγω το ίδιο 2 φορές για αυτό με το που εισάγω το νούμερο του εκδότη και πάω σε άλλο πλαίσιο μου βγάζει μήνυμα, και διορθώνω η ακυρώνω.



Private Sub ProtokolloEkdoti_LostFocus()
If DCount("*", "[P_EGGRAFA]", "[ProtokolloEkdoti]='" & Me![ProtokolloEkdoti].Text & "'") > 1 Then
Cancel = True
MsgBox "Εδώ γράφεις το μήνυμα σου"
Me![ProtokolloEkdoti].Undo
End If
End Sub