実行時エラー'9':インデックスが有効範囲にありま
WindowsXPで、Access2002を使用しています。
テーブル1のフィールド1の値を、ハイフン区切りで分割して、フィールド2とフィールド3へ格納するVBAを作成しようとしていますが、あと少しのところでエラーになってしまって解決策が見当たりません。
エラー内容は、「実行時エラー'9':インデックスが有効範囲にありません。」で、下記VBAの
rs.Update "フィールド3", ksplit(1)
の部分のksplit(1)の格納場所が無かった為に発生していると思います。
実際、その部分を無効にすると、エラーは無くなりますが、フィールド3のデータも必要です。
このようになって欲しいです。
例)
テーブル1
フィールド1 フィールド2 フィールド3
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 "テーブル1", cn, adOpenKeyset, adLockOptimistic
Do Until rs.EOF
Dim ksplit As Variant
ksplit = Split(rs!フィールド1, "-")
rs.Update "フィールド2", ksplit(0)
rs.Update "フィールド3", ksplit(1)
Debug.Print rs!フィールド2,rs!フィールド3
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
以上、初心者で、行き詰っておりますので、よろしくお願いします。