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