フォームモジュールだとエラーになる理由は？

質問

http://okwave.jp/qa/q7837097.html
でも質問した者ですが別の事がやりたくなってきちゃいました。

と言うのは、
ページのインデックスと同じ番号をページ名とページの表題に設定したいと思いました。

フォームにタブ0を置き、ページを５つくらいにしました。
その際、ページインデックスが0の時にページの名前はページ1になり、
ページインデックスが1の時にページの名前はページ2になり・・・
とひとつずつずれてるのを前回の質問で学習しました。

そしてさらにコマンドボタンを置いてそのコマンドボタンを押下すると
ページインデックスの値を
ページ名とページの表題に設定するＶＢＡコードを作ったのですがエラーになってしまいます。

フォームモジュールに
**********************************************************
Private Sub コマンド_Click()
'SetFocusメソッドはデザインビューでは使えない
Dim ctl As Control
Dim i As Long
DoCmd.OpenForm "フォーム1", acDesign

For Each ctl In Forms("フォーム1").Controls
If ctl.ControlType = acPage Then
Forms("フォーム1").タブ0.Pages(i).Name = "ページ" & i
Forms("フォーム1").タブ0.Pages(i).Caption = i
i = i + 1
End If
Next ctl
End Sub
**********************************************************
としました。

これを実行すると
Forms("フォーム1").タブ0.Pages(i).Name = "ページ" & i
の部分で
実行時エラー 29054
「指定のコントロールを追加 名前の変更 または削除することはできません」
となります。
終了（E）しか選択できない状態でデバッグ（D）は選択できないです。

でも、これと全く同じコードを標準モジュールに貼り付けて実行すると問題なく動きます。

なぜフォームモジュールだとエラーになるのでしょうか？
２００３でも２００７でもエラーになります。

ご回答よろしくお願いします。

回答No.1

DexMachina · ベストアンサー

> なぜフォームモジュールだとエラーになるのでしょうか？

端的に言ってしまえば「仕様」ということになてしまいますが・・・(汗)

VBAでは、記述したコードは、実行される前にコンパイルされます。
http://e-words.jp/w/E382B3E383B3E38391E382A4E383AB.html

このコンパイルが実行される際に、
　「フォーム上に実際にあるコントロール群の名前」と
　「コード上に記載されたコントロール群の名前」
との整合性が確認され、整合していた場合のみ、実行可能になります。
(不整合があった場合は「コンパイルエラー」が発生)

このコンパイルの処理は、少なくともAccess VBAではモジュール単位で
行われるようです。
(フォームに実在しないコントロールを参照するコードを記述した場合、
　そのフォーム内のコードを実行しようとすると(当該コントロールを参照
　する部分は実行しなくても)コンパイルエラーが発生する一方で、
　別のフォームのコードは、上記のコードの修正をしなくても問題なく
　実行できる、と)

そして、コードの実行が可能な状態(=フォーム ビュー)が継続している間は、
この整合性が保たれるよう、ある意味、「レコードロック」と同様と思われる
処理が行われます。

ところが、今回のご質問のように「自身を一旦デザインビューに切り替えて」
という処理の場合は、確かにフォームとしてはビューが切り替わっていますが、
コード側から見ると、「コンパイルされた一連の処理が継続中」の状態です。

このため、その処理が行われると整合が取れなくなるということで、実行時
エラーとなった、ということだと思います。

・・・納得には程遠い回答かとは思いますが(汗)、参考まで。

お礼

回答ありがとうございました。