MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Buscar vencimento

    avatar
    civinelli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/03/2017

    [Resolvido]Buscar vencimento Empty [Resolvido]Buscar vencimento

    Mensagem  civinelli em Sex 06 Nov 2020, 14:16

    Tenho um banco de dados onde armazeno dados de validade de Cnh, moop e exame periódico, preciso criar uma rotina que verifique o vencimento de cada um e me retorne num msgbox. Alguém pode me ajudar?

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Buscar vencimento Empty Re: [Resolvido]Buscar vencimento

    Mensagem  Alexandre Neves em Sex 06 Nov 2020, 14:38

    Boa tarde e bem-vindo ao fórum
    Disponibilize bd com dados significativos e explique todos os detalhes
    Quer mensagem ao abrir a bd? quer mensagem só dos que se vencem dentro de 30 dias? ...?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    civinelli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/03/2017

    [Resolvido]Buscar vencimento Empty Re: [Resolvido]Buscar vencimento

    Mensagem  civinelli em Sex 06 Nov 2020, 16:13

    Tenho um formulário vinculado a uma tabela onde armazeno dados de trabalhos por nome de motorista, esse nome é selecionado através de uma combobox ligada a uma tabela que armazena dados do motorista, preciso que quando cadastrar um trabalho, ao escolher o motorista verifique se cnh, moop e exame periódico vence nos próximos 30 dias
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Buscar vencimento Empty Re: [Resolvido]Buscar vencimento

    Mensagem  Alexandre Neves em Sex 06 Nov 2020, 16:36

    Disponibilize bd com dados fictícios mas representativos


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3685
    Registrado : 04/04/2010

    [Resolvido]Buscar vencimento Empty Re: [Resolvido]Buscar vencimento

    Mensagem  Avelino Sampaio em Sex 06 Nov 2020, 17:26

    Olá!

    Monte a combobox, trazendo nas colunas as datas .  Essas colunas das datas o senhor pode configurar para que fiquem ocultas na combobox.

    Ao selecionar o motorista na combobox o senhor terá as datas correspondentes.  

    me!cboMotorista.column(1) ' data vencimento cnh
    me!cboMotorista.column(2) ' data vencimento moop
    me!cboMotorista.column(3) ' data vencimento exame


    Veja uma ideia de código para usar no evento "após atualizar" da combobox:

    Dim d1%, d2%, d3%
    d1 = datediff("d",me!cboMotorista.column(1),date)
    d2 = datediff("d",me!cboMotorista.column(2),date)
    d3 = datediff("d",me!cboMotorista.column(3),date)
    if d1 <= 30 then
      Msgbox "Vencimento da cnh em " & d1 & " dia(s)..."
    end if
    if d2 <= 30 then
      Msgbox "Vencimento da moop em " & d2 & " dia(s)..."
    end if
    if d3 <= 30 then
      Msgbox "Vencimento do exame em " & d3 & " dia(s)..."
    end if


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    civinelli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/03/2017

    [Resolvido]Buscar vencimento Empty Re: [Resolvido]Buscar vencimento

    Mensagem  civinelli em Sex 06 Nov 2020, 19:11

    Perfeito Avelino Sampaio, Muito obrigado, por acaso saberia me ensinar configurar  a caixa do MSGbox pra aumentar tamanho de fonte?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3685
    Registrado : 04/04/2010

    [Resolvido]Buscar vencimento Empty Re: [Resolvido]Buscar vencimento

    Mensagem  Avelino Sampaio em Sex 06 Nov 2020, 20:08

    Olá!

    Creio que a caixa de mensagem do Access não tenha a opção de alterar o tamanho da fonte.  Use o texto em caixa alta que já melhora.  Um exemplo:

    Dim msg$
    msg ="=============================="
    msg = msg &  vbnewline & vbnewline
    msg = msg & "    V E N C I M E N T O  D A  C N H  EM  " & D1 & "  D I A S"
    msg = msg & vbnewline & vbnewline
    msg = msg & "=============================="
    MsgBox msg , vbInformation, "Aviso"


    Sucesso!


    Última edição por Avelino Sampaio em Sab 07 Nov 2020, 20:04, editado 1 vez(es)


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    civinelli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/03/2017

    [Resolvido]Buscar vencimento Empty Agradecido

    Mensagem  civinelli em Sab 07 Nov 2020, 11:07

    Valeu a ajuda, deu certo

      Data/hora atual: Ter 01 Dez 2020, 17:58