Solved Smooth expand / collaps height width of subform.

[Ihk]

I have subform on Mainform. Normally subform on the main form is far right and looks like a thin line (collapsed completely).
There is button on Mainform, this button can be for any thing like add edit etc. But basically this button is only expanding the form. I know there are many ways, smooth sliding, hiding etc etc.
But I am using a very simple trick (no modules, not many lines of code etc) . On button click
for expanding

Form2.Height = 2880
Form2.Width = 6075

for collapsing, this can be a click on Main form anywhere

Form2.Height = 300
Form2.Width = 6075

Everything is fine upto here ------------
Just I have question here, is there way to control the speed of height widh increase decrease, which may make it smooth appearing or disappearing.
I tried adding like this along with above code but did not work.

Option Compare Database
Option Explicit
Const iResizeInterval   As Long = 100

Thank you

 

[strive4peace]

@Ihk, perhaps Echo is False? and then a pause (sleep) then Echo True again?

http://msaccessgurus.com/VBA/Code/API_Sleep.htm

 

[KitaYama]

Check the attached database. Click the button on left.
Change the numbers for different speed.


Edit: oops too late.

 

[Ihk]

Check the attached database. Click the button on left.
Change the numbers for different speed.


Edit: oops too late.

Thank you
This button gives me following error

 

[KitaYama]

Thank you
This button gives me following error
View attachment 102211

1- If you are using a 32 bit version of Access change this line
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
to
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

2- if still you receive error, I'm using a non-English version of Access.
Copy the module and the code in on_Click event of the button to your database and test it three.

 

[arnelgp]

change the 50 in the code (bigger value means slower expand/collapse).

 

[Ihk]

1- If you are using a 32 bit version of Access change this line
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
to
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

2- if still you receive error, I'm using a non-English version of Access.
Copy the module and the code in on_Click event of the button to your database and test it three.

I am using 64bit, 2021 version of office. I tried point 2. still error is there.

 

[Ihk]

I have attached sample / demo db.
It has two forms.
Right side subform
Left side subform (streched across right top down), this form has problem. which is mention on Main form.
click on form body to collaps.

 

[Ihk]

change the 50 in the code (bigger value means slower expand/collapse).

Thank you very much.
I will check this later today, if also works
if I want subform for example (Full right side, streched across top down), how it shows on different screen size.

 

[Ihk]

As picture below.. I am trying to achieve..
Assume this redboder picture is the main form, and it has many subforms which will appear on right but stretched across top down as shown a white form on top of main form. User wants to add record, this form show up by sliding twoward left, and then goes away....

 

[Ihk]

change the 50 in the code (bigger value means slower expand/collapse).

@arnelgp , thank you very much. I adjusted it in my case, it is super perfect and speed is adjustable.
But I have one question here, How can I change the movement direction?
In this case it is from left to right. But in my case mostly I want right to left.
I tried this by adjusting the form on most right side, but still on expand it can clearly be seen sliding from left to right.

 

[Ihk]

Just to share a link, if someone comes on this thread,
A related link to this (sliding of subform) is below - demo db is also there. The only difference is, it has button inside subform.
where it has been shown horizontal and verticle sliding of form. Whatever someone likes.
MS Access - Sliding/Shutter Subform Example | DEVelopers HUT (devhut.net)

In above given Post#6 by @arnelgp is short code, understandable and button performing action is on Main form, which is more practical in my case. The only thing to figure out in this case is movement direction for subform. Hope this will be figured out too.

 

[arnelgp]

here is another demo with 2 subforms.

 

[Ihk]

here is another demo with 2 subforms.

Fantastic. Thank you very much @arnelgp . It is a great effort and work.