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

[γιώργοςΚ]

Φίλοι μου καλή σας μέρα ,

Γνωρίζει κάποιος αν υπάρχει τρόπος ετσι ώστε το ύψος μιας φόρμας σε προβολή φύλλο δεδομένων, πως και αν μπορεί να ρυθμίζεται αυτόματα ανάλογα με τις εκάστοτε έγραφες που έχει?

Ευχαριστώ εκ προτέρων

[vraxnakisg]

Καλησπέρα Γιώργο,
Σε αναδυόμενη φόρμα σε προβολή φύλλου δεδομένων δοκίμασε να βάλεις τον παρακάτω κώδικα στο event open της φόρμα.

Private Sub Form_Open(Cancel As Integer)
If (Me.RowHeight * (Me.Form.Recordset.RecordCount + 3)) > screen.ActiveForm.InsideHeight Then
Me.InsideHeight = Screen.ActiveForm.InsideHeight
Else
Me.InsideHeight = Me.RowHeight * (Me.Form.Recordset.RecordCount + 3)
End If
End Sub

Ευχαριστώ.

[γιώργοςΚ]

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

Καλησπέρα Γιώργο,
Σε αναδυόμενη φόρμα σε προβολή φύλλου δεδομένων δοκίμασε να βάλεις τον παρακάτω κώδικα στο event open της φόρμα.

Private Sub Form_Open(Cancel As Integer)
If (Me.RowHeight * (Me.Form.Recordset.RecordCount + 3)) > screen.ActiveForm.InsideHeight Then
Me.InsideHeight = Screen.ActiveForm.InsideHeight
Else
Me.InsideHeight = Me.RowHeight * (Me.Form.Recordset.RecordCount + 3)
End If
End Sub

Ευχαριστώ.

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

[vraxnakisg]

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

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

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

Ευχαριστώ.

[γιώργοςΚ]

Αρχική Δημοσίευση από 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

[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

Δεν έχει καμία σχέση με το ζητούμενο σου:

Γνωρίζει κάποιος αν υπάρχει τρόπος έτσι ώστε το ύψος μιας φόρμας σε προβολή φύλλο δεδομένων, πως και αν μπορεί να ρυθμίζεται αυτόματα ανάλογα με τις εκάστοτε έγραφες που έχει?

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

Εν πάση περίπτωσή η δουλεία να γίνετε.

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

[γιώργοςΚ]

Γειά σου Γιώργο,

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

Σε ευχαριστω πάντως