Início![[Resolvido]Buscar vencimento Empty](https://2img.net/i/empty.gif)
civinelli 6/11/2020, 14:16Tenho 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?
3 participantes
[Resolvido]Buscar vencimento
civinelli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5
Registrado : 02/03/2017
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8396
Registrado : 05/11/2009
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? ...?
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
civinelli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5
Registrado : 02/03/2017
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- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8396
Registrado : 05/11/2009
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- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3825
Registrado : 04/04/2010
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.
Veja uma ideia de código para usar no evento "após atualizar" da combobox:
Aguardamos
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
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
civinelli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5
Registrado : 02/03/2017
Perfeito Avelino Sampaio, Muito obrigado, por acaso saberia me ensinar configurar a caixa do MSGbox pra aumentar tamanho de fonte?
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3825
Registrado : 04/04/2010
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:
Sucesso!
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 7/11/2020, 20:04, editado 1 vez(es)
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
civinelli- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5
Registrado : 02/03/2017
Valeu a ajuda, deu certo