MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção!

    avatar
    JLDias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 01/04/2023

    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Empty Tornar o cliente inativo ,após um ano de cadastro com caixa de opção!

    Mensagem  JLDias 1/4/2023, 21:12

    EU tenho uma tabela na qual o cliente precisa ficar como inativo após um ano de cadastro. Como fazer isso? Seria possível por exemplo : if data de solicitação - data atual = 0 então = inativo na combo box? Ou se possível uma outra maneira?
    Eu controlo a validade do cliente baseado na data de solicitação/inscrição.


    Última edição por JLDias em 2/4/2023, 18:09, editado 1 vez(es) (Motivo da edição : Tópico já existe com esse título)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Empty Re: Tornar o cliente inativo ,após um ano de cadastro com caixa de opção!

    Mensagem  Marcelo David 2/4/2023, 02:08

    Olá Jorge, seja bem-vindo ao fórum!

    No caso, do cliente inativo, você controla apenas pela data de cadastro ou você tem um campo inativo na tabela?

    *Mudei o tópico de local, para melhor adequação.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Marcel11
    avatar
    JLDias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 01/04/2023

    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Empty Tornar o cliente inativo ,após um ano de cadastro

    Mensagem  JLDias 7/4/2023, 01:09

    Boa noite!
    Preciso controlar a validade do cliente baseado na data de solicitação/inscrição e a data atual e se passado um ano de matricula , quero colocá-lo como inativo. Ou com texto ou com mensagem.

    Desde de já obrigado...
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 19/08/2010

    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Empty Re: Tornar o cliente inativo ,após um ano de cadastro com caixa de opção!

    Mensagem  marcelo3092 7/4/2023, 12:52

    Ola amigo bom dia entao no seu caso digamos que vc tem uma tabela com nome de TB_CLIENTE com os campos código, status, cliente, datasolicitacao.

    ai vc poderia criar um modulo com uma função publica para ser chamada na hora que abre o sistema tipo num formulario de splash ou o formulario de login.
    Cria um modulo novo e la vc vai coloca


    Public Sub Valida_Cadastro()

    Dim sSQL As String
    Dim rst As DAO.Recordset
    Dim Rst1 As DAO.Recordset
    Dim nReg As Long
    Dim nReg1 As Long

    nReg1 = 1

    sSQL = ""
    sSQL = "Select * from TB_CLIENTE " ' abra e lê tabela
    Set rst = CurrentDb.OpenRecordset(sSQL) 'abre o recordeset

    rst.MoveLast
    nReg = rst.RecordCount
    rst.MoveFirst

    While (Not rst.EOF)


    If rst("datasolicitacao").Value + 365 <= Date Then 'Pega a Data de Solicitação mais 365 dias e comprara com a data hoje

    DoCmd.SetWarnings False
    Dim strSQL As String
    'Monta a consulta atualização utilizando
    strSQL = "Update TB_CLIENTE Set status = 'INATIVO' where código = " & rst("código").Value & ""
    'Executa a consulta
    DoCmd.RunSQL strSQL


    MsgBox "Cadastro Vencido" ' aqui vc pode tirar que foi so pra teste

    Else

    MsgBox "Cadastro Nao Vencido" ' aqui vc pode tirar que foi so pra teste

    End If


    nReg1 = nReg1 + 1
    rst.MoveNext 'vai para o proximo registro


    Wend
    rst.Close 'fecha o recorset

    MsgBox "Cadastros Atualizados!!!", vbInformation, "Sistema" ' aqui vc pode tirar que foi so pra teste

    End Sub



    ai pra chamar ela basta vc colocal

    call Valida_Cadastro em qualquer formulario de entrada
    avatar
    JLDias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 01/04/2023

    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Empty Tornar o cliente inativo ,após um ano de cadastro

    Mensagem  JLDias 7/4/2023, 22:14

    Boa tarde!
    Vou criar o módulo e testar.
    Muito bom meu camarada, Valeu .Obrigado

    Conteúdo patrocinado


    Tornar o cliente inativo ,após um ano de cadastro com caixa de opção! Empty Re: Tornar o cliente inativo ,após um ano de cadastro com caixa de opção!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:43