MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Verificar se existem vencimento com de 30 dias

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 27/10/2019, 03:20

    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?
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 26/11/2013

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  delsonk em 28/10/2019, 11:45

    Bom dia!

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

    Abraço, Delson
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 28/10/2019, 12:19

    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
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 26/11/2013

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  delsonk em 28/10/2019, 18:49

    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 30/10/2019, 10:11

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

    https://www.dropbox.com/s/gqkg8ce8h7iu702/SistemaMarceloMarques.zip?dl=0
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 4/11/2019, 14:54

    Up
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 15/11/2019, 13:39

    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
    Lupércio
    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    Verificar se existem vencimento com de 30 dias Empty Verificar se existem vencimento com de 30 dias

    Mensagem  Lupércio em 22/11/2019, 09:40

    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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 24/11/2019, 00:32

    Boa noite Lupércio me desculpa pela demora estava sem net não consegui adaptar ao meu formulário
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques em 24/11/2019, 01:52

    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 701
    Registrado : 12/04/2016

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  marcelo marques Ontem à(s) 22:23

    Up

    Conteúdo patrocinado

    Verificar se existem vencimento com de 30 dias Empty Re: Verificar se existem vencimento com de 30 dias

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/12/2019, 00:05