Microsoft Access 掲示板

Access2013で作成したフォームがAccess2019で開くとサイズが大きい件 / 4

5 コメント
views
4 フォロー
4

OS側で120%の設定がされていても、Accessのみ100%表示にできる方法というのはないでしょうか?
たぶんないと思います。

この方法ですと、全てのフォームにこの機能を持たせようと思うと、全てのフォームにこの設定をしなければなりませんか?
そうなりますね。
下記のような関数を作成しておいて、それを一度だけ実行すればOKです。

Public Sub AllFormsSizeCange()
    Dim Frm As Access.AccessObject   
    For Each Frm In Application.CurrentProject.AllForms
        DoCmd.OpenForm Frm.Name, acDesign 'デザインビューで開く
        Call FormSizeChange(Forms(Frm.Name), 0.8) 'サイズ変更
        DoCmd.Close acForm, Frm.Name, acSaveYes '保存して閉じる
    Next Frm    
End Sub

念のためにバッグアップを取ってから実行してください。

通報 ...