Ανανέωση ιστοσελίδας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 17-04-22, 17:03
Όνομα: Μιχάλης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 26-04-2013
Μηνύματα: 74
Προεπιλογή Μετατροπή σε γενική

Μήπως ξέρετε κάποιον κώδικα για μετατροπή ονομάτων και επωνύμων στην γενική;
Απάντηση με παράθεση
  #2  
Παλιά 18-04-22, 20:36
Όνομα: Μιχάλης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 26-04-2013
Μηνύματα: 74
Προεπιλογή Κώδικας σε excel

Αυτός είναι κώδικας μετατροπής σε γενική στο excel:
=IF(RIGHT(A1,2)="ΟΣ",CONCATENATE(LEFT(A1,LEN(A1)-2),"ΟΥ"),A1)
Μπορεί να γίνει παρόμοιο για access
Απάντηση με παράθεση
  #3  
Παλιά 25-04-22, 18:57
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 443
Προεπιλογή

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

Κώδικας:
Γενική: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) & "" & "ΟΝΤΟΣ",[Όνομα])))))
Σημ. Με κόκκινα γράμματα περιπτώσεις ονομάτων όπως ΣΟΛΩΝ,ΛΕΩΝ,ΤΙΜΟΛΕΩΝ.
Απάντηση με παράθεση
  #4  
Παλιά 26-04-22, 15:31
Όνομα: Μιχάλης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 26-04-2013
Μηνύματα: 74
Προεπιλογή

Χριστός Ανέστη και χρόνια πολλά με υγεία σε όλο τον κόσμο.Σε ευχαριστώ.Είναι αυτο που ζητούσα
Απάντηση με παράθεση
  #5  
Παλιά 23-10-24, 21:26
Όνομα: Σωτήρης
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2015
Μηνύματα: 1
Προεπιλογή

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

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

Κώδικας:
Γενική: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) & "" & "ΟΝΤΟΣ",[Όνομα])))))
Σημ. Με κόκκινα γράμματα περιπτώσεις ονομάτων όπως ΣΟΛΩΝ,ΛΕΩΝ,ΤΙΜΟΛΕΩΝ.
Απάντηση με παράθεση
  #6  
Παλιά 31-10-24, 11:19
Όνομα: ΠΑΝΑΓΙΩΤΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-02-2021
Μηνύματα: 25
Προεπιλογή Πίνακας με Ονοματα

Καλησπέρα!
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Tb_Onomata.xlsx (109,7 KB, 16 εμφανίσεις)
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Μετατροπή ημερομηνίας. sarrpan Access - Ερωτήσεις / Απαντήσεις 4 29-06-15 14:53
Μετατροπή ονομάτων στη γενική και αιτιατική dimnot Access - Ερωτήσεις / Απαντήσεις 3 07-04-15 20:11
[ Εκθέσεις ] Μετατροπή έκθεσης σε PDF gmax Access - Ερωτήσεις / Απαντήσεις 14 16-08-11 10:34
[Γενικά] μετατροπή σε ωρα misirlis Excel - Ερωτήσεις / Απαντήσεις 9 07-09-10 11:15


Η ώρα είναι 16:27.