Access - Consecutivo autonumerico

   
Vista:

Consecutivo autonumerico

Publicado por Mario Ramirez (3 intervenciones) el 06/11/2009 13:50:35
Cordial saludo,
Necesito sabe si se puede hacer algo y me indiquen como :
Tengo un campo autonumerico consecutivo, este inicia en 1,
pero por necesidades requiero inicializarlo apartir de un consecutivo en el que va la la secuencia ejemplo como en el 1234
Agradezco su colaboracion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consecutivo autonumerico

Publicado por Jefferson (1 intervención) el 06/11/2009 15:14:46
Hola Mario Ramirez

Con este codigo haras lo que pretendes

Option Compare Database
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = True
MsgBox "Lamentablemente el Registro, " _
& vbCrLf & " Numero " & Me.NumerodeRegistro _
& vbCrLf & " Ha sido ingresado, " & vbCrLf & _
" El Numero que le corresponde es " & vbCrLf & _
" este = " & _
Nz(DMax("[NumerodeRegistro]", "TablaCualquiera"), 1200) + 1, _
vbCritical + vbOKOnly, "E R R O R . . ."
Me.NumerodeRegistro = Nz(DMax("[NumerodeRegistro]", "TablaCualquiera"), 1200) + 1
End If
End Sub
Private Sub Form_Current()
If NewRecord Then
On Error Resume Next
Me!NumerodeRegistro.DefaultValue = _
Nz(DMax("[NumerodeRegistro]", _
"TablaCualquiera"), 1200) + 1
End If
End Sub

Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar