Simular Campo Autonumerico

Simplemente eso como simular un campo autonumerico como el predeterminado de Access

el codigo:

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"), 0) + 1, _

vbCritical + vbOKOnly, "E R R O R . . ."

Me.NumerodeRegistro = Nz(DMax("[NumerodeRegistro]", "TablaCualquiera"), 0) + 1

End If

End Sub

Private Sub Form_Current()

If NewRecord Then

On Error Resume Next

Me!NumerodeRegistro.DefaultValue = _

Nz(DMax("[NumerodeRegistro]", _

"TablaCualquiera"), 0) + 1

End If

End Sub