VBA 2007にアクセスし、フォームとしてパラメータを渡します。

Question

私たちはアクセスデータベース内の重複したコードを減らそうとしています。私たちは、次のようなコードを使用するいくつかのフォームを持っています。

strSQL = "Some SQL" 
Me!cboClientName.RowSource = strSQL 
Me!cboClientName.BoundColumn = 2 
Me!cboClientName.ColumnCount = 2 
Me!cboClientName.ColumnWidths = "0cm ; 2 cm" 

私がしたいことは、サブルーチンを作成してそれにフォームを渡してから、Meをオブジェクトに置き換えることです。

は、だから私は今、このようなものを持っている：

Public Sub subName(myForm as Form) 
    strSQL = "SELECT [tblClients].[ID], [tblClients].[ClientName] FROM [tblClients] ORDER BY [ClientName]" 
    myForm !cboClientName.RowSource = strSQL 
    myForm !cboClientName.BoundColumn = 2 
    myForm !cboClientName.ColumnCount = 2 
    myForm !cboClientName.ColumnWidths = "0cm ; 2 cm" 

cboClientNameが、私はそれを呼び出していますすべてのフォーム上にあります。私はそれを使ってサブルーチンを呼び出しています。

subName(Me) 

しかし私はエラーを取得しています：私は間違って

Type mis match ... 13 

何をしているのですか？これには良い方法がありますか？

subName Me 

ませカッコあってはならない

Answer 1

。

詳しい情報：http://msdn.microsoft.com/en-us/library/gg251710.aspx