いつもお世話になっております。
Accessのvbaで下記のコードを実行して、データを
取得したいのですが、OpenRecordsetのところで
「実行時エラー'3615'
式で型が一致しません。」
というエラーがでてしまいます。
ーーーーーーーーーーーーーーーーーーーーーーー
Dim db As Database
Dim Rec As Recordset
Dim strSql As String
strSql = "SELECT 入金日 FROM 入金チェック WHERE ID IN(SELECT ID FROM 入居者管理 WHERE 物件名 = '" & strBukken & "')"
Set db = CurrentDb()
Set Rec = db.OpenRecordset(strSql)
ーーーーーーーーーーーーーーーーーーーーーーー
副問合せのしかたがまずいのか、
どうもよくわかりません。
お手数ですが、お分かりの方がおられましたら
ご教示お願いいたします。
No.1ベストアンサー
- 回答日時:
ツールの参照設定から「Microsoft DAO X.X Object Library」を選択して下さい。
文を以下のように変更して下さい。
Dim db As DAO.Database
Dim Rec As DAO.Recordset
Dim strSql As String
strSql = "SELECT 入金日 FROM 入金チェック WHERE ID IN(SELECT ID FROM 入居者管理 WHERE 物件名 = '" & strBukken & "')"
Set db = CurrentDb()
Set Rec = db.OpenRecordset(strSql)
naktak様
ご回答、ありがとうございました。
参照設定はしてあるのですが、
Dim db As Database
Dim Rec As Recordset
↓
Dim db As DAO.Database
Dim Rec As DAO.Recordset
としてみました。
しかし、現象は変わらずです。
引き続きお気づきの点、ございましたら
ご指摘お願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- MySQL うまくいきません教えてくださいお願いしますSQLです。クエリ構文です。 1 2023/07/07 12:39
- MySQL SQLです。こんな感じですか?あってますか? うまくいきません教えてくださいお願いします 1 2023/07/08 15:27
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FindFirst複数条件
-
データベースの変換
-
希望の位置へフィールドを追加...
-
構文エラー:演算子がありませ...
-
DB2のログインについて
-
CSEでDB接続しようとすると...
-
【パフォーマンス】ファイル読...
-
oo4oの読み方・・・・。
-
ODBC経由の処理が遅い
-
データベースの最適化をマクロ...
-
MS-Accessのエクスポートで異常...
-
アプローチからアクセスへデー...
-
クエリをキャンセルしたいので...
-
ODBC接続とDBLINK
-
OpenOfficeでaccessが開けない
-
AndroidからのAccessデータベー...
-
daoのrecordcountで件数が取れ...
-
オラクルのLONG RAW型のテーブ...
-
バッファプールって?
-
Windows7でOffice97は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
希望の位置へフィールドを追加...
-
UNION ALLのように順番がありNU...
-
accessのvbaでの実行時エラーに...
-
FindFirst複数条件
-
列名が無効です
-
whileが上手く回らず困っています
-
Berkeley DB 1.85 -> GNU dbm ...
-
エクセルからアクセスにADO...
-
三枝夕夏って?
-
データベースの変換
-
Access 余分な件数分データ削除...
-
DAOでのコードをADOへ書き直し
-
パススルークエリの使い方について
-
型 varchar から型 numeric へ...
-
データベースの最適化をマクロ...
-
accessの勉強ができるサイトは?
-
構文エラー:演算子がありませ...
-
CDの売上枚数を知りたいのですが
-
クエリをキャンセルしたいので...
-
データベースの選定について 要...
おすすめ情報