Hola En la tabla donde queres poner el autonumerico, por ejemplo
Tabla Ayuda:
IDAyuda (Numerico)
NombreAyuda (Texto)
y en el form en el evento Activar registro del Formulario: (pega este código)
Private Sub Form_Current()'Al activar registro (en el Form)
If Me.NewRecord Then
On Error Resume Next
Me!Nombre_campo.DefaultValue = Nz(DMax("[Nombre_campo]", "Nombre_Tabla"), 2015) + 1
End If
End Sub
y remplaza lo que está marcado con Azul y entoneces quedaría así:
Private Sub Form_Current()'Al activar registro (en el Form)
If Me.NewRecord Then
On Error Resume Next
Me!IDAyuda.DefaultValue = Nz(DMax("[IDAyuda]", "Ayuda"), 2015) + 1
End If
End Sub
Tené en cuenta que el número 2015 podés poner cualquiera que te guste a vos si queres empezar desde el 1 poné 1
Espero que te sirva saludos
