09-05-19, 11:30
|
| Super Moderator Όνομα: ΓΙΩΡΓΟΣ Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 14-01-2014
Μηνύματα: 234
| |
Καλησπέρα Γιώργο,
Σε αναδυόμενη φόρμα σε προβολή φύλλου δεδομένων δοκίμασε να βάλεις τον παρακάτω κώδικα στο 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
Ευχαριστώ.
|