تغيير حجم النموذج في MS Access عن طريق تغيير التفاصيل.ارتفاع

Question

أريد من المستخدم أن يكون قادرا على تغيير ارتفاع النموذج. في طريقة العرض "نموذج" من خلال النقر على زر:

Private Sub btnChangeHeight_Click()

    booTall = Not booTall

    If booTall Then
        lngHeight = 12400   ' (twips)
    Else
        lngHeight = 1200
    End If

    Me.Detail.Height = lngHeight
    Me.Repaint

    Debug.Print Me.Detail.Height

End Sub

ارتفاع التغييرات. Debug.Print يقول ذلك ، و عمودي شريط التمرير يظهر عند booTall هو True. لكن الشكل لن يغير البعد العمودي على الشاشة.

كما أنني حاولت دون نجاح (التأكد من بلدي زر على شكل رأس):

    Me.Detail.Visible = booTall

الحل يبدو أن تعتمد على خصائص شكل و شكل مقطع التفاصيل: يمكن تغيير حجم, ارتفاع السيارات, ربما يمكن أن تنمو, ، وما إلى ذلك.ولكن كنت مغشوش مع هؤلاء و لا شيء يعمل.

أنا أفهم تداخل الضوابط وغيرها من الأشياء التي يمكن أن تمنع ارتفاع التعديلات ، حتى لقد خفضت شكل إلى الحد الأدنى من التخطيط.أنا باستخدام Access الإصدار 2007/2010.

بعض المعلومات الإضافية: ما أنا في الواقع العامل تجاه اثنين من النماذج الفرعية (أ) أعلاه و (ب) أدناه ، والتي يمكن مستقل يكون انهار من عرض أو توسيعها.هذا هو القرار شكل مع الكثير من البيانات على ذلك.اعتقد لو انهار ارتفاع (أ) أو (ب) ، CanShrink ملك Detail تسبب عموما شكل بعدا تغيير.في الواقع, أعتقد أنني فعلت هذا منذ سنوات قليلة باستخدام Access 2003.وذلك تعظيم ...نحن إعداد هذا النموذج كما يمكن إعادة استخدامها عدة حالات يمكن فتح.

Answer 1

"...تغيير ارتفاع النموذج. في طريقة العرض "نموذج" من خلال النقر على زر"

استخدام النموذج .Move طريقة تغيير شكل و حجم.هذه عينة المسامير بلدي شكل ارتفاع بين 4044 و 8000 تويب.

Private Sub btnChangeHeight_Click()
    Dim lngHeight As Long

    If Me.WindowHeight = 4044 Then
        lngHeight = 8000
    Else
        lngHeight = 4044
    End If
    Me.Move Me.WindowLeft, Height:=lngHeight
End Sub

Answer 2

لدي مشكلة مماثلة وجدت أنه حتى لو خبأت المجالات (الضوابط) لم تريد أن ترى التفاصيل الارتفاع لن يتقلص بما فيه الكفاية.وجدت إذا انتقلت الضوابط أردت إخفاء (حتى تضع سواء .مرئية .أعلى خصائص) ثم التفصيل.ارتفاع من شأنه أن يقلل إلى ما أردت.كما لو مخفي حتى الوصول إلى رفض تجاهل الضوابط الخفية