(1)マウスポインタの形状を砂時計にする
DoCmd.Hourglass True/False
(2)いろいろな形状
Screen.MousePointer = 値
【 値 】
0:規定値
1:矢印
3:I字型
7:上下の矢印
9:左右の矢印
11:砂時計
※これ以外の値を指定した場合は、規定値と同じ。
マウスポインタの形状を砂時計にする
DoCmd.Hourglass True
マウスポインタの形状を標準に戻す
DoCmd.Hourglass False
マウスポインタの形状を「I字型」に変える
Screen.MousePointer = 3
マウスポインタの形状を標準に戻す
Screen.MousePointer = 0
https://docs.microsoft.com/ja-jp/office/vba/api/access.docmd.hourglass
http://www.mtanabe.com/tips.php?tips_id=70
