جابه جایی اشیا روی فرم به صورت اتوماتیک

با سلام خدمت اساتید محترم اکسس
بنده یه برنامه با اکسس نوشتم میخواستم تو یه فرم که به شکل گزارش طراحی کردم وقتی یکی از تکست باکس ها مقدارشون صفر باشه اون تکست باکس مخفی بشه. البته این کار راحته ولی جای اون تو فرم خالی میمونه هرچی گشتم پیدا نکردم میخواستم از اساتید که در این زمینه تخصص دارند خواهش کنم راهنماییم کنن که چطور میتونم فیلدهای خالی رو مخفتی کنم طوری که فیلدهای دیگه بیان جاشو بگیرن و جای خالی نباشه تو فرم یعنی تکست باکس ها مرتب شوند.
پیشاپیش از لطفتون ممنونم

خواهشا اگه کسب بلده راهنمایی کنه

یعنی کسی نیست این یه تیکه کد رو بلد باشه و یه خیری کنه کار مارو راه بندازه؟

شما اگر گزارش نیاز دارین بهتره از گزارش استفاده کنین چون اونجا میتونین با استفاده از ویژگی can grow/can shrink اندازه کنترل رو برحسب محتویاتش کنترل کنین.
البته به یاد داشته باشین فقط در جهت عمودی کار میکنه.

اگر واقعا نیاز به فرم هست یا اینکه در جهت افقی قراره فضای خالی رو حذف کنین نیاز به کدنویسی داره.
در اینصورت بهتره فرم رو پیوست کنین.

با تشکر از استاد عزیز که جواب دادین.
من یک نمونه فایل پیوست کردم میخوام در فرم فیش مواردی که صفر هستند موق نمایش پنهان شوند و تکست باکس های دیگر بیان جای اون رو بگیرند طوری که جای اون تکست باکس خالی نباشه
خیلی ممنون

راحتترین راه همون استفاده از یک ساب ریپورت برای نمایش فیلدهایی هست که قراره اندازه شون بر اساس محتوا کنترل بشه.

با این وجود در فرم هم میشه ولی کدنویسی میخواد:

Option Compare Database

Option Explicit

Dim H As Integer

Const Fields_Count As Integer = 4

Private Sub Form_Current()

Dim i As Integer

For i = 1 To Fields_Count

    Fld(i).Visible = (Fld(i) <> 0)

Next

Dim Last_Top As Integer

Last_Top = F1.Top

For i = 1 To Fields_Count - 1

    If Fld(i) <> 0 Then

        Last_Top = Last_Top + H

    End If

    Fld(i + 1).Top = Last_Top

    Fld(i + 1).Controls(0).Top = Last_Top

Next

End Sub

Private Sub Form_Load()

H = Me.F2.Top - Me.F1.Top

End Sub

Private Function Fld(ByVal n As Integer) As Control

Set Fld = Me.Controls("F" + Trim(n))

End Function

چند نکته رو در نظر بگیرین:

• مهم نیست که کنترل سورس فیلدها چی هست یا از چه نوعی هستن ولی باید به ترتیب از F1 نام گذاری بشن
• فاصله بین کنترل ها باید یکسان باشه
• کد نمونه برای چهار کنترل هست

و چند توضیح در باره کد:

• متغیر گلوبال H فاصله بین کنترل ها رو نگهداری میکنه و هنگام لود شدن فرم مقدار دهی میشه
• از ویژگی (0)CONTROLS برای دسترسی به لیبل کنترل استفاده شده

خیلی ممنون استاد بزرگوار
فقط یه مشکلی که دارم اینه که من تو نرم افزارم یه چاپ فیش حقوقی گروهی قرار دادم که به صورت continios هست وقتی کدی در قسمت form current مینویسم فقط در فیش اولی اجرا میشه و پرینت که میگیرم در مابقی فیش ها اعمال نمیشه. ممنون میشم که در این مورد نیز بنده را راهنمایی نمایید

این خواسته فقط در ریپورت شدنی هست