|
▼mizunu さん:
>モジュールの先頭にOption Explicitを記述し、コンパイルすると原因が分かるでしょう。
レスありがとうございました。コンパイルした結果、jのところでエラーが出ていたので、下記のように変更したら作動しました。
Ret = InSertData(TargetTableName.店別来店数, typData, Cn)
↓
Ret = InSertData(TargetTableName.店別来店数, typData, Cn, j)
Private Function InSertData(ptbl As TargetTableName, pRec() As RecordData, pCn As ADODB.Connection) As Boolean
↓
Private Function InSertData(ptbl As TargetTableName, pRec() As RecordData, pCn As ADODB.Connection, j as long) As Boolean
>Enum ステートメントのヘルプをご覧下さい。
>列挙型の要素は、Enum ステートメントにおいて指定された定数値に初期化されます。割り当てられた値は、実行時には変更できません。
配列のように、その割り当てられた値で、Functionに入る
Ret = InSertData(TargetTableName.店別来店数, typData, Cn)
のときにテーブル名を変える方法はありますか?
>InputTableはどこに使っているのでしょう?
上記の方法が不可能であれば、
Ret = InSertData(TargetTableName.店別来店数, typData, Cn)
の「TargetTableName.店別来店数」の代わりに使うべきかと思い、入れてあります。
>InputTable = TableName(i)
>i=0のときInputTableの値に何が入ると期待していますか?
TableName(0) = 店別来店数
というふうに配列に設定してありますので、
InputTableの値には「店別来店数」が入っています。
|
|