CALENDÁRIO POPUP para Microsoft Access

Novo   Download   Home 

Este utilitário gera um calendário popup especial no Microsoft® Access® para pegar e contar datas, podendo inserir datas e intervalos de datas (Selecionador de Data) no Access. É programado em Microsoft® Visual Basic® for Application (VBA) e disponível opcionalmente como Suplemento de COM (dll), Suplemento de EXE (mda/exe) ou Suplemento do Access (mda), podendo ser útil para usuários da interface do Access e programadores de VBA. Veja as figuras abaixo.

Ele consiste basicamente de um único arquivo (AccessCalendar.dll, AccessCalendar.exe ou AccessCalendar.mda) que pode ser instalado automaticamente usando um dos pacotes de arquivo de instalação disponíveis abaixo para download. Exceto para a DLL, se optar por Suplemento de COM, nenhuma outra configuração é salva no Registro do Windows. Sua configuração é salva nos arquivos AccessCalendar.ini e AccessCalendarLoadExe.mda que são criados e mantidos pelo próprio utilitário. Você também pode desinstalá-lo total e automaticamente, não deixando nenhuma sujeira no Registro do seu Windows ou disco.

Itens a seguir nesta página:

Características

Download

Opções de Suplementos para Instalar

Figuras

Função fCalendar() em VBA

Características:

- Popup em tamanho reduzido;

- Popup próximo ao cursor do mouse ou opcionalmente na última posição salva;

- Pode popup em dois formatos: normal e compacto. No formato normal, dias são pegos a partir de um mapa tradicional de calendário, enquanto meses e anos são pegos a partir de caixas de combinação ou os incrementado/decrementado através de estratégicos controles de setas. No formato compacto, dias, meses e anos são pegos a partir de especiais e informativas caixas de combinação;

- Permite incrementar e decrementar dias, semanas, meses e anos um por um através de botões ou inserindo quantidades diretamente em caixas de texto;

- Contagem de período: dias, semanas, meses e anos a partir de uma data de referência;

- A data de referência para contagem pode sempre iniciar definida com a data de Hoje, ou com a mesma Data Inicial do Display ou ainda com a última Data de Referência Definida, mas ela também pode ser definida no vôo com clique direito do mouse em controles de dia;

- Controles na interface para ir para a data de hoje e para voltar para data inicial;

- Insere sem quebrar a corrente do comando ‘Desfazer’ do Access em curso e qualquer inclusão pode ser desfeita, normalmente, por ele mesmo;

- Pode ser chamado pelo botão direito do mouse (Menu de Contexto) ou por um botão uma barra de ferramentas do Access (Guia Suplementos da Faixa de Opções 2007, 2010 ou 2013);

- A saída pode ser uma variant (date) (computador-legível/data não formatada) ou um destes 25 formatos (humano-legível/data formatada): Curto Win (definido pelo Painel de Controle do Windows); dd/mm/aaaa (23/08/2007); dd/mm/aa (23/08/07); mm/dd/aaaa (08/23/2007); mm/dd/aa (08/23/07); dd.mm.aaaa (23.08.2007); dd.mm.aa (23.08.07); mm.dd.aaaa (08.23.2007); mm.dd.aa (08.23.07); aaaa.mm.dd (2007.08.23); aaaammdd (20070823); mmm-aa (ago-07); Longo Win (definido pelo Painel de Controle do Windows); Longo 1 (agosto de 07); Longo 2 (23-ago-07); Longo 3 (23 agosto 07); Longo 4 (23 de agosto de 2007); Longo 5 (quinta-feira, 23 de agosto de 2007); Longo 6 (vigésimo terceiro dia de agosto de 2007); Longo 7 (aos vinte e três dias de agosto de 2007); Longo 8 (aos vinte e três dias de agosto do ano de dois mil e sete); Intervalo 1 (234 dias de 1/1/2007 até 23/8/2007); Intervalo 2 (7 meses e 22 dias de 1/1/2007 até 23/8/2007); Intervalo 3 (7 meses e 22 dias de 1/1/2007 até 23/8/2007) e Intervalo 4 (33 semanas e 3 dias de 1/1/2007 até 23/8/2007);

- Formatos de saída são listados em um menu sensível de acordo com a data atual no display com inclusão imediata e redefinição do formato de saída padrão para a próxima nova instância;

- Pode lidar com datas a partir de 01/01/0100 AC até 31/12/9999;

