Αυτόματη ρύθμιση μεγέθους φόρμας

[γιώργοςΚ]

Αρχική Δημοσίευση από vraxnakisg

Καλησπέρα Γιώργο,

Έτσι όπως έχεις στείλει το σφάλμα δεν βοηθάει.

Ανέβασε ένα δείγμα βάσης για να μπορέσουμε να σε βοηθήσουμε περισσότερο.

Ευχαριστώ.

Γεια σου φίλε Γιώργο,

Εχω επιλύσει το πρόβλημα με την χρήση του πάρα κάτω κώδικα που δουλεύει

Private Sub HideShrink()

Me.InsideHeight = 3000

Me.fsubPostcodeAddresses.Visible = False
Me.fsubPostcodeAddresses.Height = 0 'note that subform can be reduced to zero despite containing controls
Me.cmdSubform.Top = 1000 'position from top of section
Me.lblSubform.Top = 1000
Me.lblSubform.Caption = "When you click the button, the subform will grow and be visible. " & vbCrLf & "The button and this label will move down. The main form also stretches"

Me.cmdSubform.Caption = "Show Subform"

Me.lblInfo.Visible = False
Me.lblInfo.Caption = ""

End Sub