お世話になります
Accessでボタンのデザインを一括で指定できないかと思い色々と試行錯誤中です。
現在 Access2013を使用しています。
一括でフォームをポップアップの設定に変更できるマクロは見つけれたのですが
ボタンのデザインを一括で変更するマクロは見つけれませんでした。
エクセルのように手動でマクロを記憶させれたらもう少しヒントが出てくるのでしょうが・・・
私のイメージでは
フォームを開く
すべてのボタンを選択
右クリックメニューの書式のコピーで貼り付け
フォームを閉じる
次のフォームへ・・・
下記のプログラムを流用して考えているのですが
現在わからないことは
・コマンドボタンを一括で選択する方法
・書式のコピーを行う方法
なにか良い方法などございましたら教えていただけると助かります。
vba
1Public Function OBJ_UPDATE() 2 Dim db As Database 3 Dim ctn As Container 4 Dim doc As Document 5 Dim strTgtObjName As String 6 Set db = CurrentDb 7 'フォームを変更 8 Set ctn = db.Containers!Forms 9 For Each doc In ctn.Documents 10strTgtObjName = doc.Name 11 'デザインモードで開く 12 DoCmd.OpenForm strTgtObjName, acDesign, , , , acHidden 13 'プロパティー設定 14 With Forms(strTgtObjName) 15 .PopUp = True 16 End With 17 '保存 18 DoCmd.Close acForm, strTgtObjName, acSaveYes 19 Debug.Print "変更完了:" & strTgtObjName 20 Next doc 21 Set ctn = Nothing 22 'レポートを変更 23 Set ctn = db.Containers!Reports 24 For Each doc In ctn.Documents 25 strTgtObjName = doc.Name 26 'デザインモードで開く 27 DoCmd.OpenReport strTgtObjName, acDesign, , , acHidden 28 'プロパティー設定 29 With Reports(strTgtObjName) 30'ポップアップ許可 31 .PopUp = True 32'レコードセレクタ非表示 33 .RecordSelectors = False 34 End With 35 '保存 36 37 DoCmd.Close acReport, strTgtObjName, acSaveYes 38 Debug.Print "変更完了:" & strTgtObjName 39 Next doc 40 Set ctn = Nothing 41 db.Close 42 Set db = Nothing 43 MsgBox "修正完了", 64 44End Function
あなたの回答
tips
プレビュー