- Permite múltiplas instâncias em uma única instância do Access com controles, configurações, contagens e resultados independentes. Em quantidades práticas, não há limites para o número de instâncias simultâneas;

- Controles de data de referência de contagem em todas as instâncias abertas ou algumas delas podem ser atados para definir simultaneamente;

- Controles atados são distinguidos por asteriscos no título;

- A característica de múltiplas instâncias pode ser desabilitada;

- O tamanho do display pode ser ajustado pelas bordas para aumentar o tamanho da fonte de 8pt para até 32pt ou diminuir até 4pt;

- Pode copiar a data no display para Àrea de Transferência do Windows. Dica! Ao inserir com a tecla Shift pressionada, a saída será desviada para Àrea de Transferência;

- Pode colar no display data existente na Área de Transferência do Windows;

- Aceita as seguintes teclas de atalho que possibilitam pegar datas usando apenas o teclado:

- Popup Calendário: Nenhuma
- Avançar dia: Seta Direita
- Retroceder dia: Seta Esquerda
- Avançar semana: Seta Abaixo
- Retroceder semana: Seta Acima
- Avançar mês: Page Down
- Retroceder mês: Page Up
- Avançar ano: Ctrl + Page Down
- Retroceder ano: Ctrl + Page Up
- Ir data de Hoje: H
- Voltar à data Inicial: I
- Inserir e fechar: Enter
- Fechar: ESC
- Colar a partir da Área de Transferência do Windows: Ctrl + V or V
- Copiar para Àrea de Transferência do Windows: Ctrl + C or C Dica! Ao inserir com a tecla Shift pressionada, a saída será desviada para Àrea de Transferência;

- A face pode ser configurada em: cor e figura de segundo plano, em transparência do visor e de controles e ocultação da barra de título clássica;

- A última configuração aberta ou a configuração da última instância fechada será usada como padrão na próxima nova instância;

- Possui comandos no menu para restaurar todas as configurações padrão;

- O número da semana do ano de um dia é exibido como dica ao passar o mouse sobre o controle do dia;

- Todas as instâncias rodando podem ser fechadas com um único clique selecionando o comando ‘Fechar Tudo’ no menu;

- Pode ser chamado diretamente a partir de qualquer código VBA através da função fCalendar(). Veja, logo abaixo das figuras, uma descrição detalhada desta função e exemplos de aplicativos em VBA que a usam;

- Modal e não modal;

- Som;

- Ocupa menos de 320 Kb quando instalada;

Download:

Testado no Access para Windows, versões 2000, 2002(XP), 2003, 2007, 2010 (32 e 64-bit), 2013 (32 e 64-bit), 2016 (32 e 64-bit) e 2019 (32 e 64-bit) em instalações MSI-based e Click-To-Run do Office 365™ de serviços baseados na nuvem.

Veja também para Microsoft Excel®, para Microsoft PowerPoint® e para Microsoft Word.

Opções de Suplementos para Instalar:

Este utilitário pode estar disponível para ser instalado em três opções de suplemento: Suplemento de EXE, Suplemento de COM ou Suplemento do Access. Suplemento de COM e Suplemento do Access rodam no Windows no mesmo processo ou espaço de memória do Access e são tecnologias bem detalhadas na documentação do Access e em bons livros sobre VBA, enquanto Suplemento de EXE é uma denominação especial aqui para um misto daquelas duas tecnologias onde o mesmo código VBA é rodado em um processo EXE separado e um pequeno Suplemento do Access faz a conexão entre os dois processos. Apesar das diferenças nas tecnologias, este utilitário é totalmente funcional em qualquer uma delas. Assim, o que pode decidir na sua escolha para instalar são as características abaixo comparadas:

¹Indisponível temporariamente.

Figuras:

Função fCalendar():

O calendário pode ser chamado diretamente a partir de qualquer código VBA através da função fCalendar() que tem estes 7 argumentos opcionais:

1 - IniDate (Data, Padrão=Hoje)

2 - RetDateAsDate (Boolean, Padrão=Verdadeiro)

3 - WaitAndRetValue (Long 0 to 2, Padrão=2). Onde:
     0 - Não retorna valor, não assíncrona e não modal
     1 - Retorna valor, assíncrona e não modal
     2 - Retorna valor, assíncrona e modal

4 - FontDisplaySize (Long 4 to 32, Padrão=8)

