【Access】コントロールのプロパティをまとめて設定する方法について

質問

ソース内で一つのコントロールに複数のプロパティを設定しており、
コントロールが複数あるため、関数内でコントロールのプロパティを設定したいと思いました。

よって、下記のようなソースを記述しましたが、
「NULLの使い方が不正です。」と表示されてしまいました。

【ソース】
Private Sub Form_Load()
' Me.txt_1.Enabled = False
' Me.txt_1.Locked = True
SET_LOCK (Me.txt_1)
SET_LOCK (Me.txt_2)
End Sub

Public Function SET_LOCK(CtrName As String)
CtrName.Enabled = False
CtrName.Locked = True
End Function

その為、上記のように、コントロール名を関数に渡し、
関数内でプロパティをまとめて設定する方法をご存知の方がいらっしゃいましたら、
ご教示いただければと思います。

よろしくお願いします。

回答No.1

nag0720 · ベストアンサー

Public Function SET_LOCK(CtrName As String)
↓
Public Function SET_LOCK(CtrName As Control)

なお、Functionの呼び出しかたは、
xx = SET_LOCK(Me.txt_1)
SET_LOCK Me.txt_1
のどちらかでないとエラーになると思います。

お礼

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

ご提示いただいたソースで意図した動作が行われる事を確認しました。

【ソース】
Const GRAY As String = "-2147483633"
Const WHITE As String = "16777215"

Private Sub Form_Open(Cancel As Integer)
Me.txt_1.DefaultValue = 123
End Sub

Private Sub btn_use_Click()
SET_LOCK Me.txt_1, True
End Sub

Private Sub btn_unuse_Click()
SET_LOCK Me.txt_1, False
End Sub

Public Function SET_LOCK(CtrName As Control, used As Boolean)
If used = False Then
CtrName.Enabled = False
CtrName.Locked = True
CtrName.BackColor = GRAY
Else
CtrName.Enabled = True
CtrName.Locked = False
CtrName.BackColor = WHITE
End If
End Function

このたびはどうもありがとうございました。

以上、よろしくお願いします。