実行時エラー'9':インデックスが有効範囲にありま

WindowsXPで、Access2002を使用しています。

テーブル１のフィールド１の値を、ハイフン区切りで分割して、フィールド２とフィールド３へ格納するＶＢＡを作成しようとしていますが、あと少しのところでエラーになってしまって解決策が見当たりません。

エラー内容は、「実行時エラー'9':インデックスが有効範囲にありません。」で、下記ＶＢＡの

rs.Update "フィールド３", ksplit(1)

の部分のksplit(1)の格納場所が無かった為に発生していると思います。

実際、その部分を無効にすると、エラーは無くなりますが、フィールド３のデータも必要です。

このようになって欲しいです。
例）
テーブル１
フィールド１　フィールド２　フィールド３
1000-100 　　　　　 1000 　　　　　 100
50-301　　　　　　　　　50 　　　　　 301


Private Sub コマンド0_Click()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open "テーブル１", cn, adOpenKeyset, adLockOptimistic

Do Until rs.EOF

Dim ksplit As Variant
ksplit = Split(rs!フィールド１, "-")
rs.Update "フィールド２", ksplit(0)
rs.Update "フィールド３", ksplit(1)
Debug.Print rs!フィールド２,rs!フィールド３

rs.MoveNext
Loop

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

以上、初心者で、行き詰っておりますので、よろしくお願いします。

No.1 ベストアンサー 回答者： joqr 回答日時： 2011/08/04 17:27

Splitで登録される　ksplit のサイズは

Ubound　で調べられます
これは、その配列の添え字の最大値を返します

つまり、
10-100なら、Ubound(ksplit)は、１が返ります
つまり(0),(1)が参照できるわけです

10なら、Ubound(ksplit)は、０が返ります
同様に(0)1つだけが参照できるわけです

＞ksplit(1)の格納場所が無かった為に発生していると思います。

無いことがわかるはずですから、対処の方法はわかると思います

ヒントはここまで！

この回答へのお礼

ご回答ありがとうございます。
そして、重要なヒントありがとうございました。
お蔭様で、すぐに解決する事ができました。
Uboundの存在を知らなかったので、大変勉強になりました。

お礼日時：2011/08/04 18:02

No.2 回答者： chie65535 回答日時： 2011/08/04 17:30

Splitで区切ってみたら、データの中に「-」が無くて、ksplit(0)にだけ結果が返って来ただけの話でしょう。

「-」だと思ってたら実は「­­­­ー」だったとか、­­­文字が違っているのでしょう。

と言うか、­フィールド１に、「-」が入ってないデータがあった時の対処を何もしてないのが悪いです。

この回答へのお礼

ご回答ありがとうございます。
split関数、そしてvbaに関して、あまり理解できていなかったので、基本的な事が抜けていたようでした。

お礼日時：2011/08/04 17:58