[Resolvido]Contando e comparando elementos complexos

Não sei se o título ficou bom, mas eu preciso contar a quantidade de produtos entregues comparando com 2 tabelas.
O problema é que eu não consegui usar o DCount porque o parâmetro de comparação é de outra tabela:

Eu tentei:

DCount("QuantEntregue","detEntregas","IDContrato = " & Me.IDContrato)

Mas não dá porque o campo IDContrato é da tabela 'Entregas' (pai de 'detEntregas') então o que eu fiz?

"SELECT CodProduto, Sum(QuantEntregue) AS SomaDeQuantEntregue FROM Entregas INNER JOIN detEntregas ON Entregas.IDEntrega = detEntregas.IDEntrega GROUP BY IDContrato, CodProduto HAVING (((IDContrato)=" & Me.IDContrato & "));"

Só que mesmo assim ele não me dá o Total de QuantEntregue, que no caso seria a Soma[SomaDeQuantEntregue].

Como eu faço para obter este valor total para comparar com outra sql que montarei depois?

Consegui resolver o problema:

Código:

    Dim rst1 As DAO.Recordset
    Dim rst2 As DAO.Recordset
    Dim sqldetEntregas As String
    Dim sqldetOrcamentos As String
   
    'detEntregas
    sqldetEntregas = "SELECT Sum(QuantEntregue) AS SomaDeQuantEntregue" _
        & " FROM Entregas INNER JOIN detEntregas ON Entregas.IDEntrega = detEntregas.IDEntrega" _
        & " GROUP BY IDContrato" _
        & " HAVING (((IDContrato)=8));"
       
    'detOrcamentos
    sqldetOrcamentos = "SELECT DISTINCTROW Sum(Quantidade) AS QTotal" _
        & " FROM Contratos RIGHT JOIN detOrcamentos ON Contratos.IDOrcamento = detOrcamentos.IDOrcamento" _
        & " GROUP BY IDContrato" _
        & " HAVING (((IDContrato)=8));"
   
    Set rst1 = CurrentDb().OpenRecordset(sqldetEntregas)
    Set rst2 = CurrentDb().OpenRecordset(sqldetOrcamentos)
   
    'Comparar as duas quantidades
    If rst1!SomaDeQuantEntregue = rst2!QTotal Then
        MsgBox "Tudo entregue.", vbInformation, "Aviso"
    Else
        MsgBox "Ainda faltam produtos a serem entregues.", vbInformation, "Aviso"
    End If
   
    rst1.Close
    rst2.Close
    Set rst1 = Nothing
    Set rst2 = Nothing