判断外键是否被主键包含

建一个不匹配项查询,按照新建查询的向导做就行了,然后判断这个查询的记录数是否为0,等于0就代表全部包含.

Sub test()
    Dim rst As DAO.Recordset

    Set rst = CurrentDb.OpenRecordset("SELECT tb_Basic.记录ID FROM tb_Basic RIGHT JOIN tb_return ON " & _
                                      "tb_Basic.记录ID = tb_return.记录ID WHERE " & _
                                      "(((tb_Basic.记录ID) Is Not Null) AND ((tb_Basic.记录ID) Is Null));")

    If rst.RecordCount = 0 Then
        MsgBox "全部包含"
    Else
        MsgBox "有不包含的"
    End If

End Sub