[Resolvido]Modificar a situação de uma venda ao quitar a ultima parcela da mesma.

Olá meus amigos, estou criando um BD de controle de vendas e contas a receber.
Tenho um formulario de venda, com produtos, codigo da venda, parcelas da venda, Situação da venda. etc
E tenho também um formulario "quitar parcelas" nesse formulario eu quito as parcelas da venda
Nesse formulario tenho os campos "CodVenda"  "DataVencimento"  "ValorParcela"  "ValorPago"   e   "Debito"   E tenho um botão Quitar parcela que quita a parcela ValorPago = ValorParcela e "DataVencimento = Date()".

O problema é o seguinte, No formulário "QuitarParcelas" eu quero que ao quitar a ultima parcela de uma venda eo campo debito seja igual a 0,00 ele abra a TabelaVenda e coloque a situação da venda como "PAGO"

Preciso da nobre ajuda de vocês.

-Feliz 2016  

Código:

DoCmd.SetWarnings False
            DoCmd.RunSQL ("UPDATE Venda SET Venda.PAGO = 'Sim' " _
                            & "WHERE Venda.codvenda=" & Me.txtCodVenda & ";")


Funcionou amigo, mas eu quero que o código mude a situação da venda para "PAGO" Só quando eu quitar a ultima parcela da venda

Nesse exemplo que vc me passou ele muda a situação para "PAGO" em qualquer parcela que eu quitar...

EX:
Parcela Vencimento Valor Valor Pago Debito
1/3 01/01/15 100,00 100,00 0,00 (V)
2/3 02/01/15 100,00 0,00 100,00 (X)
3/3 03/01/15 100,00 0,00 100,00 (X) <----- Quero que a situação da venda mude para "PAGO" apenas quando eu quitar a ultima parcela e o debito seja = "0,00"...

Obrigado!!!
Desde já agradeço

Coloque uma condição para fazer a soma das parcelas gravadas na tabela para saber se são iguais ou maior que zero usando o código da venda como base da busca ex:

Código:

Private Sub Comando0_Click()
   
    If DSum("parcela", "tblVenda", "CodVenda =" & Me.txtCodVenda & "") = 0 Then

        DoCmd.SetWarnings False
            DoCmd.RunSQL ("UPDATE Venda SET Venda.PAGO = 'Sim' " _
                            & "WHERE Venda.codvenda=" & Me.txtCodVenda & ";")
    Else
        MsgBox ("Maior que zero")
    End If
     
End Sub

Funcionou perfeitamente, muito obrigado amigo, você não sabe o quanto me ajudou...

No meu caso ficou assim...

Código:

If DSum("Debito", "Cs_QuitarParcelas", "Cod_TabVenda =" & Me.Cod_TabVenda & "") = 0 Then  'Se o campo debito filtrado pelo código da venda for igual a "0" então

        DoCmd.SetWarnings False
            DoCmd.RunSQL ("UPDATE TblVenda SET Situação = 'PAGO' " _      'Abre a tabela venda 'TblVenda' e muda o Campo 'Situação' para "PAGO"
                            & "WHERE CodVenda=" & Me.CodVenda & ";")       
    Else                                                                                            'Ao quitar a ultima Parcela...
        MsgBox ("Maior que zero")
    End If

Fica com Deus

Brigado pelo retorno e que Deus o abençoe.