Windows XPでAccess 2002を使用している場合、データベースのフィールドの値をハイフンで区切り、分割したいと考えましたが、VBAのSplit関数を使用した後に「実行時エラー'13' ：型が一致しません。」というエラーが発生しています。
Microsoft DAO 3.6 Object Libraryの参照設定を変更してもエラーが解消されず、デバッグ結果からは「Set rs = dbs.OpenRecordset("select フィールド１ from テーブル１")」の行でエラーが発生しているようです。
初心者のため、解決策がわからず行き詰ってしまっています。助けていただけると幸いです。
実行時エラー'13' ：型が一致しません。
Windows XPで、Access 2002を使用しています。
テーブル１のフィールド１の値を、ハイフン区切りで分割をしたいと思い、split関数を使用して、
下記、VBAを実行しましたが、「実行時エラー'13' ：型が一致しません。」と言うエラーが
発生して、先に進む事ができません。
ツール→参照設定で、Microsoft DAO 3.6 Object Libraryにチェックを入れたり外したりしましたが、
全く改善されず、同じエラーが発生します。
DAO.を付けると解決するとの事で、
Dim dbs As DAO.Database
Dim rs As DAO.Connection
としましても、同じエラーが出ます。
デバッグしますと、
Set rs = dbs.OpenRecordset("select フィールド１ from テーブル１")
の所で発生しているようです。
Private Sub コマンド0_Click()
Dim dbs As DAO.Database
Dim rs As DAO.Connection
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("select フィールド１ from テーブル１")
Dim Vartemp As Variant
Vartemp = Split(rs, "-")
Debug.Print Vartemp(0)
Debug.Print Vartemp(1)
Debug.Print Vartemp(2)
Debug.Print Vartemp(3)
End Sub
以上、初心者で、行き詰ってしまっておりますので、どうか宜しくお願いします。
お礼
エラーが出なくなり、解決しました。 本当にありがとうございました。