Início![[Resolvido]Ao abrir o calendário Empty](https://2img.net/i/empty.gif)
Assis 10/6/2016, 15:55Boa tarde Amigos
Ao abrir o calendário, abrir com o dia atual submerso como na imagem .
Segue BD com calendario.
![[Resolvido]Ao abrir o calendário 1yv253](https://2img.net/h/oi64.tinypic.com/1yv253.png)
Ao abrir o calendário, abrir com o dia atual submerso como na imagem .
Segue BD com calendario.
2 participantes
[Resolvido]Ao abrir o calendário
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
gilberlanio- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 814
Registrado : 30/08/2010
já viu esse exemplo? nele tem essa função
https://www.maximoaccess.com/t26855-calendario-de-compromissos?highlight=calend%C3%A1rio
https://www.maximoaccess.com/t26855-calendario-de-compromissos?highlight=calend%C3%A1rio
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Gilberlânio
Não tem nada de igual.
Obrigado
Não tem nada de igual.
Obrigado
.................................................................................
*** Só sei que nada sei ***
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Bom dia Amigos
Resolvi, nesta parte com a linha a vermelho
'Define a data atual para a cdatageral
CDataGeral = Data
Me.CDataGeral = Data
Me.MesesBox = Month(Data)
Me.AnoGeral = Year(Data)
Me.Moldura = DatePart("w", DateSerial(Ano, Mes, 1)) - 1 + Day(CDataGeral)
Resolvi, nesta parte com a linha a vermelho
'Define a data atual para a cdatageral
CDataGeral = Data
Me.CDataGeral = Data
Me.MesesBox = Month(Data)
Me.AnoGeral = Year(Data)
Me.Moldura = DatePart("w", DateSerial(Ano, Mes, 1)) - 1 + Day(CDataGeral)
.................................................................................
*** Só sei que nada sei ***