いつもお世話になっております。
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での実行時エラーに...
-
Thunderbirdのインポートの処理...
-
キャッシュとバッファの違いは?
-
ACCESS2019でのエラーメッセージ
-
DB2 UDBって?
-
データベースソフトのTCARDにつ...
-
Accessのレポートで「縦書き」...
-
ACCESSで条件付き書式の設定方法
-
データベースの2GBって・・・?
-
型 varchar から型 numeric へ...
-
値がこの列の整合性制約に違反...
-
Googleの衛星写真はいつ掲載さ...
-
VB.netのADOってなんですか?
-
初心者です。Accessを使って、...
-
ODBC経由の処理が遅い
-
POSTGRESQLにEXC...
-
スタライズとは、どういう意味...
-
AndroidからのAccessデータベー...
-
ハイフン無しの電話番号データ...
-
FDの初期化
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
希望の位置へフィールドを追加...
-
accessのvbaでの実行時エラーに...
-
FindFirst複数条件
-
[ACCESS/VBA]動的にSQL文を...
-
Access2000のVBAでコンパイルエ...
-
エクセルからアクセスにADO...
-
Access 余分な件数分データ削除...
-
ISBN検索システムの利用について
-
Accessでメッセージを表示しき...
-
DAO フィルターをかけたい エ...
-
データベースの変換
-
VBAのfor next で繰り返しが出...
-
型 varchar から型 numeric へ...
-
VB.netのADOってなんですか?
-
AndroidからのAccessデータベー...
-
データベースの最適化をマクロ...
-
データベースの2GBって・・・?
-
リスト形式の表とデータベース...
-
汎用カード型のデータベースソ...
-
構文エラー:演算子がありませ...
おすすめ情報