Αλλαγή πλάτους στηλών σε φόρμα προβολής φύλλου δεδομένων

[dimitrisp]

Καλησπέρα

Γιώργο, στο παράδειγμα που ανέβασες είδα ότι ο κώδικας ισχύει μόνο για συγκεκριμένο φύλλο δεδομένων(frmMain).
Αν προσθέσουμε νέα φύλλα δεδομένων θα πρέπει να ενσωματώσουμε και σε αυτά τον ίδιο κώδικα κοκ.,
για να έχουμε το επιθυμητό αποτέλεσμα.

Προσπάθησα με μια Public να το γενικεύσω, αλλά μου χτυπάει στο "For Each ctrl In Me.Controls".

Έχεις καμιά ιδέα πώς μπορούμε να το χειριστούμε πιο γενικευμένα με καμιά Function?

[pctechdr]

Χωρίς να έχω διαβάσει τον κώδικα ούτε έχω κατεβάσει το παράδειγμα το me θα μπορούσες να το αντικαταστήσεις με το screen active form

https://docs.microsoft.com/en-us/off...een.activeform

[vraxnakisg]

Καλησπερα σας,

Δες μια προταση.

Ευχαριστω.

[tsgiannis]

Με βάση την προηγούμενη πρόταση μου βάζω 1 quick & dirty attachment
Για να το κάνεις δυναμικό θα πρέπει να περνάς σαν όρισμα την form
e.g
Public Function AdjustColumns(Frm as Form)
Ρίξε μια ματιά

[dimitrisp]

Καλησπέρα σε όλους!

Γιώργο, η πρότασή σου είναι υποδειγματική και με εξυπηρετεί απόλυτα!

Γιάννη, η πρότασή σου φαίνεται να είναι άκρως ενδιαφέρουσα. Θα τη μελετήσω,
και αν χρειαστεί θα επανέλθω.

Σας υπερευχαριστώ. Είμαι ειλικρινά υπόχρεος για τη βοήθειά σας!

Καλή συνέχεια...