5 - CompactMode (Boolean, Padrão=Falso)

6 - LeftPos (String, Padrão="0")

7 - TopPos (String, Padrão="0"). Onde LeftPos e TopPos são as distâncias em pontos (1/72 polegadas) do centro da lateral esquerda do calendário para a posição atual do mouse. Se os valores forem precedidos por $ (cifrão), LeftPos e TopPos passam a ser as distâncias do canto superior esquerdo do calendário para o canto superior esquerdo fixo da tela. E ainda, se houver apenas o $ sem número, será usada a posição padrão atual.

Exemplos se instalar como Suplemento de COM:

O Suplemento de COM disponibiliza um objeto para o projeto VBA por onde a função é chamada neste formato:

ObjToVBA.fCalendar(IniDate, RetDateAsDate, WaitAndRetValue, FontDisplaySize, CompactMode, LeftPos, TopPos)

Veja os códigos de três exemplos:

'1 - O código abaixo chama o calendário em modal para retornar data como
'     variant (Date) para um formulário.
Sub YourSub1()
    Dim ObjToVBA As Object
    Set ObjToVBA = _
    Application.COMAddIns("AddInAcCalendar.AccessDesigner").Object
    fRet = ObjToVBA.fCalendar(IniDate)
End Sub

'2 - O código abaixo chama o calendário em não modal para retornar data
'    em qualquer formato de saída como no comando de clique direito.
Sub YourSub2()
    Dim ObjToVBA As Object
    Set ObjToVBA = _
    Application.COMAddIns("AddInAcCalendar.AccessDesigner").Object
    Call ObjToVBA.fCalendar(IniDate, False, 0)
End Sub

'3 - Idem para capturar e retornar data para a seleção ativa.
Sub YourSub3()
    Dim ObjToVBA As Object
    Set ObjToVBA = _
    Application.COMAddIns("AddInAcCalendar.AccessDesigner").Object
    Call ObjToVBA.fCalendar
End Sub

Exemplos se instalar como Suplemento de EXE:

Suplemento de EXE não disponibiliza objetos para o projeto VBA e a função é chamada e retorna através do objeto CommandBars. Uma string composta com o nome da função e os argumentos separados por ponto e vírgula é passada através da propriedade Paramenter do botão de comando do utilitário criado em menu do Access neste formato::

CmdBarCtrl.Parameter = "fCalendar;" & IniDate & ";" & RetDateAsDate & ";" & WaitAndRetValue & ";" & FontDisplaySize & ";" & CompactMode & ";" & LeftPos & ";" & TopPos

Veja os códgos dos mesmos três exemplos:

'1 - O código abaixo chama o calendário em modal para retornar data como
'     variant (Date) para um formulário.
Sub YourSub1()
    Dim CmdBarCtrl As CommandBarButton
    Const AddInTitle As String = "Orlando's " & "AccessCalendar"
    Set CmdBarCtrl = Application.CommandBars.FindControl(Tag:=AddInTitle)
    CmdBarCtrl.Parameter = "fCalendar;" & IniDate
    CmdBarCtrl.Execute
    fRet = CmdBarCtrl.Parameter
    If fRet = "" Or fRet Like "False" Then fRet = False
    CmdBarCtrl.Parameter = ""
End Sub

'2 - O código abaixo chama o calendário em não modal para retornar data
'    em qualquer formato de saída como no comando de clique direito.
Sub YourSub2()
    Dim CmdBarCtrl As CommandBarButton
    Const AddInTitle As String = "Orlando's " & "AccessCalendar"
    Set CmdBarCtrl = Application.CommandBars.FindControl(Tag:=AddInTitle)
    CmdBarCtrl.Parameter = "fCalendar;" & IniDate & ";" & False & ";" & 0
    CmdBarCtrl.Execute
    CmdBarCtrl.Parameter = ""
End Sub

'3 - Idem para capturar e retornar data para a seleção ativa.
Sub YourSub3()
    Dim CmdBarCtrl As CommandBarButton
    Const AddInTitle As String = "Orlando's " & "AccessCalendar"
    Set CmdBarCtrl = Application.CommandBars.FindControl(Tag:=AddInTitle)
    CmdBarCtrl.Parameter = "fCalendar"
    CmdBarCtrl.Execute
    CmdBarCtrl.Parameter = ""
End Sub

Mais informação

Home