NUM REGISTRO CONSECUTIVO
Publicado por RAUL (3 intervenciones) el 13/06/2021 15:27:12
HOLA A TODOS... ESPERO ME PUEDAN DAR UNA MANO CON UN PEQUEÑO PROYECTO PERSONAL. QUISIERA SABER COMO APLICAR EL CÓDIGO ABAJO DESCRITO PARA UNA BASE DE DATOS ACCES CON FORMULARIO DE REGISTROS EN VB6.0 GRACIAS DE ANTEMANO. SOY NUEVO EN ESTO.
1
2
3
4
Private Sub FORM_Current ()
If Not Me.NewRecord Then Exit Sub
Me.NumFra = Year(Date) & Format(Nz(DMax("Val( Mid(NumFra, 5))", "Facturas", "Val( Left(NumFra,4)) = " & Year (date)), 0) + 1, "0000")
End Sub
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0