none
Access.Informe de fecha a fecha/nueva numeración por cambio de año RRS feed

  • Pregunta

  • Buenas tardes.

    Estoy intentando hacer una base de datos en access 2010 que es un registro de entrada y salida de documentos.

    La cuestion es si es posible generar un listado de registro de fecha a fecha, sin determinar estas, y por materias.

    Quizas con un ejemplo se me entida mejor. Estas en la oficina y tienes una base de datos de registro de entrada y salida de documentos.Estos pueden ser factutas, cartas etc.Viene el jefe y te dice faciliteme un listado de las facturas o de cartas recibidas desde el 19 de agosto al 20 de septiembre. Es posible y como tendria que hacerse.

    Otra cuestion es la numeracion de registro de entrada o salida si se empieza en el 1 y la numeracion es sucesiva como cambiar a 1 cuando comienze un nuevo año.

    gracias y coodiales saludos

    sábado, 18 de agosto de 2012 14:48

Respuestas

  • Hola

    Puedes utilizar una consulta en la cual metes las fechas por las cuales quieres hacer la consulta. Eso si, las fechas las tendrás que introducir entre # en la rejilla de critrerios.

    Ya para el contador de fechas, quizás este código te sirva (adáptalo a tus circunstancias):

    Public Function Contador() As Long Dim lCuenta As Long lCuenta = DCount("MiCampoDeFecha", "MiTabla", "Year([MiCampoDeFecha])=" & Year(Date)) If lCuenta = 0 Then lCuenta = 1 Else lCuenta = lCuenta + 1 End If Contador = lCuenta End Function

    Salu2,

    José Mª Fueyo [MS MVP Access]

    • Marcado como respuesta Uriel Almendra lunes, 22 de abril de 2013 20:55
    lunes, 20 de agosto de 2012 10:10

Todas las respuestas

  • Hola

    Puedes utilizar una consulta en la cual metes las fechas por las cuales quieres hacer la consulta. Eso si, las fechas las tendrás que introducir entre # en la rejilla de critrerios.

    Ya para el contador de fechas, quizás este código te sirva (adáptalo a tus circunstancias):

    Public Function Contador() As Long Dim lCuenta As Long lCuenta = DCount("MiCampoDeFecha", "MiTabla", "Year([MiCampoDeFecha])=" & Year(Date)) If lCuenta = 0 Then lCuenta = 1 Else lCuenta = lCuenta + 1 End If Contador = lCuenta End Function

    Salu2,

    José Mª Fueyo [MS MVP Access]

    • Marcado como respuesta Uriel Almendra lunes, 22 de abril de 2013 20:55
    lunes, 20 de agosto de 2012 10:10
  • Gracias por la ayuda José Mª. Voy a ver si sale y respecto a la numeracion de un registro de entrada o salida cuyo campo es autonumerico, si este empieza en el 1 es posible cambiar nuevamente a 1 cuando comienze un nuevo año.

    gracias y coodiales saludos

    domingo, 26 de agosto de 2012 10:15