[AccessD] Bug in Access 365

[Borge Hansen]

Hello everyone,
Since I know some of you have direct communication to the MS Access
developer team I am sharing this reproducible bug (?) we came across for
further examination. Perhaps there is a plausible explanation as to why
Access crashes?

Create a Form - Popup and Modal - and link to a table with some text
On Timer event remove the Access Window so only the Form is visible using
Dev Ashish's fSetAccessWindow function...

With the Form open and Access Window hidden and focus on the text control,
do a Shift-F2 to view the text in the text control in the  "Zoom window".
Now on the "Zoom Window" click on "Font..." to modify either font type or
size... well you won't get far - as MS Access immediately crashes.

I have created a small test app, downloadable here:

https://1drv.ms/u/s!AuEUskPv7jG8hV3kBHOHtpb4Wi3E?e=muChhl

With Shift Key down you can open and examine the form and code behind.
Otherwise the accdb opens frmTest on startup.

I came across this anomaly when comparing our app on a MS Access 2016
platform versus MS Access 365. The Zoom Window on the newer version of MS
Access can now be resized, whereas in MS Access 2016 you cannot resize it.

We are using Dev Ashish's fSetAccessWIndow code and were modifying the
ShowWindow api call for 64bit:

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Declare PtrSafe Function apiShowWindow Lib "user32" _
  Alias "ShowWindowAsync" (ByVal hWnd As LongPtr, _
  ByVal nCmdShow As Long) As Long

'20210409 bsh deprecated
'Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hWnd As Long, _
          ByVal nCmdShow As Long) As Long

The text on the frmTest is also from Dev Ashish's website - !

Have a great day,
/borge