Início![[Resolvido]Automatismo com calendário Empty](https://2img.net/i/empty.gif)
Assis 4/8/2011, 10:30Bom dia
http://dl.dropbox.com/u/8169944/Menu%20Assis.rar
http://dl.dropbox.com/u/8169944/Menu%20Assis.rar
3 participantes
[Resolvido]Automatismo com calendário
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Olá! Você pode conseguir a primeira e última data assim:
Me.PrimeiroDia = DateSerial(Year(Date()), Month(Date()), 1)
Me.UltimoDia = DateSerial(Year(Date()), Month(Date())+1, -1 +1)
Me.PrimeiroDia = DateSerial(Year(Date()), Month(Date()), 1)
Me.UltimoDia = DateSerial(Year(Date()), Month(Date())+1, -1 +1)
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Olá Criquio
Até ai tudo bem. Ao abrir o form "Menu" faz isto.
Me.DataInicio = DateSerial(Year(Me.DataMenu), Month(Me.DataMenu), 1)
Me.DATAFIM = DateSerial(Year(DataMenu), Month(DataMenu) + 1, 0)
Mas o meu problema é quando altero no calendário para outro Mês só altera na data que está a verde, e as datas a amarelo não consigo por a alterar.
Até ai tudo bem. Ao abrir o form "Menu" faz isto.
Me.DataInicio = DateSerial(Year(Me.DataMenu), Month(Me.DataMenu), 1)
Me.DATAFIM = DateSerial(Year(DataMenu), Month(DataMenu) + 1, 0)
Mas o meu problema é quando altero no calendário para outro Mês só altera na data que está a verde, e as datas a amarelo não consigo por a alterar.
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Em que evento está o código? Se estiver em outro, tente o "Ao clicar".
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
*
Será que consigo resolver à primeira ? ...
http://dl.dropbox.com/u/771097/Menu%20Assis_OLD.rar
Será que consigo resolver à primeira ? ...
http://dl.dropbox.com/u/771097/Menu%20Assis_OLD.rar
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Automatismo com calendário Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Boa JPaulo
Quase resolvia antes de conhecer o problema
Obrigado...
Quase resolvia antes de conhecer o problema
Obrigado...
.................................................................................
*** Só sei que nada sei ***
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Valew pelo retorno, o fórum agradece.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...