【保存版】2013年度発売全パチスロアプリ一覧(iPhone,iPad)

【Access】フォーム/レポート プロパティーのVBA一括変更方法。

既存のフォームやプロパティーに修正が必要な場合、VBAから修正することが
できます。

VBAからの修正は、修正本数が多く同じような修正が必要な場合、特に威力を発揮します。
覚えておいて損はしないtipsです。
いろいろと応用がききます。

Accessプロパティー一括変更モジュール

【フロー】
プログラムの流れはこんな感じ
1フォーム・レポートをデザインモードで開き、
   ↓
2プロパティーを変更
   ↓
3保存して閉じる
   ↓
(処理対象がなくなるまで、1へ戻りループする。)


【ソースコードサンプル】

Public Function OBJ_UPDATE()
Dim db As Database
Dim ctn As Container
Dim doc As Document
Dim strTgtObjName As String

Set db = CurrentDb

'フォームを変更
Set ctn = db.Containers!Forms
For Each doc In ctn.Documents

strTgtObjName = doc.Name

'デザインモードで開く
DoCmd.OpenForm strTgtObjName, acDesign, , , , acHidden

'プロパティー設定
With Forms(strTgtObjName)
.PopUp = True
End With

'保存
DoCmd.Close acForm, strTgtObjName, acSaveYes

Debug.Print "変更完了:" & strTgtObjName

Next doc
Set ctn = Nothing

'レポートを変更
Set ctn = db.Containers!Reports
For Each doc In ctn.Documents

strTgtObjName = doc.Name

'デザインモードで開く
DoCmd.OpenReport strTgtObjName, acDesign, , , acHidden

'プロパティー設定
With Reports(strTgtObjName)
.PopUp = True
End With

'保存
DoCmd.Close acReport, strTgtObjName, acSaveYes

Debug.Print "変更完了:" & strTgtObjName

Next doc

Set ctn = Nothing
db.Close
Set db = Nothing

MsgBox "修正完了", 64

End Function

【説明】
このソースコードサンプルを実行すると、データベース内の全ての
フォーム及び帳票の「ポップアップ」を「はい」に設定します。
(帳票のポップアップはAccess2002以降の機能ですので、Access2000以前だと
エラーがでると思います。)
実行には、DAOの参照設定が必要です。(ツール→参照設定で確認可能)

【使い方】
・上記のソースコードを標準モジュールに貼り付けて、
・イミディエイトウインドから「OBJ_UPDATE」を実行します。
イミディエイトウインド

VBAの書き方により、一度に複数のプロパティーを変更することや、
特定のオブジェクトのみ修正することも可能です。

一度、お試しください。
[Google PR]

Twitterはじめました。プラプラ | Twitter

<< 【Access】クエリーで簡単に棒グラフ表現をする。
【Access】2003安全でない式がブロックされていませんとセキュリティーレベル。 >>

[関連エントリ 最新5]

[Google PR]


[最新エントリ 5]

>>トップページ
人気カテゴリ:AccessTips SQLServer CakePHP iPad
過去ログ(全記事一覧)

コメント
はじめまして。
Access2010にて、コードを流用させていただきました。
非常に便利で大変助かりました。
ありがとうございました。
  • 2012/06/14 3:57 PM
安さま
少しでもお役にたてたのならよかったです。
コメントする(お気軽にどうぞ)









この記事のトラックバックURL
トラックバック
カテゴリー
プロフィール
お問い合わせ
Powered by NINJA TOOLS
links
recent comment
  • 【Access】vbaでhmacが正しく計算できた!!
    まさ (06/01)
  • 【Access】AccessReportMailメール送信時のポートを25から587へ
    わら (05/31)
  • 【SQLServer】超シンプル!再帰CTE(共通テーブル式)で連続データを作成する。
    sazi (09/08)
  • 【あまっちゃお】Amazon商品検索「あまっちゃお」プロジェクト始動。Ver00-06-00 β
    カメちゃん (07/31)
  • 【Access】あれ?DoCmd.RunCommand acCmdSaveRecordの内部仕様が変わった?
    花姉 (03/17)
  • 【Access】実行中のmdb(自分自身)をバックアップコピーする方法。
    亀 (02/06)
  • 【雑記】Amazonでの注文時、TMGさん発送にご注意を。納期を守れない可能性あり!
    管理人 (01/31)
  • 【雑記】Amazonでの注文時、TMGさん発送にご注意を。納期を守れない可能性あり!
    あ (01/31)
  • 【雑記】Amazonでの注文時、TMGさん発送にご注意を。納期を守れない可能性あり!
    K (11/13)
  • 【VAIOP】VaioXと両持ちできるものすっっごくマニアックなケース。当たり前ですが在庫限り。(笑)
    管理人 (08/04)
recent trackback
  • 【Access】2003安全でない式がブロックされていませんとセキュリティーレベル。
    awgs Foundry (10/29)
  • 【VAIOtypeP】液晶保護シートは、新車のカバーではない。レイアウト社液晶/天板保護フィルムセットRT-VP1FS1
    XMLがキライ。 (04/09)
  • Vistaから、LinkStation(NAS)にアクセスできません。
    そのほかいろいろ (09/06)