アクセスvba Pictureプロパティを空にする

質問

フォーム上の全てのコントロールのPictureプロパティを空にする
という事をしたいのですが、
Pictureプロパティがないコントロールの場合はエラーになります。
（テキストボックスなど）

Sub test()
Dim myCtrl As Control
Dim myForm As String
Dim i As Long

myForm = "フォーム1"

DoCmd.OpenForm myForm, acDesign

For Each myCtrl In Forms(myForm).Controls
myCtrl.Picture = Empty
Next

End Sub

Pictureプロパティがあるかどうかを取得したいのですが
それってどうすればいいですか？

それともOn Error Resume Next
でエラーを無視するしかないでしょうか？

回答No.3

piroin654 · ベストアンサー

No2です。

　　　　If myCtrl.Properties(i).Name = "Picture" Then
　　　　　　Debug.Print "YES"
　　　　　　Debug.Print myCtrl.Name
　　　　　　'myCtrl.Picture = Empty
　　　　　　'myCtrl.Picture = ""
　　　　　　Exit For
　　　　End If

のように、Exit ForでForループを抜けるように
すれば少し早くなるかもしれませんが、
どちらにしても最後にフォームを閉じる
作業があるのであまり変化はないかも
しれません。
No1で書き忘れましたが、質問のプロパティを空にする作業は
　　　　　　Debug.Print "YES"
　　　　　　Debug.Print myCtrl.Name
のところは、コメントアウトしている
　　　　　　'myCtrl.Picture = Empty
のところです。

お礼

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

回答No.2

piroin654

＞それともOn Error Resume Next

これが一番面倒でなくていいのでは、と思いますが。
プロパティの名前を指定してもいいかもしれませんが。
たとえば、以下のように。

Sub test()
Dim myCtrl As Control
Dim myForm As String
Dim i As Long

myForm = "フォーム1"

DoCmd.OpenForm myForm, acDesign, , , , acHidden
'On Error Resume Next
For Each myCtrl In Forms(myForm).Controls
　　For i = 0 To myCtrl.Properties.Count - 1
　　　　If myCtrl.Properties(i).Name = "Picture" Then
　　　　　　Debug.Print "YES"
　　　　　　Debug.Print myCtrl.Name
　　　　　　'myCtrl.Picture = Empty
　　　　　　'myCtrl.Picture = ""
　　　　End If
　　Next i
Next
DoCmd.Close acForm, myForm, acSaveYes
End Sub

一部コメントアウトしています。

なお、IF文の中で、

Else
Debug.Print "NO"
End IF

などとするとコントロールの数によると、とんでもない
"NO"の羅列になるので省いています。

お礼

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

回答No.1

kmetu

こちらのやり取りが参考になると思います

VBA プロパティが存在するかどうかを知る方法を教えてください
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1175669101

エクセルでの話しになっていますが、アクセスでも対応できます。

お礼

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