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/6427-eksagogh_keimenoy_apo_perie-i-omena_pedioy.html)

Puma80! 07-02-24 18:16

ΕΞΑΓΩΓΗ_ΚΕΙΜΕΝΟΥ_ΑΠΟ_ΠΕΡΙΕ? ?? �ΟΜΕΝΑ_ΠΕΔΙΟΥ
 
Καλησπερα σας!

θα ηθέλα την βοηθεία σας σχετικά με τα παρακατω:
Πως μπορώ από ένα πεδίο που περιέχει την τιμή CD_FE_Φ.800/340590/343443/Σ.1212/ 25 - 10- 23/ ΠΑΠΑΔΟΠΟΥΛΟΣ/ΝΙΚΟΣ να εξάγω για αρχή ότι υπάρχει από το "Φ" και μετά και μετά να σπάει το κειμενο που βρίσκεται αναμεσα σε "/" ή "_"(στην περίπτωση που αντί για / υπάρχει το _) σε διαφορετικά πεδία;
Σας ευχαριστώ !!!

pakos 08-02-24 14:00

συνεχεια
 
χαιρετω τα μελη

Φιλε μου πρεπει να δουλεψεις τους κωδικες

α) right(me.[pedio],InStrRev(Me.[pedio], "_Φ")-2)
οπου InStrRev(Me.[pedio], "_Φ") ειναι ο αριθμος απο δεξια που βρισκεται το _Φ
τον αριθμο 2 (επειδη ψαχνει 2 ψηφια το _ και το Φ) ισως τον διορθωσεις αναλογα με την τιμη που θα σου δινει θα παιξεις τους αριθμους 0,1,-1
εκανα το "_Φ" για να αποφυγουμε εαν σε καποιο ονομα υπαρχει το γραμμα Φ θα διαβασει λαθος

β) InStr(1,Me.[πεδιο], "Φ")

σου δινει την θεση του Φ

μετα InStr(1,Me.[πεδιο], "/")

σου δινει την θεση του πρωτου /

τελος τον κωδικα Mid(Me.[πεδιο],InStr(1,Me.[πεδιο], "Φ"),InStr(1,Me.[πεδιο], "/"))
θα σου δωσει .800
για να αποφυγεις την τελεια
Mid(Me.[πεδιο],InStr(1,Me.[πεδιο], "Φ")+1,InStr(1,Me.[πεδιο], "/"))
θα σου δωσει 800

και σου δινει απο το Φ μεχρι το πρωτο /

απο εκει και περα δουλευεις οπως θελεις τι να περιεχει


αν θες απο το δευτερο / κανε το εξης

InStr(InStr(1,Me.[πεδιο], "/"),Me.[πεδιο], "/")
οπου αντι απο την αρχη ψαχνει μετα το πρωτο "/ " μεχρι το δευτερο

ελπιζω να σε κατατοπισα
φιλικα
Πασχάλης

pakos 08-02-24 21:46

συνεχεια 2
 
1 Συνημμένο(α)
για να μην σε κουραζω εκανα μια βαση με 5 πεδια

δουλεψε την πανω στην δικη σου

Puma80! 14-02-24 21:27

Σε Ευχαριστώ για την βοήθεια και τον χρόνο σου!
Με εκτιμηση.


Η ώρα είναι 11:41.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2