ControlTypeの切り替えはデザインビューでなければ不可能か？

質問

フォームビューのときにｖｂａでコントロールのタイプを
テキスト⇔コンボに切り替えたいのですが

フォーム１.テキスト0.ControlType = 109
を実行するとエラーになり
「このプロパティを設定するにはデザインビューで開きます」
となります。

しかし、フォームビューの状態でとあるイベントを実行すると
テキスト⇔コンボに切り替えたいのですが
やはり不可能でしょうか？

回答No.2

imogasi · ベストアンサー

>ControlTypeの切り替えはデザインビューでなければ不可能か？
当然不可能でしょう。
ただし
http://support.microsoft.com/kb/135381/ja
にあるように、プログラムで変更できるようです。
アクセスＶＢＡでやるとき判りやすいように下記に私がやってみた例を挙げます。
私の場合は、偶々
フォームはフォーム9
コンボはコンボ3
で、コマンドボタン１つコマンド8でやってみると
Private Sub コマンド8_Click()
If Forms!フォーム9.CurrentView <> 0 Then DoCmd.OpenForm "フォーム9", _
acDesign

If Forms!フォーム9!コンボ3.ControlType = acComboBox Then
Forms!フォーム9!コンボ3.ControlType = acTextBox
Else
Forms!フォーム9!コンボ3.ControlType = acComboBox
End If
End Sub
コンボがテキストボックスに変わりました。
あと見出し的な文言のラベルのコンボ3 もテキストXXに変える必要があるのですが、略。

お礼

一度デザインビューに切り替えるのですね。
大変参考になりました。

回答No.1

bonaron

テキストボックス と コンボボックスの両方を作成しておき
イベントで　Visible　を切り替えるようにしてはいかがですか？

お礼

そのような方法もあるのですね。
大変参考になりました。