condiciones en fechas

      • 140
      • mensajes
      • miembro desde
      • 14/10/04
    17/01/2007
    #1 condiciones en fechas

    hola quiero realizar lo siguiente con una macro o con codigo:
    quiero un formulario que me pida un intervalo de fechas, una vez ingresadas, se acepte y abra otro formulario con los datos restringidos por las fechas y que en una etiqueta me muestre el mes correspondiente al intervalo ingresado, ya que se consultaria por ej "inicio 01/10/2006 final 31/10/2006".
    Muchas Gracias.

  1. ¿Este tema te pareció interesante? Compártelo!

    ¿No es lo que buscabas? Intenta buscar un tema similar

    3 comentarios / 3303 Visitas

      • 93
      • mensajes
      • miembro desde
      • 24/02/05
    17/01/2007
    #2 Re: condiciones en fechas

    Hola: tendrías que crear un formulario y agregar dos textbox con mascara para ingresar las fechas.Agregas un commandobutton para que al pulsar el mismo te abra el formulario con el resultado de la consulta.
    La consulta la puedes crear en vista diseño y luego la utilizas como origen de datos (recordsource) del formulario que te muestra el resultado.}

    Saludos.

      • 140
      • mensajes
      • miembro desde
      • 14/10/04
    17/01/2007
    #3 Re: condiciones en fechas

    Hola ya logre hacer el formulario con los campos de las fechas y que me abra otro formulario con los criterios que le paso. Pero todavia sigo sin poder establecer el caption de una etiqueta segun el periodo de fechas que he ingresado.
    Gracias

      • 93
      • mensajes
      • miembro desde
      • 24/02/05
    18/01/2007
    #4 Re: condiciones en fechas

    Hola!! Para hacer lo que te falta puedes utilizar openargs (sirve para para pasar argumentos cuando llamas a un formulario). Por ejemplo:

    Al pulsar sobre el botón en el form donde ingresas el rango:
    Dim texto_caption As String
    texto_caption = "Periodo " & txtFDesde & " - " & TxtFhasta
    DoCmd.OpenForm "Formulario2", acNormal, , , , , texto_caption

    En el Form que se carga, en el evento Load:
    Etiqueta0.Caption = Me.OpenArgs


    Saludos.