ACC: Cómo crear un Control de calendario emergente de un formulario

Seleccione idioma Seleccione idioma
Id. de artículo: 190194 - Ver los productos a los que se aplica este artículo
Moderado: Se requiere conocimientos de interoperabilidad, codificación y básico de las macros.

Expandir todo | Contraer todo

En esta página

Resumen

Cuando desea que un usuario indique un valor de fecha en un formulario, puede mejorar facilidad de uso del formulario proporcionando un control de calendario en el formulario. A reducir la aglomeración en el formulario, puede simular una característica de Microsoft Outlook al tener el calendario emergente cuando el usuario hace clic en un botón. En este artículo Describe cómo crear un calendario emergente utilizando un cuadro combinado y el Control de calendario (mscal.ocx).

Más información

Creación de un calendario emergente

  1. Abra la base de datos de ejemplo Neptuno.mdb.
  2. Crear un nuevo formulario basado en la tabla Pedidos y guárdelo como frmOrderDateForm.
  3. Agregar un cuadro combinado al formulario y establezca la propiedad OrigenDelControl (ControlSource) de la cuadro combinado al campo FechaPedido.
  4. Insertar el control de calendario en el formulario.

    NOTA: Para insertar un control de calendario, haga clic en ActiveX Control en el menú Insertar y, a continuación, seleccione un Control de calendario o Control Calendar 8.0 dependiendo de la versión de Access, 7.0 ó 97.
  5. Establezca las siguientes propiedades para el control de calendario:
       Name: Calendar
       Visible: No
    					
  6. Agregue el código siguiente al evento MouseDown del OrderDate cuadro combinado:
    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
    					
  7. Agregue el código siguiente al evento Click del control Calendar.

    Nota: Tendrá que abrir uno de los eventos enumerados y, a continuación, cambiar ese evento al 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
    					
  8. Guarde el formulario y pase a la vista formulario.
Se observará que al hacer clic en la flecha en el cuadro OrderDate, el Control Calendar se hará visible y se establecerá en la fecha en la cuadro. Después de seleccionar una fecha del calendario, desaparecerá el calendario y la fecha seleccionada estará ahora en el cuadro. Si el cuadro OrderDate no tiene ninguna valor, el calendario mostrará la actual fecha.

Obtener otro ejemplo

Si utiliza Access 97, se puede ver un ejemplo adicional del uso de la Control de calendario, así como otros controles de ActiveX en Microsoft Access Base de datos de ejemplos de controles de ActiveX 97. La base de datos que se distribuye en el Office 97 Developer Edition (ODE) con el CD en el siguiente directorio:
   CD-DRIVE:\MSDS\ODESMPL\ODE\OLECONT\Actctrls.mdb
				
Si no tienes la ODA, puede descargar esta base de datos del sitio Web Web sitio de soporte en la siguiente dirección:
http://download.Microsoft.com/download/Access97/Sample/1/WIN98/en-us/Actxsamp.exe

Referencias

Para obtener más información acerca del control de calendario, el índice de la Ayuda de búsqueda "Control de calendario".

Propiedades

Id. de artículo: 190194 - Última revisión: domingo, 10 de marzo de 2013 - Versión: 5.0
La información de este artículo se refiere a:
  • Microsoft Access 97 Standard Edition
Palabras clave: 
kbdownload kbhowto kbprogramming kbmt KB190194 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 190194
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com