| |
▼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の値には「店別来店数」が入っています。
|
|
satsuki
- 08/8/5(火) 23:13 -
