Formato nº de factura
Tengo una base de datos para hacer facturas en access 2003.
La cuestión es que el código del formulario facturas hace que el numero de factura tenga el formato "20080001" y a mi me gustaría que pusiera "001/08", este es el código.
Function SigFact() As Long
Dim XFiltro$, XNumero&
XFiltro = "instr (Id,'" & Format(Date, "yyyy") & "')=1"
XNumero = Val(Mid(Nz(DMax("Id", "Facturas", XFiltro), Format(Date, "yyyy") & "0000"), 5)) + 1
SigFact = Format(Date, "yyyy") & Format(XNumero, "0000")
End Function
He cambiado SigFact = Format(Date, "yyyy") &"/" & Format(XNumero, "0000"), entre otras cosas y me da el error: "El valor que introdujo no es valido para este campo."
El formulario esta basado en la tabla Facturas, donde el "Id" es el numero y está como numérico, Entero largo, Indexado sin duplicado. El año al que hace referencia el numero de la factura, es la fecha de la factura en formato año.(YYYY)
Esto es todo.
La cuestión es que el código del formulario facturas hace que el numero de factura tenga el formato "20080001" y a mi me gustaría que pusiera "001/08", este es el código.
Function SigFact() As Long
Dim XFiltro$, XNumero&
XFiltro = "instr (Id,'" & Format(Date, "yyyy") & "')=1"
XNumero = Val(Mid(Nz(DMax("Id", "Facturas", XFiltro), Format(Date, "yyyy") & "0000"), 5)) + 1
SigFact = Format(Date, "yyyy") & Format(XNumero, "0000")
End Function
He cambiado SigFact = Format(Date, "yyyy") &"/" & Format(XNumero, "0000"), entre otras cosas y me da el error: "El valor que introdujo no es valido para este campo."
El formulario esta basado en la tabla Facturas, donde el "Id" es el numero y está como numérico, Entero largo, Indexado sin duplicado. El año al que hace referencia el numero de la factura, es la fecha de la factura en formato año.(YYYY)
Esto es todo.
1 Respuesta
Respuesta de pasanbur
1