Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24773 / 76732 ←次へ | 前へ→

【57306】Re:構造体およびEnumの使い方
質問  satsuki  - 08/8/5(火) 23:13 -

引用なし
パスワード
   ▼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の値には「店別来店数」が入っています。

1 hits

【57295】構造体およびEnumの使い方 satsuki 08/8/5(火) 14:54 質問
【57298】Re:構造体およびEnumの使い方 mizunu 08/8/5(火) 16:22 回答
【57306】Re:構造体およびEnumの使い方 satsuki 08/8/5(火) 23:13 質問
【57299】Re:構造体およびEnumの使い方 neptune 08/8/5(火) 16:22 発言
【57305】Re:構造体およびEnumの使い方 satsuki 08/8/5(火) 20:50 発言

24773 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free