三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク



QA0815 Access DAO テーブルを条件付きで検索し削除と追加を行う

動画で三流解説

動画の簡単な説明

詳細解説は
三流君VBA:Access お互いのテーブルの差を求める DAO使用
http://www.ken3.org/vba/backno/vba184.html
を見て、笑ってください。。。

いつものように、SQLを作ります。ポイントは、TB_BBB![フィールド名]で、値を条件にすることです。
strSQL = "SELECT CCC.* FROM CCC "
strSQL = strSQL & "WHERE (((CCC.品番)='" & TB_BBB![品番] & "') "
strSQL = strSQL & " AND *1;"

'CCCのレコードセットを作成します
Set TB_CCC = DB.OpenRecordset(strSQL) 'BBBを条件とした

Debug.Print "COUNT=" & TB_CCC.RecordCount

↑あとは、.OpenRecordset後の.RecordCountで単純に0以上か、チェックしました。↓

動画解説やテスト結果


動画元: QA0815 Access DAO テーブルを条件付きで検索し削除と追加を行う - YouTube

動画区分・リンク

*1:CCC.ロット)='" & TB_BBB![ロット] & "') " strSQL = strSQL & " AND ((CCC.数量)=" & TB_BBB![数量] & "