problema en auto numerico secuencial
Publicado por Didac (27 intervenciones) el 18/04/2017 15:07:43
Buenas a todos tengo creado este codigo para hacer un campo autonumerico y de momento funciona correctamente.
Pero cuando llega al registro 10, deja de guardar datos en la tabla, no continua por el 11, 12 ,13...... Y por otro lado el valor 10 me lo pone detras del 1, el campo en el SQL lo tengo determinado como nchar(10)
Que es lo que no hago bien?
Muchas gracias
1
2
3
4
5
Public Function NumId() As Long
Dim Numero As Long
Numero = Nz(DMax("COUNT","dbo_usuarioregistrador"),0) + 1
NumId = NumeroEnd Function
1
2
3
4
5
Private Sub Form_Current()
If Me.NewRecord ThenMe.CampoClave = Nz(DMax("COUNT","dbo_usuarioregistrador"),0) + 1
End If
End Sub
Pero cuando llega al registro 10, deja de guardar datos en la tabla, no continua por el 11, 12 ,13...... Y por otro lado el valor 10 me lo pone detras del 1, el campo en el SQL lo tengo determinado como nchar(10)
Que es lo que no hago bien?
Muchas gracias
Valora esta pregunta
0