#779
フォームモジュールや標準モジュールで宣言された変数は、VBAのコード内では参照できてもコントロールの「コントロールソース」プロパティなどから直接参照することはできません。プロパティシートで「変数名」や「=変数名」といった書き方は無効です。実行時に「#Name?」と表示されてしまいます。
しかし、その変数の値を返すだけの”Functionプロシージャ”を作っておき、それを「コントロールソース」プロパティに設定することで、間接的に変数値を参照することができます。
それには、次のようにしてモジュールやフォームデザインを作成します。
- フォームから参照可能な場所（そのフォームのモジュールや標準モジュール）に”変数”および”その変数を返すFunctionプロシージャ”を作成します。
例（フォームモジュールの場合）：
'フォームから参照する変数の宣言
Private pVariable As Variant
Private Function GetVariable() As String
'変数pVariableの値を返すだけのFunctionプロシージャ
GetVariable = pVariable
End Function
- そのプロシージャを呼び出す命令をプロパティシートの「コントロールソース」プロパティ欄に記述します。
例：
- あとは任意の位置でその変数に値を代入したり更新したりするコードを記述します。
次の例ではフォーム読み込み時と２つのコマンドボタンでそれぞれ異なる値を代入しています。
なお、一度表示したフォームの裏でコード上で変数値を更新した場合には（例ではボタンクリック時）、画面を最新情報に更新するためにフォームの「Recalc」あるいは「Refresh」メソッドも実行する必要があります。
Private Sub Form_Load()
'フォーム読み込み時
pVariable = "あいうえお"
End Sub
Private Sub cmd更新1_Click()
'[更新1]ボタンクリック時
pVariable = "####はひふへほ####"
Me.Recalc
End Sub
Private Sub cmd更新2_Click()
'[更新2]ボタンクリック時
pVariable = #1/1/2024#
Me.Recalc
End Sub
- フォームを開いた直後
- [更新1]ボタンをクリックしたとき
- [更新2]ボタンをクリックしたとき
