質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
DAO(Data Access Object)

DAO(Data Access Object)とは、データベースなどに保存するための操作を実装したオブジェクトのことです。データの永続化機構に抽象化されたインタフェースを提供し、データベースの詳細を隠蔽。ビジネスロジックとデータ操作も分離できます。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

受付中

Access VBA DAO Recordsetが検索できない

DondokoYama
DondokoYama

総合スコア5

DAO(Data Access Object)

DAO(Data Access Object)とは、データベースなどに保存するための操作を実装したオブジェクトのことです。データの永続化機構に抽象化されたインタフェースを提供し、データベースの詳細を隠蔽。ビジネスロジックとデータ操作も分離できます。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

2回答

0評価

0クリップ

223閲覧

投稿2022/06/22 04:14

編集2022/06/23 14:29

やりたいこと

入力フォーマット.accdb と データベース.accdb という2つのファイルがあります。
入力フォーマット.accdb内には「empテーブル」というテーブルがあり、データベース.accdbには「表テーブル」というテーブルがあります。
empテーブルと表テーブルは列の構成が同じで、どちらもID列を持っています。
empテーブルのID列で表テーブルを検索し、もし同じIDの列があればその行を削除したいです。

コード

VBA

Private Sub 行の削除() Dim EmpDb As DAO.Database Dim EmpRs As DAO.Recordset Set EmpDb = CurrentDb Set EmpRs = EmpDb.OpenRecordset("empテーブル") 'empテーブルを格納 EmpRs.MoveFirst Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim DbPath As String DbPath = "データベース.accdbのパス" Set Db = OpenDatabase(DbPath) Set Rs = Db.OpenRecordset("表テーブル", dbOpenDynaset) '表テーブルを格納 Dim Criteriaon as String Do Until EmpRs.EOF '最後の行までくりかえす Criteriaon = "[ID] = '" & EmpRs("ID") & "'" '**うまくいかない部分** Rs.FindFirst Criteriaon If Rs.NoMatch Then '見つからない場合の処理 End If Rs.Delete '同じ行があれば削除 Loop

困っていること

例えばempテーブルのIDが11だったら、表テーブルを検索するために Rs.FindFirst [ID] = '11' となるように記述すればいいと思い、検索に使う文字列はいったんCriteriaonにまとめようと考えました。
作成当初(1年ほど前、Access2019で作成?)はこれで目当てのRecordsetが検索でき、Rs.Deleteで削除できたので、このコードを使う人とも動作確認をして渡しました。
しかし最近になってうまく削除できなくなったと伝えられ、あらためて見直してみると、 Rs.FindFirst [ID] = '11 となぜか後の「'」が消えてしまい、見つからない処理へ分岐していました。これ以降どうあがいても後の「'」を付け足すことができません。削除できなくなった原因はこれではないかと思いますが、正直わかりません。

試したこと

(すべてEmpRs("ID")が11の場合)
コード:Criteriaon = "[ID] = '" & EmpRs("ID") & "'"
結果:[ID] = '11

コード:Criteriaon = "[ID] = " & Chr(39) & EmpRs("ID") & Chr(39)
結果:[ID] = '11

コード:Criteriaon = "[ID] = '11'"(試しに直打ち)
結果:[ID] = '11' ← こうなりたい

なんでこうなるのかまったくわからずお手上げ状態です。
恐れ入りますが、ご助力ください。よろしくお願いします。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

DAO(Data Access Object)

DAO(Data Access Object)とは、データベースなどに保存するための操作を実装したオブジェクトのことです。データの永続化機構に抽象化されたインタフェースを提供し、データベースの詳細を隠蔽。ビジネスロジックとデータ操作も分離できます。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。