If these two tables have a foreign key relationship, use
select <something> from <table1> where exists (select 1 from table2 where <somekeyfield> = table1.<relatedkeyfield>)
In VBA.
Running this SQL will give you the records for which an active record exists.