#005 AllowDesignChanges

"AllowDesignChanges/デザイン変更の許可" プロパティ

フォームのデザインをすべてのビューで変更できるか、あるいはデザイン ビューでのみ変更できるかどうかを設定します。
すべてのビューで変更可(True)とした場合、フォームビューなどにおいても、プロパティシートの表示が可能となったり、ツールバーでの書式変更が可能となったりします。

※デザインビュー状態のときのみプロパティの設定変更が可能です。

フォーム

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  Const cstrForm As String = "フォーム005View"

  '対象フォームをデザインビュー&非表示で開く
  DoCmd.OpenForm cstrForm, acDesign, , , , acHidden

  '対象フォームのプロパティを設定
  With Forms(cstrForm)
    Select Case Me!fraProperty
      Case 1
        'デザイン変更を許可する
        .AllowDesignChanges = True
      Case 2
        'デザイン変更を許可しない
        .AllowDesignChanges = False
    End Select
  End With

  '対象フォームを保存したあと表示する
  DoCmd.Close acForm, cstrForm, acSaveYes
  DoCmd.OpenForm cstrForm

End Sub
  • デザイン変更を許可したときは、フォームビューの状態でもプロパティシートを表示できます。
| Index | Prev | Next |

 

Copyright © T'sWare All rights reserved