[γιώργοςΚ]

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

Ευχαριστώ.

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