[Resolvido]Verificar se existem vencimento com de 30 dias

Bom dia pessoal tenho um formulário vendas e no campo cliente estou utilizando um dcount que esta contando se o cliente está com débito com mais de 30 dias porém gostaria de deixar meu formulário mais leve porque ele esta demorando muito para verificar na consulta
Por isso gostaria de fazer esta consulta em vba alguém pode me ajudar com esta questão?

Bom dia!

Se possível, coloque o BD ou as partes envolvidas para facilitar a resolução!

Abraço, Delson

Bom dia delsonk obrigado por me responder veja o anexo abaixo este código que esta aí esta fincionando só que esta deixando o sistema mais pesado


https://www.dropbox.com/s/vyi8peej1ky3qr5/exemplo2marcelo.zip?dl=0

Boa tarde!

Você já está buscando no Campo UVend a última data de venda DMáx(datavenda). Nessa mesma linha de raciocínio, utilize somente os dados referentes ao do cliente atual para verificar se está em atraso (30 dias ) e não uma consulta para verificar todos os clientes que estão inadimplentes.

Para uma melhor análise envie novamente o BD com os seguintes detalhes:
1. Coloque alguns dados de exemplo nas tabelas, pois não estou conseguindo inserir nenhuma venda; e
2. Adicione a consulta "CS_inadimplentes" ao Banco de Dados.

Abraço, Delson

Bom dia meu amigo delsonk veja o exemplo abaixo e desculpa pela demora

https://www.dropbox.com/s/gqkg8ce8h7iu702/SistemaMarceloMarques.zip?dl=0

Up

Bom dia pessoal estou tentando adaptar este código abaixo para substituir uma consulta de seleção do access na intenção de ganhar mais agilidade na hora de efetuar uma venda meu intuito seria no formulário venda no campo cliente verificar se o cliente esta com mais de trinta dias em atraso

Código :

Dim rsCon as recordset, rsCli as recordset
Set rsCon =currentDb.openRecordset("Select * from cs_inadimplentes where quitar=0 and cli_código=txtcliente and Dr_vencimento <=#" & format (dateadd("d",30,date),"mm /dd /yyyy ") & "#")

encontrei este código na Internet só não sei falar de quem é estou tentando adaptar ele na minha necessidade ele não da erro mais ele só retornar como todos clientes estão inadimplentes
Onde esta errado




https://www.dropbox.com/s/gqkg8ce8h7iu702/SistemaMarceloMarques.zip?dl=0

Bom dia amigo.

Não recordo de quem é o código mas adapte.



Private Sub data_AfterUpdate()
On Error Resume Next
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim intDias As Integer
Dim strData As Date

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT data, produto FROM TblCliente WHERE cliente='" & Me!cliente & "'")
intDias = 0

rs.MoveLast
rs.MoveFirst

Do While Not rs.EOF
strData = rs!data
intDias = DateDiff("d", strData, Now())

       If intDias > 30 Then
          MsgBox "Esse cliente comprou a mais de 30 dias!", vbCritical
       DoCmd.CancelEvent
       Exit Sub
       Else
       End If
           rs.MoveNext
       Loop
db.Close: Set db = Nothing
rs.Close: Set rs = Nothing
End Sub

Boa noite Lupércio me desculpa pela demora estava sem net não consegui adaptar ao meu formulário

Pelo que estou percebendo este código seria para verificar se tem mais de 30 dias sem comprar é isso?
O que eu pretendo seria verificar se o cliente tem alguma prestação em atraso eu até tinha feito através da consulta mais estou tentando mudar para ver se da mais agilidade ao sistema

Abraços e um bom fim de semana

Up

boa noite pessoal me desculpe a demora em responder estava sem pc vou dar este tópico como resolvido