[resolvido] Extrair primeiro dia de cada mês

Moderador: Avelino Sampaio

Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

[resolvido] Extrair primeiro dia de cada mês

Mensagempor Fernando Carvalho » 02 Dez 2018, 16:03

Boa tarde, amigos do Fórum. Ao dia X de cada mês (se for dia útil) tenho que enviar a relação das apólices para as companhias com as quais trabalho. Assim, tenho uma caixa de listagem (Lista2) na qual selecciono de 1 a 31 o dia para envio, conforme a seguradora.
O que eu pretendia era que, ao marcar, por exemplo, o dia 1 como dia padrão para cada mês do ano, ao chegar ao dia recebe-se ao abrir do form uma mensagem alertando assim...."Hoje é dia 1 de xxxxxxx, por favor envie a relação das apólices". Alguém pode-me ajudar? Agradecido.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Extrair primeiro dia de cada mês

Mensagempor Avelino Sampaio » 02 Dez 2018, 20:24

==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

Re: Extrair primeiro dia de cada mês

Mensagempor Fernando Carvalho » 02 Dez 2018, 21:17

Boa tarde, Sr. Avelino. Realmente já tinha pesquisado e lido esse excepcional artigo e muitos outros que o Sr. posta. Mas o meu problema é que não tenho nenhum campo de data para comparação. O que se passa é por exemplo:

Ao dia 5 de cada mês, tenho que enviar a uma Seguradora xxxxxxxx a relação de Apólices. No formulário, tenho uma caixa de combinação onde posso seleccionar de 1 a 31. neste caso seleccino o dia 5. Entáo, queria que no dia 4 e 5 o form ao abrir mostrasse uma mensagem informando que devo enviar a listagem. Mas não tenho nenhum campo data para comparação. provavelmente a minha questão não será viável, não é possível fazer o que quero??? Agradeço.

Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Extrair primeiro dia de cada mês

Mensagempor Avelino Sampaio » 03 Dez 2018, 07:33

Fernando,

utilize a função DateSerial(ano,mês,dia), para construir a data com o seu dia selecionado da caixa de combinação. Algo assim:

Código:
DataLimite = DateSerial(year(date) ,month(date), me!NomeCaixaCombinação)


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

Re: Extrair primeiro dia de cada mês

Mensagempor Fernando Carvalho » 03 Dez 2018, 10:52

Muito obrigado, Sr. Avelino. Já está a funcionar direito. Só não consegui fazer para me avisar um dia antes. Se tiver alguma ideia, fico desde já agradecido. Eu tentei assim,mas não dá certo com a parte em bold

Código:
DataLimite = DateSerial(Year(Date), Month(Date), Me!cboDia)
If Me.DataLimite.Value = Date Or Me.DataLimite.Value = Date-1 Then
MsgBox"Alerta, é necessário enviar a listagem à companhia, vbInformation, "Aviso"
End If

Avatar do usuário
Avelino Sampaio
Mensagens: 1901
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Extrair primeiro dia de cada mês

Mensagempor Avelino Sampaio » 04 Dez 2018, 07:40

Fernando.

Tente assim:

Código:
DataLimite = DateSerial(Year(Date), Month(Date), Me!cboDia)
If (DataLimite = Date) Or (DataLimite = Date-1) Then
MsgBox"Alerta, é necessário enviar a listagem à companhia, vbInformation, "Aviso"
End If


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

Re: Extrair primeiro dia de cada mês

Mensagempor Fernando Carvalho » 04 Dez 2018, 09:57

Muito obrigado, Sr.Avelino. Tudo de bom para si e para os seus. Agora funciona tudo como eu queria.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante