アクセス解析
レンタル掲示板

カレンダー
     12
3456789
10111213141516
17181920212223
24252627282930
<< November 2019 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
ブログランキング・にほんブログ村へ
カテゴリー
アーカイブ
おすすめ商品
おすすめリンク

その他リンク

<< ラグビー | main | バーベキュー >>
VBAでレポートのプロパティの変更

ACCESSでレポートのプロパティをVBAで変更するやり方です

以下ではすべてのレポートのグリッド数を変更しています

 

    Dim db              As Database
    Dim ctn             As Container
    Dim doc             As Document
    Dim strTgtObjName   As String

    Set db = CurrentDb

    'レポートを変更

    Set ctn = db.Containers!Reports

    For Each doc In ctn.Documents
        strTgtObjName = doc.Name

        'デザインモードで開く

        DoCmd.OpenReport strTgtObjName, acDesign, , , acHidden
        'プロパティー設定(X軸Y軸のグリッド数を24に変更)

        Reports(strTgtObjName).GridX = 24
        Reports(strTgtObjName).GridY = 24
        '保存

        DoCmd.Close acReport, strTgtObjName, acSaveYes

    Next doc

    Set ctn = Nothing

    db.Close

    MsgBox "完了"

 

ただ、上記の方法で、以前のバージョンで作ったツールバーの設定をなくそうとしましたができませんでした(ToolBar="")

(以前のバージョン上ではできました)

| ACCESSシステム開発 | 15:02 | comments(0) | - |
コメント
コメントする