[VBA] Ενημέρωση εγγραφών μέσω userform

[gourji]

Καλησπέρα. Καταρχήν να σας ευχαριστήσω για τα φώτα που μας δίνετε... και η ερώτηση μου είναι
σαν αρχάριος που είμαι θέλω με το πάτημα ενός κουμπιού να ενημερώνει συγχρόνως όλες τις εγγραφές που εμφανίζονται στο userform. Σας αποστέλνω το συνημμένο για να το καταλάβετε...

[Spirosgr]

Καλησπέρα
Φίλε Χρήστο καλωσόρισες στην παρέα μας.
Για να είμαι ειλικρινής, δεν κατάλαβα το ζητούμενο με βάση αυτό που είδα στον κώδικα.
Η φόρμα ανοίγει στο πρώτο φύλλο και το πελατολόγιο είναι στο δεύτερο,
ενώ υπάρχει και ActiveCell ...
και ορίζεται η περιοχή MyRange με Function ...
ενώ στα Textboxes χρησιμοποιείς Find ...
Ακόμα δεν κατάλαβα, γιατί πρέπει να υπάρχουν δεξιά και αριστερά ίδια Textboxes ...
Τώρα για να επαναπροσδιορίσουμε το ζητούμενο:
Υποθέτω ότι έχεις σε κάποιο φύλλο ένα πελατολόγιο, με χ στήλες με στοιχεία πελατών.
Θέλεις να ανοίγεις μια φόρμα, όπου αφ' ενός μεν με την επιλογή πελάτη να εμφανίζονται τα στοιχεία του, αφ' ετέρου δε αν αλλάξεις κάποιο από αυτά, να ενημερώνονται οι εγγραφές
του πελατολογίου σου.
Το κατάλαβα σωστά;
Αλλά ας αρχίσουμε σωστά αφού θέλεις να χρησιμοποιείς κώδικα.
Πήγαινε πίσω στην VBA και από τα εργαλεία > επιλογές επέλεξε και τίκαρε
στην πρώτη καρτέλα αυτό που φαίνεται στην συνημμένη εικόνα.
Αυτό εμφανίζει επάνω σε κάθε λειτουργική μονάδα την "έκφραση"
Option Explicit
που σε "αναγκάζει" να δηλώσεις τις μεταβλητές σου ώστε να ορίζεται
τι είναι τι και που είναι ποιο.
Αν κατάλαβα το ζητούμενο συνεχίζουμε.

[gourji]

Καλησπέρα Σπύρο και πάλι και σε ευχαριστώ για την φιλοξενία.
Σωστά το κατάλαβες αν και όπως σου έγραψα είμαι αρχάριος και την φόρμα την βρήκα κάπου έτοιμη και προσπάθησα να την τροποποιήσω αλλά δεν μπόρεσα.
Τώρα για να σου δώσω να καταλάβεις θέλω όπως αριστερά έτσι και δεξιά να εμφανίζει τις εγγραφές ανάλογα με το τι θα εμφανίζει το combobox και ανάλογα να τις ενημερώνω η να τις τροποποιώ.

[Spirosgr]

Καλημέρα
Στο βιβλίο που ακολουθεί υπάρχει τροποποιημένο ένα παλιότερο project
που είχαμε κάνει με τον Τάσο.
Μπορεί να διαχειριστεί εγγραφές πελατολογίου μέσω φόρμας.
Η φόρμα μπορεί να αλλάξει ανάλογα τις ανάγκες του καθ' ενός
προσθέτοντας / αφαιρώντας στοιχεία.
Αν ανοίξετε την φόρμα και περάσετε τον κέρσορα επάνω από τα κουμπιά (εικονίδια)
εμφανίζεται "λεζάντα" με το τι κάνει κάθε κουμπί.
Γενικά
Για νέα εγγραφή: καθαρίσετε τα πεδία, εισάγετε νέο και κλικ στο κουμπί
Για υπάρχουσες εγγραφές: επιλέξτε από την λίστα και ενημερώστε ή διαγράψτε ανάλογα
Σημείωση:
Να πούμε εδώ ότι ο τρόπος που εισάγεται το ID πελάτη προϋποθέτει να μην έχουμε διαγραφές
αλλά να κρατάμε ιστορικό με μια στήλη που να χαρακτηρίζει "Ενεργό / Ανενεργό"
Αν θέλουμε να διαγράφουμε εγγραφές αλλά ένα ID "χρησιμοποιημένο" να μην επαναληφθεί ποτέ ξανά
(όπως κάνει η Access) τότε ο τρόπος εισαγωγής του είναι διαφορετικός.
Κάποια στιγμή θα ανεβάσουμε ένα τέτοιο αρχείο στην ενότητα "Χρήσιμα" του forum.

[gfevran]

Γεια σου Σπύρο,
Ζητώ συγνώμη για την παράπλευρη ερώτηση!
που μπορώ να βρω τα εικονίδια που έχεις χρησιμοποιήση στη userform
έχω το office 2007 έψαξα αλλά δεν βρήκα κάτι σχετικό
Ευχαριστώ εκ των προτέρων.

[gourji]

Φίλε Σπύρο με έχεις βοηθήσει πάρα πολύ... το μόνο κακό είναι ότι όταν έχω1000 πελάτες δεν μπορώ να βρω αυτόν που ψάχνω. Μήπως θα μπορούσες να προσθέσεις ένα combox εναλλακτικα για γρήγορη εύρεση του πελάτη; Ευχαριστώ

[Spirosgr]

Χρήστο
Το combobox είναι συνδυαστικό ως προς την λειτουργία του.
Και ψάχνει μέσω λίστας και πληκτρολογείς.
Η λίστα που δημιουργείται αριστερά στην φόρμα είναι αλφαβητική και
μπορείς να κάνεις πολύ εύκολη αναζήτηση με την scrollbar.
Άρα την μια ενέργεια (του combo) την έχεις.
Εκτός από αυτό θέλεις και αναζήτηση με πληκτρολόγηση;
πχ να γράφεις "κάπου" ΔΗΜΗΤ" και εμφανίζονται εγγραφές για ΔΗΜΗΤΡΙΟΥ, ΔΗΜΗΤΡΙΑΔΗ κλπ;

[gourji]

Ναι θα με εξυπηρετούσε πολύ...

[Spirosgr]

Για θέματα αναζήτησης δεδομένων και εισαγωγή, ενημέρωση, διαγραφή εγγραφής/ων
δείτε αυτό:
http://www.ms-office.gr/forum/excel-...html#post17947