テーブルのリンク（ACCESS)

ACCESS2003で下記の記述で「実行時エラー　’3219’
無効な処理です。」というエラーメッセージがでます。
外部mdbでテーブルをリンクさせるとこのエラーがでます。同じmdbファイルにデータテーブルを置くと問題なく処理できます。
参照設定も過去ログを見てチェックしています。

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("テーブル名", dbOpenTable)

ACCESS97では何の問題もなかったのですが,
2003ではうまくいきません。

どうかよろしくお願いします。

No.1 ベストアンサー 回答者： noname#22222 回答日時： 2006/03/20 13:54

Private Sub コマンド0_Click()

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

　　Set dbs = CurrentDb
　　Set rst = dbs.OpenRecordset("テーブル2")
　　
　　Debug.print　rst.Type
End Sub

2
? dbOpenDynaset
2

このテストから

Set rst = dbs.OpenRecordset("テーブル2", dbOpenDynaset)

であることが判ります。

この回答へのお礼

ありがとうございます。
やってみます。

お礼日時：2006/03/21 10:34