Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Διαχωρισμός δεδομένων πεδίου
Γεια σε όλους! 2 προβληματάκια για όποιον μπορεί να βοηθήσει: -Εχω ένα "πίνακα01" με τρία πεδία: f1, f2, f3. Στο πεδίο f1 έχω το ονοματεπώνυμο: πχ "Γεωργίου Γεώργιος". Πως μπορώ αυτόματα να ενημερώσω το πεδίο f2 με το "επώνυμο" και το πεδίο f3 με το "όνομα", σε έναν πίνακα με 500 τουλάχιστον ονοματεπώνυμα ? -Εχω ένα πλαίσιο λίστας που διαβάζει στοιχεία από τον "πίνακα02" που περιέχει 3 πεδία (k1=red, k2=blue k3=orange) και ενημερώνει τον "πινακα03". Πως μπορώ, αφου επιλέξω απ το πλαίσιο λίστας το στοιχείο k1 πχ"red" να ενημερωθούν ταυτόχρονα τα πεδία z1, z2, z3 του "πινακα03" με τα αντίστοιχα k1, k2 & k3? Οι πίνακες δεν μπορούν να συνδεθούν γιατί είναι τελείως αναντίστοιχες οι τιμές.. |
#2
| ||||
| ||||
Καλησπέρα... Γιάννη καλώς μας ήλθες. Για το πρώτο ερώτημά σου, κάνε προσαρμογή του παρακάτω κώδικα και ελπίζω να σε καλύπτει. Κώδικας: Private Sub Diaxorisi_Click() Dim i As Integer With CurrentDb.OpenRecordset("tblOnomata", 2) .MoveFirst Do While Not .EOF i = InStr(1, !Ola, " ") If Not IsNull(i) Then If i > 0 Then .Edit !Eponimo = Trim(Left(!Ola, i)) !Onoma = Trim(Right(!Ola, Len(!Ola) - i)) .Update End If End If .MoveNext Loop End With End Sub Μπορείς να 'φορτώσεις' την ρουτίνα όπου θες! Για το δεύτερο ερώτημα ανέβασε κάποια δοκιμαστική βάση -ΣΥΜΠΙΕΣΜΈΝΗ- ώστε να δοθεί λύση. (Έχω κάποιες αμφιβολίες για το τι θες...) Χαιρετώ / Νίκος Δ. |
#3
| |||
| |||
Νίκο καλησπέρα! Ευχαριστώ για την γρήγορη και πολύ πετυχημένη απάντηση! Δουλεύει άριστα!!! Για την άλλη απορία μου, ανεβάζω τη βάση βδ1... Ο πίνακας tbl2 εχει ΜΙΑ μονο σειρά με 9 πεδία. Προσπαθώ να πετύχω το εξής: Αλλάζοντας οποιοδήποτε Σύνθετο πλαίσιο (τιμές από tbl1) να ενημερώνει ταυτόχρονα και τα διπλανά Σύνθετα πλαίσια και τα τρία αντίστοιχα πεδία του πίνακα tbl2.. Ευχαριστώ και πάλι!!! Υ.Γ. Κατέβασα κάποιες βάσεις απο το forum αλλά δεν ανοίγουν... Μου βγάζει μήνυμα: Δεν είναι δυνατό το ανοιγμα αυττού του αρχείου απο τη Microsoft Access Το αρχείο αυτό βρίσκεται εκτός intranet κλπ.. κλπ... Τι συμβαίνει? |
#4
| ||||
| ||||
Γιάννη, είμαι βέβαιος ότι έχεις πρόβλημα στη σχεδίαση αυτού που θέλεις να υλοποιήσεις.
Κώδικας: Private Sub combo11_AfterUpdate() Select Case combo11 Case "Κιβώτιο" combo12 = "box-12" combo13 = "cr001" Case "Τεμάχιο" combo12 = "P-1" combo13 = "00856" Case "Χονδρική" combo12 = "large" combo13 = "526" End Select End Sub Αγαπητέ Γιάννη, δες την σχεδίαση! Περιέγραψε τι θες να κάνεις και είμαι βέβαιος ότι εδώ στο Forum θα υπάρξουν προτάσεις που θα δώσουν την καλύτερη λύση. Καλό βράδυ σε όλους μας / Νίκος Δ. Υστερολόγιο : Άνοιξε τις βάσεις από 'ασφαλή' περιοχή π.χ. όρισε ασφαλή την επιφάνεια εργασίας σου |
#5
| |||
| |||
Παράθεση:
Με ένα κενό η λύση αυτή δουλεύει τέλεια, αν όμως έχουμε περισσότερα τι γίνεται? ή άν έχουμε και άλλο χαρακτήρα που διαχωρίζει τα πεδία π.χ.(,) και τα στοιχεία είναι ανακατεμένα. Είναι σωστή η λύση να χρησιμοποιήσουμε για 2η φορά την ίδια ρουτίνα όπως στο παράδειγμα ή υπάρχει ευκολότερος-γρηγορότερος τρόπος? Όπως είναι κάνει δουλειά αλλά καθυστερεί αρκετά όταν έχεις αρκετές χιλιάδες εγγραφές. |
#6
| |||
| |||
Καλησπέρα σε όλους! Φίλε Νίκο, υπάρχει σίγουρα πρόβλημα σχεδίασης της βάσης γιατί (ως αρχάριος) προσπαθώ να επεκτείνω-διορθώσω μια παλιά βάση αντί να προσπαθήσω (επειδή το φοβάμαι) να τη στήσω απ την αρχή...... Ο πίνακας tbl2 με τα 9 πεδία ( τρεις τριάδες) στην τελική του μορφή θά έχει... 120 πεδία (40 τριάδες) !!! Κάθε τριάδα θα βρίσκεται μόνο μια φορά στον πίνακα! Τα στοιχεία των πεδίων συμπληρώνονται μόνο μια φορά και τα χρειάζομαι ως ετικέτες για αναφορές-εκτυπώσεις και δεν επηράζουν την υπόλοιπη βάση.... Τα combo προσπαθώ να τα βάλω για αισθητικούς λόγους και για να πειραματιστώ με την access... Ευχαριστώ για τον κώδικα αλλά θέλω οι τιμές να είναι από τον πίνακα tbl1 και όχι προκαθορισμένες... Ας το κάνω πιο απλό το πρόβλημα: -Ενα combo που διαβάζει 3 τιμές από τον tbl1 -Ενας πίνακας tbl2 με 3 πεδία f1 f2 f3 Υπάρχει τρόπος επιλέγοντας μια εγγραφή με το combo να ενημερώνονται ταυτόχρονα και τα τρία πεδία του tbl1? Θα σκάσω απ την περιέργειά μου.... Φίλε Στέλιο Ο τελευταίος (λόγω ασχετοσύνης) που θα σου έδινε απάντηση ειμαι εγώ... Υ.Γ. Εβαλα το ms-office.gr στις ασφαλείς τοποθεσίες στον explorer και τώρα ότι κατεβάζω ανοίγει χωρίς πρόβλημα... http://support.microsoft.com/kb/303650/el |
#7
| ||||
| ||||
Καλημέρα σε όλους! Φίλε μου Στέλιο, μπορείς να δημιουργήσεις το ένα ερώτημα (βλ. κώδικα SQL παρακάτω) και απ όπου μπορείς να τραβήξεις τα πεδία F1, F2, F3: Κώδικας: SELECT Replace(Replace([Ola]," ",";"),",",";") AS CleanArray_Ola, IIf([CleanArray_Ola]<>"" And InStr(1,[CleanArray_Ola],";")>0, Mid$([CleanArray_Ola],Len([F1])+2,Len([CleanArray_Ola]) -Len([F1])),"") AS FHlp, IIf([CleanArray_Ola]<>"" And InStr(1, [CleanArray_Ola],";")>0,Left$([CleanArray_Ola],InStr(1,[CleanArray_Ola],";")-1),"") AS F1, IIf([FHlp]="","",IIf(InStr(1,[FHlp],";")>0,Left$([FHlp],InStr(1,[FHlp],";")-1),[FHlp])) AS F2, IIf([FHlp]="","",IIf(InStr(1,[FHlp],";")>0,Right([CleanArray_Ola], Len([CleanArray_Ola])-(Len([F1])+Len([F2])+2)),"")) AS F3 FROM tblStoixeia; Αν έχει κάποιος το χρόνο, ας το τεστάρει και να μας πει τα αποτελέσματα. Φιλικά Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |
#8
| |||
| |||
Καλημέρα σε όλους! Φίλε Νίκο, έλυσα την απορία μου, χάρη σε μια παλιά σου απάντησή σου στο forum: http://www.ms-office.gr/forum/access...combo-box.html Κώδικας: Private Sub combo01_AfterUpdate() [f1_code_01] = combo01.Column(1) [f1_code_02] = combo01.Column(2) End Sub Ευχαριστώ για την βοήθειά σου! Φίλε Τάσο, δώσε μου λεπτομέρειες πως-που να χρησιμοποιήσω το κώδικά σου και θα το τεστάρω.. Εχω(?) χρόνο! Ο κώδικας του Στέλιου χρειάστηκε 5΄΄ για να χωρίσει 15.000 εγγραφές σε pentium 4, 2.8GHz, 1GB ram,XP, access 2003... |
#9
| ||||
| ||||
Γιάννη καλησπέρα! Ο κώδικας του προηγούμενου μηνύματος μου είναι ένας παραδειγματικός κώδικας SQL ενός ερωτήματος. Δες και το συνημμένο παράδειγμά για να έχεις μια πιο πλήρη εικόνα. Με συγχωρείτε που δεν αναλύω ή δεν εμβαθύνω τα θέματα όσο πρέπει αλλά... οι διακοπές βλέπετε... Φιλικά Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών Τελευταία επεξεργασία από το χρήστη Tasos : 10-07-10 στις 20:53. |
#10
| |||
| |||
Καλησπέρα στους κάνοντες διακοπές!!! Φίλε Τάσο, δεν το πολυκατάλαβα, αλλά θα το ψάξω (γιατι είμαι περίεργος) οταν γυρίσω και εγώ από τις διακοπές!!! Φεύγω Πέμπτη!!! Καλά να περνάτε! |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Πίνακες ] Διαχωρισμός περιεχομένου (τχτ) πεδίου σε νέα πεδία | qaggelos | Access - Ερωτήσεις / Απαντήσεις | 4 | 09-01-16 18:40 |
[ Ερωτήματα ] Διαχωρισμός Πεδίου σε πεδία | jimrenoir | Access - Ερωτήσεις / Απαντήσεις | 2 | 18-12-14 18:51 |
Διαχωρισμός ενός πεδίου σε τρία μέρη | gmax | Access - Ερωτήσεις / Απαντήσεις | 2 | 05-11-13 14:12 |
[ Πίνακες ] Διαχωρισμός πεδίου νομισματικής μονάδας ευρώ !!! | artchrist73 | Access - Ερωτήσεις / Απαντήσεις | 2 | 12-04-13 23:41 |
[Συναρτήσεις] Μεταφορά Δεδομένων (διαχωρισμός δεδομένων) | xristos | Excel - Ερωτήσεις / Απαντήσεις | 1 | 13-05-12 10:26 |
Η ώρα είναι 07:29.