Forum - Μετατροπή σε γενική

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Μετατροπή σε γενική (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/6098-metatropi-se-geniki.html)

Μετατροπή σε γενική

Μήπως ξέρετε κάποιον κώδικα για μετατροπή ονομάτων και επωνύμων στην γενική;

Κώδικας σε excel

Αυτός είναι κώδικας μετατροπής σε γενική στο excel:
=IF(RIGHT(A1,2)="ΟΣ",CONCATENATE(LEFT(A1,LEN(A1)-2),"ΟΥ"),A1)
Μπορεί να γίνει παρόμοιο για access

Χριστός Ανέστη και Χρόνια Πολλά σε όλους.
Μιχάλη
Σε ερώτημα που περιέχει το πεδίο Όνομα πρόσθεσε το παρακάτω:

Κώδικας:

Γενική:IIf(Right([Όνομα],2)="ΟΣ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"ΟΥ",IIf(Right([Όνομα],2)="ΗΣ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"Η",IIf(Right([Όνομα],2)="ΑΣ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"Α",IIf(Right([Όνομα],3)="ΛΩΝ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"ΩΝΑ",IIf(Right([Όνομα],3)="ΕΩΝ",Left([Όνομα],Len([Όνομα])-2) & "" & "ΟΝΤΟΣ",[Όνομα])))))

Σημ. Με κόκκινα γράμματα περιπτώσεις ονομάτων όπως ΣΟΛΩΝ,ΛΕΩΝ,ΤΙΜΟΛΕΩΝ.

Χριστός Ανέστη και χρόνια πολλά με υγεία σε όλο τον κόσμο.Σε ευχαριστώ.Είναι αυτο που ζητούσα

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

Παράθεση:

Αρχική Δημοσίευση από nasos23 (Μήνυμα 33721)

Χριστός Ανέστη και Χρόνια Πολλά σε όλους.
Μιχάλη
Σε ερώτημα που περιέχει το πεδίο Όνομα πρόσθεσε το παρακάτω:

Κώδικας:

Γενική:IIf(Right([Όνομα],2)="ΟΣ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"ΟΥ",IIf(Right([Όνομα],2)="ΗΣ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"Η",IIf(Right([Όνομα],2)="ΑΣ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"Α",IIf(Right([Όνομα],3)="ΛΩΝ",Left([Όνομα],Len([Όνομα])-2) & "" & 

"ΩΝΑ",IIf(Right([Όνομα],3)="ΕΩΝ",Left([Όνομα],Len([Όνομα])-2) & "" & "ΟΝΤΟΣ",[Όνομα])))))

Σημ. Με κόκκινα γράμματα περιπτώσεις ονομάτων όπως ΣΟΛΩΝ,ΛΕΩΝ,ΤΙΜΟΛΕΩΝ.

Πίνακας με Ονοματα