none
Añadir horas en subformulario de access RRS feed

  • Pregunta

  • He hecho un formulario con un subformulario en access para la tabulacion e impresion de una bitacora de viaje.
    Como añado las horas en automatico al abrir el formulario principal? Es decir que en una columna en el subformulario me ponga al cargar las horas de 00:00 a 23:00?

    Saludos...


    Luis Carlos Lugo

    jueves, 10 de octubre de 2013 19:15

Todas las respuestas

  • Hola

    No nos comentas que versión de Access utilizas.

    Mira en la ayuda la función DateAdd

    Salu2,


    José Mª Fueyo [MS MVP Access]

    lunes, 14 de octubre de 2013 11:09
  • Access 2010

    Luis Carlos Lugo

    lunes, 4 de noviembre de 2013 23:01
  • Hola

    Tendrás que generar tantos registros por día como divisiones tengas en tu "cuaderno". Por ejemplo, sí quieres un registro cada media hora, tendrás que generar 48 registros, y así.

    Imagino que mostrarás cada vez los registros de un día. Este código genera los registros de una fecha dada, y en el intervalo de minutos dados. Se supone que la tabla del subformulario se llama tblBitacora, adáptalo a tus necesidades

    '---------------------------------------------------------------------------------------
    ' Procedure : Crea_Dia
    ' Author    : José Mª Fueyo
    ' Date      : 12/11/2013
    ' Purpose   : Crea los registros del cuaderno de bitácora.
    '             Se pasan como parámetros la fecha, y el interválo de minutos
    '---------------------------------------------------------------------------------------
    '
    Public Sub CreaBitacora(dFecha As Date, iMinutos As Integer)
        Dim dManana As Date, i As Integer
        dManana = DateAdd("d", 1, dFecha)
        i = DCount("ID", "tblBitacora", "Fecha=#" & dFecha & "#")
        If i = 0 Then 'Solo se crean registros sí no existen de la fecha pasada como parámetro
            Do While dFecha < dManana
                Dim sSQL As String
                sSQL = "INSERT INTO tblBitacora(Fecha) VALUES(#" & Format(dFecha, "MM/dd/yyyy hh:mm:ss") & "#);"
                DoCmd.SetWarnings False
                DoCmd.RunSQL sSQL
                DoCmd.SetWarnings True
                dFecha = DateAdd("n", iMinutos, dFecha)
                Debug.Print Format(dFecha, "dd/MM/yyyy hh:mm:ss")
            Loop
        End If
        Debug.Print "TERMINADO"
    End Sub
    

    Salu2,


    José Mª Fueyo [MS MVP Access]

    martes, 12 de noviembre de 2013 17:48