[dimmag]

Καλησπέρα
Θανάση πολύ καλό δουλευει μια χαρά. Το είχα διορθώσει αυτό με το τρέχον.
Διόρθωσα και την παύλα στο τέλος.

Const strSeparator = " - "
Dim lngLen As Long

x = x & neo(i) & strSeparator

και στο τέλος πριν από το Me.Same = x

lngLen = Len(x) - Len(strSeparator)
If lngLen > 0 Then
x = Left(x, lngLen)
End If

Οι φόρμες δεν χρειάζονται καν σύνδεση.

Είναι και γρήγορο γιατί ψάχνει το τρέχον κάθε φορά, με ένα πεδίο στον πίκανα t_AITHMATA γράφεις το νούμερο που βρήκες και η αναζήτηση γίνεται σε ένα ερώτημα και με δεξί κλικ στη κύρια φόρμα βλέπεις όλα τα όμοια. Δεν χρειάζεται καν ο πίνακας t_ΟΜΟΙΑ.

Τελικά για όλα υπάρχουν λύσεις.

Ευχαριστώπολύ για το χρόνο σου.

Με εκτίμηση
Δημήτρης