[VBA] Userform

[gfevran]

Γεια σας παιδιά,
Θα ήθελα τη βοήθεια σας για ένα userform
Ανεβάζω συνημμένο για να γίνω πιο κατανοητός.
Ευχαριστώ για όποια βοήθεια.

[Tasos]

Καλησπέρα!

Γιώργο στο συνημμένο υπάρχει ένα παράδειγμα που καλύπτει το ζητούμενο.

Θα χρειαστεί να μελετήσεις τον κώδικα για να κάνεις τυχόν μετατροπές.

Φιλικά

Τάσος

[gfevran]

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

Ευχαριστώ πολύ
Γιώργος

[Tasos]

Καλησπέρα!

Γιώργο, αρχικά παρατήρησα 2 πράγματα:

1. το στοιχείο "lstCategory" έχει μια στήλη ενώ εσύ του ζητάς τιμή από την ανύπαρκτη δεύτερη στήλη του ( .List(.ListIndex, 1).

.List(.ListIndex, 0) = Πρώτη στήλη του πλαισίου λίστας.
.List(.ListIndex, 1) = Δεύτερη στήλη κοκ.

2. Το στοιχείο "txtname" δεν είναι πλαίσιο κειμένου αλλά πλαίσιο λίστας.

Αφαίρεσε το πλαίσιο λίστας "txtname" και βάλε στη θέση του ένα πλαίσιο κειμένου με το ίδιο όνομα.

Τροποποίησε τον κώδικα του συμβάντος Private Sub lstCategory_Click() όπως φαίνεται παρακάτω:

Private Sub lstCategory_Click()
    Me.NewRecord = False
    Me.txtname.Text = Me.lstCategory.Value
End Sub

Φιλικά

Τάσος

[gfevran]

Καλησπέρα!
Τάσο μετά τις διορθώσεις που πρότεινες απλά τέλειο...
Σ' Υπέρ ευχαριστώ
Με απέραντο σεβασμό στη γνώση σου.
ν' σε πάντα καλά να βοηθάς!

Φιλικά
Γιώργος