[Resolvido]verificar se o cliente esta com prestação em aberto e atrasada

bom dia estou mais uma vez precisando da ajuda de vcs eu ate encontrei código mais ñ conseguiu adaptar mais não consegui sempre dava erros ao meu sistema eu gostaria de saber como fazer para ao escolher o cliente através da caixa de combinação ele abrisse as contas em atraso ou mostrasse uma mensagem e se possível também ao abrir ele mostrasse a data da última compra muito brigado

no seu codigo aonde está a variavel criada com o nome de "numrecord" substituia por Me.CodVenda. Você também tem que selecionar o registro no form "DetalhesVendas". Marque também com um ' a parte do codigo que está assim : numrecord = inputbox ... para este não ser executado.

bom dia Rubens muito obrigado pela explicação vou fazer isso e retornarei no caso seleciona o detalhes vendas através de código como faria ? eu não entendo muito de vba ainda


desde já muito obrigado tenha uma ótima semana

o codigo no botão cancelar ficou assim:

On Error GoTo Err_Delete
Dim numRecord As Integer
'numRecord = InputBox("Informe o número do registro:", "Exclusão")
If MsgBox("Deseja realizar excluir o registro " & Me.Tbl_VendasDet_subformulário.Form.CodTabDet & "?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then
Dim SQL As String
DoCmd.SetWarnings False
SQL = "DELETE * FROM Tbl_VendasDet subformulário WHERE CodTabDet = " & Me.Tbl_VendasDet_subformulário.Form.CodTabDet
DoCmd.RunSQL SQL

MsgBox "Operação realizada com sucesso!", vbInformation, "Exclusão"
Refresh
' DoCmd.Close
'DoCmd.OpenForm "Tbl_VendasDet subformulário"
Else
Exit Sub
End If
Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Você cancelou a operação", vbCritical, "Exclusão"

Resume Exit_Delete

' agora ele não está excluindo do estoque porque precisa de uma consulta exclusão.

Bom dia, amigo obrigado vou fazer as mudanças e retornarei muito obrigado e um bom dia

bom dia Rubens a mudança no código que você me enviou ficor perfeito muito obrigado e ja aproveitando como seria para ao escolher o cliente ele me avisa que o cliente esta com débito atrasado

desde ja obrigado e tenha um bom dia

bom dia a todos bom eu consegui este código So q não estou conseguindo adaptar ele em meu sistema venda ele da erro se alguém puder me ajudar eu agradeço.


dim filtro as string
filtro = "idCliente = " & me!cboCliente.column(0) & " and dataVencimento < date() and statusPago =0"
if DCount("*","NomeTabelaparcelas",filtro) > 0 then
msgbox "Cliente com débito ... "
end if