Autonumérico con Fecha
Seguramente es otro autonumérico más, pero cuando la ignorancia es grande no te puedes ni mover y soy nueva en el Visual. Yo sé lo que quiero hacer pero no sé como implementarlo.
Quiero un número de factura tal y como este 001/2007 y que funcione de la siguiente manera:
Al introducir la fecha de la factura compruebe si ya hay algún registro que tiene facturas de ese año (independientemente de la fecha actual)
Si lo tiene que mire el último registro de ese año y aumente el contador, es decir de 001 a 002, etc.
Si no hay ningún registro con esa fecha ponga 001 y el año de la fecha de la factura.
Muchas gracias de antemano
Quiero un número de factura tal y como este 001/2007 y que funcione de la siguiente manera:
Al introducir la fecha de la factura compruebe si ya hay algún registro que tiene facturas de ese año (independientemente de la fecha actual)
Si lo tiene que mire el último registro de ese año y aumente el contador, es decir de 001 a 002, etc.
Si no hay ningún registro con esa fecha ponga 001 y el año de la fecha de la factura.
Muchas gracias de antemano
1 Respuesta
Respuesta de fibonnaci
1
Se puede hacer de muchas formas, te propongo una:
Crea un campo numérico entero IdFra (que contendrá 001... 002... 003) y
otro campo tipo texto IdAño(2007... 2008... 2006).
Selecciona los dos campos a la vez en diseño de tablas y dale
a clave principal (icono llave) de forma que queden
cada campo con una llave a su izquierda, ¿OK?
Private Sub Form_BeforeInsert()
Me.MiCajaTextoIdFra = DMax("MiCampoIdFra", "MiTabla","Where MiTabla.IdAño ="'" & MiCajaTextoIdAño & "'")
Me.MiCajaTextoIdFra=Format (Me.MiCajaTextoIdFra +1,"000")
End Sub
¿Fácil, no?
Crea un campo numérico entero IdFra (que contendrá 001... 002... 003) y
otro campo tipo texto IdAño(2007... 2008... 2006).
Selecciona los dos campos a la vez en diseño de tablas y dale
a clave principal (icono llave) de forma que queden
cada campo con una llave a su izquierda, ¿OK?
Private Sub Form_BeforeInsert()
Me.MiCajaTextoIdFra = DMax("MiCampoIdFra", "MiTabla","Where MiTabla.IdAño ="'" & MiCajaTextoIdAño & "'")
Me.MiCajaTextoIdFra=Format (Me.MiCajaTextoIdFra +1,"000")
End Sub
¿Fácil, no?
