Iniciar Sess�o

Select the product you need help with

ACC: Como criar um controle pop-up do calend�rio em um formul�rio

ID do artigo: 190194 - Exibir os produtos aos quais esse artigo se aplica.

Exibir Aviso de Isen��o de Tradu��o Autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Aviso de Isen��o de Responsabilidade sobre Conte�do do KB Aposentado

Moderado: Requer b�sica de macro, codifica��o e interoperabilidade habilidades.

Expandir tudo | Recolher tudo

Quando voc� deseja que um usu�rio inserir um valor de data em um formul�rio, voc� pode melhorar a usabilidade do formul�rio, fornecendo um controle Calendar no formul�rio. Para reduzir a desorganiza��o no formul�rio, voc� pode simular um recurso do Microsoft Outlook fazendo com que o calend�rio pop-up quando o usu�rio clicar um bot�o. Este artigo descreve como criar um calend�rio pop-up usando uma caixa de combina��o e o controle de calend�rio (mscal.ocx).

Voltar para o in�cio | Submeter coment�rios

Mais Informa��es

Criar um calend�rio pop-up

Abra o banco de dados de exemplo Northwind.mdb.
Criar um novo formul�rio baseado na tabela Pedidos e salv�-lo como frmOrderDateForm.
Adicione uma caixa de combina��o para o formul�rio e defina a propriedade OrigemDoControle da caixa de combina��o ao campo DataDoPedido.
Inserir o controle de calend�rio no formul�rio.

Observa��o : para inserir um controle Calendar, clique em controle de ActiveX no menu Inserir e, em seguida, selecione controle de calend�rio ou 8.0 de controle de calend�rio dependendo da sua vers�o do Access, 7.0 ou 97.
Defina as seguintes propriedades para o controle Calendar:
```
   Name: Calendar
   Visible: No
					
```

Adicione o seguinte c�digo ao evento MouseDown da DataDoPedido caixa de combina��o:

Private Sub OrderDate_MouseDown(Button As Integer, _
                                  Shift As Integer, X As Single, _
                                  Y As Single)
' Show Calendar and set its date.
   Calendar.Visible = True
   Calendar.SetFocus
   ' Set to today if OrderDate has no value.
   Calendar.Value = IIf(IsNull(OrderDate), Date, OrderDate.Value)
End Sub

Adicione o seguinte c�digo ao evento Click do controle Calendar.

Observa��o: Voc� ter� que abrir um dos eventos listados e altere esse evento para o evento Click.

Private Sub Calendar_Click()
   ' Set OrderDate to the selected date and hide the calendar.
   OrderDate.Value = Calendar.Value
   OrderDate.SetFocus
   Calendar.Visible = False
End Sub

Salvar o formul�rio e alterne para modo formul�rio.

Voc� encontrar� que quando voc� clica na seta na caixa de DataDoPedido, o controle Calendar ficar� vis�vel e ser� definido como a data na caixa. Depois de selecionar uma data do calend�rio, o calend�rio desaparecer�o e a data selecionada ser� agora ser na caixa. Se a caixa de DataDoPedido n�o tem valor, o calend�rio mostrar� a data atual.

Exemplo adicional

Se voc� estiver usando o Access 97, voc� pode ver um exemplo adicional de como usar o controle Calendar, bem como outros controles ActiveX no banco de dados exemplos de controle ActiveX do Microsoft Access 97. O banco de dados � distribu�do no CD do Office 97 Developer Edition (ODE) no seguinte diret�rio:

   CD-DRIVE:\MSDS\ODESMPL\ODE\OLECONT\Actctrls.mdb

se voc� n�o tiver o ODE, voc� pode baixar esse banco de dados do site da Microsoft suporte no seguinte endere�o:

http://download.microsoft.com/download/access97/sample/1/WIN98/EN-US/Actxsamp.exe

(http://download.microsoft.com/download/access97/sample/1/win98/en-us/actxsamp.exe)

Voltar para o in�cio | Submeter coment�rios

Refer�ncias

Para obter mais informa��es sobre o controle Calendar, procure no �ndice da Ajuda para o "Controle de calend�rio".

Voltar para o in�cio | Submeter coment�rios

Propriedades

ID do artigo: 190194 - �ltima revis�o: ter�a-feira, 23 de janeiro de 2007 - Revis�o: 3.5

A informa��o contida neste artigo aplica-se a:

Microsoft Access 95 Standard Edition
Microsoft Access 97 Standard Edition

kbmt kbdownload kbhowto kbprogramming KB190194 KbMtpt

Tradu��o autom�tica

IMPORTANTE: Este artigo foi traduzido por um sistema de tradu��o autom�tica (tamb�m designado por Machine Translation ou MT), n�o tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplica��es (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em portugu�s a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradu��o autom�tica n�o � sempre perfeita, podendo conter erros de vocabul�rio, sintaxe ou gram�tica. A Microsoft n�o � respons�vel por incoer�ncias, erros ou preju�zos ocorridos em decorr�ncia da utiliza��o dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualiza��es freq�entes ao software de tradu��o autom�tica (MT). Obrigado.

Clique aqui para ver a vers�o em Ingl�s deste artigo: 190194

(http://support.microsoft.com/kb/190194/en-us/ )

Aviso de Isen��o de Responsabilidade sobre Conte�do do KB Aposentado

Este artigo trata de produtos para os quais a Microsoft n�o mais oferece suporte. Por esta raz�o, este artigo � oferecido "como est�" e n�o ser� mais atualizado.

Voltar para o in�cio | Submeter coment�rios