[kapetang]

Καλησπέρα στην παρέα

Στη ΒΔ που επισυνάπτω υπάρχει ένα παράδειγμα υλοποίησης του ζητούμενου.
Η υλοποίηση γίνεται με κώδικα ο οποίος τοποθετείται στο συμβάν με την μορφοποίηση της ενότητας στην οποία είναι τα πεδία.
Στο παράδειγμα έβαλα τα πεδία στην κεφαλίδα της σελίδας (πλαίσια κειμένου txt1, txt2) και στις λεπτομέρειες.(text1, text2).
Ο κώδικας φαίνεται παρακάτω.

Private Sub Ενότητα_κεφαλίδας_σελίδας_Format(Cancel As Integer, FormatCount As Integer)
        Me.txt2.Move Me.txt1.Left, Me.txt1.Top + Me.txt1.Height
End Sub

Private Sub Λεπτομέρεια_Format(Cancel As Integer, FormatCount As Integer)
    Me.text2.Move Me.text1.Left, Me.text1.Top + Me.text1.Height
End Sub

Προσθήκη: Ορίζουμε τις ιδιότητες των πεδίων «Ανάπτυξη» και «Συρρίκνωση» σε Ναι.
Για να εκτελεστεί ο κώδικας και να φανούν τα αποτελέσματα η έκθεση θα πρέπει να είναι σε προεπισκόπηση εκτύπωσης ή να εκτυπωθεί.
Φιλικά/Γιώργος