いつもお世話になっております。
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ランキング
-
[ACCESS/VBA]動的にSQL文を...
-
データベースの変換
-
今年亡くなった有名人を一発で...
-
データベースの最適化をマクロ...
-
Notes って 何が良くて使うの...
-
リスト形式の表とデータベース...
-
アクセスのデータがブッ壊れた...
-
エクセルのフォームについて(...
-
汎用カード型のデータベースソ...
-
コンピュータ用語、データベー...
-
型 varchar から型 numeric へ...
-
データベースソフトのTCARDにつ...
-
Microsoft Accessについて
-
オラクルのLONG RAW型のテーブ...
-
構文エラー:演算子がありませ...
-
「桐」の得手不得手
-
SQLを使いこなしている人が ETL...
-
windows media player(その2)
-
accessを自宅のパソコンにイン...
-
初心者です。Accessを使って、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
希望の位置へフィールドを追加...
-
FindFirst複数条件
-
エクセルからアクセスにADO...
-
accessのvbaでの実行時エラーに...
-
データベースの変換
-
多値従属
-
パススルークエリの使い方について
-
列名が無効です
-
[ACCESS/VBA]動的にSQL文を...
-
型 varchar から型 numeric へ...
-
キャッシュとバッファの違いは?
-
データベースの最適化をマクロ...
-
AndroidからのAccessデータベー...
-
データベースの2GBって・・・?
-
VB.netのADOってなんですか?
-
構文エラー:演算子がありませ...
-
ACCESS2019でのエラーメッセージ
-
データベースとウェブ(WWW)の共...
-
Accessのレポートで「縦書き」...
-
Notes って 何が良くて使うの...
おすすめ情報