www.youtube.com
http://www.youtube.com/watch?v=DatUH2smAGk
いつものように、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以上 か、チェックしました。
詳細解説は
三流君VBA:Access お互いのテーブルの差を求める DAO使用
http://www.ken3.org/vba/backno/vba184.html
を見て、笑ってください。。。
カテゴリ: 科学と技術
タグ: QA0815 Access DAO RecordCount Delete AddNew Update 三流君 試行錯誤
*1:CCC.ロット)='" & TB_BBB![ロット] & "') " strSQL = strSQL & " AND ((CCC.数量)=" & TB_BBB![数量] & "