コントロールを削除すると、一つ飛ぶ アクセス

質問

こんばんは。よろしくお願いします。

フォーム上のイメージを削除してるのですが

Sub test()
Dim ctl As Control
Dim FormName As String

FormName = "フォーム2"
DoCmd.OpenForm FormName, acDesign

For Each ctl In Forms(FormName).Controls
If ctl.Name Like "イメージ*" Then
Debug.Print ctl.Name
DeleteControl FormName, ctl.Name
End If
Next ctl

End Sub

これをすると、コントロールが一つ飛ばされます。

イミディエイトウインドウで値を確認すると
イメージ0
イメージ2
イメージ4
になりました。

1、3、5が飛ばされました。

実行結果は画像のような感じです。
なぜ飛ばされちゃうのでしょうか？

普段、For Each ctl In Forms(FormName).Controlsを使う分には値が飛ばされる事はないので
DeleteControl FormName, ctl.Nameが原因だと思うのですが、
全ての「イメージ」で始まるコントロールを削除したい場合、どうすえばいいですか？

回答No.4

nicotinism · ベストアンサー

>部分は対象外を False にするように、
>ctl.InSelection = ctl.Name Like "イメージ*"
>の方が良さそうです。（余計なお世話かも・・・）

決して余計なお世話では御座いませぬ。
フォームをデザインビューで開いておいて
イメージ* 以外の適当なコントロールを選択しときます。

イミディエイトウィンドウで
Docmd.openform フォーム名 ,Acdesign とすると
エラーもなく『コントロールは選択状態のまま』です。
この状態で、うっかり前回回答のコードを走らせると
あっれー アレも一緒に消えちまっただよ・・・
と私ならやりかねません。。。

お礼

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

回答No.3

30246kiku

＃１です

ダブっても良いと思います。
ごめんなさい と言われるほどのものではないと思います。
理解しやすい参考にしたい書き方ですし、追加情報もありますし・・・・
（中には、既出回答をまとめただけの人もいるようですけど）

気になったところを少し
以下は参照先のコードになりますが

　　　　For Each ctl In .Controls
　　　　　　Debug.Print "Del : ", ctl.Name
　　　　　　If (Left(ctl.Name, 6) = "lblBox") Then
　　　　　　　　DeleteControl .Name, ctl.Name
　　　　　　End If
　　　　　　Debug.Print "After Del : ", ctl.Name ' ★
　　　　Next

上記にしてやってみると、★部分では実行時エラー５ になってしまいますね。
削除したらその ctl は使えないってことで・・・
なお、

> If ctl.Name Like "イメージ*" Then
> 　　ctl.InSelection = True
> End If

部分は対象外を False にするように、

ctl.InSelection = ctl.Name Like "イメージ*"

の方が良さそうです。（余計なお世話かも・・・）

お礼

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

回答No.2

nicotinism

>なぜ飛ばされちゃうのでしょうか？
簡単な例で説明すると

１・２・３・４
とコントロールが有ったとします。
１～４はコントロール名です。
２と３が該当するコントロール名だとします。
For Each で ２に来ます。
２が該当するので削除されます。
２が無くなったので、VBAの参照する現在位置が３に移動します。
３ は If ・・・で チェックされないまま
Next で位置が３から４へ、
結果 ３は削除されません。
飛び飛びになるのはこの理屈です。

なので、常套手段は、最後からのチェックです。
これなら前に詰められても影響を受けません。
Sub yy()
Dim ctl As Control
Dim FormName As String
Dim i As Integer
FormName = "フォーム2"
DoCmd.OpenForm FormName, acDesign

For i = Forms(FormName).Controls.Count - 1 To 0 Step -1
If Forms(FormName).Controls(i).Name Like "イメージ*" Then
DeleteControl FormName, Forms(FormName).Controls(i).Name
End If
Next
End Sub

For Each で廻したい時は選択状態にしておいて一挙に削除・・でも良いかも。
Sub y()
Dim ctl As Control
DoCmd.OpenForm "フォーム2", acDesign
For Each ctl In Forms!フォーム2.Controls
If ctl.Name Like "イメージ*" Then
ctl.InSelection = True
End If
Next
Stop 'フォームを見てみて
DoCmd.RunCommand acCmdDelete
End Sub

追伸
30246kiku さんと激しくダブってしまいました
せっかく書いたので載せてしまいます。
30246kiku さん ごめんなさい <m(__)m>
・・・ってこの追伸部分、また削除されてしまうのだろうか？
削除される前に目にとめてもらえる事を切望。

お礼

なるほど。理由が納得しました。
fornextでループすればわかりやすいですね。

しっかり目にとめました！前回もご回答いただきありがとうございました。

回答No.1

30246kiku

Access2007 コントロールの削除
http://okwave.jp/qa/q6900623.html

上記は参考になりませんか

お礼

参考にします
ありがとうございました。