Crear campo autonumérico en Access

Crear autonumérico en accessExisten varias formas de crear un campo autonumérico en Acess, una de las formas más sencillas es aplicar la función Dmax, veamos como...

Crear campo autonumérico en Access utilizando la función DMax
Aunque Access posee un campo autonumérico por defecto no es conveniente utilizarlo ya que no podemos controlarlo y si borras un registro se quedará el hueco ya que no se puede editar, en la mayoría de los casos en mucho mejor crear el nuestro para así poder controlarlo, vamos a ver como crear un campo autonumérico con la función DMax que incremente en una unidad cada vez que creamos un registro nuevo.
La función DMax no se puede utilizar directamente en la tabla, hay que usarla en un formulario, veamos como funciona ésta interesante función de Access.
La función Dmax lo que hace es averiguar el valor más alto de un campo numérico:
DMax("Campo","Tabla")
lo que hacemos es pasarle a la función los parámetros del campo autonumérico y de la tabla que contiene dicho campo, es decir:
Campo: nombre del campo autonumérico en cuestión.
Tabla: Nombre de la tabla que contiene el campo.

Para que no nos de error cuando no hay ningún registro en la tabla aplicaremos la función NZ de ésta manera:
Nz(DMax("Campo","Tabla"),0)
con ésto hacemos que si no hay ningún registro creado en la tabla nos de un cero, pero de momento solo conseguimos averiguar el valor máximo del campo y lo que pretendemos es que se vaya incrementando por lo que nuestro código quedaría así:
Nz(DMax("Campo","Tabla"),0) +1

Veamos como aplicarlo en un formulario, para ello usaremos el evento Current del form (al activar registro), el código quedaría así:

Private Sub Form_Current()
If Me.NewRecord Then
Me.Control = Nz(DMax("Campo","Tabla"),0) +1
End If
End Sub

Como se ve hemos aplicado una condición: Si es un nuevo registro entonces aplicamos la función.
Me.Control es el nombre del control de texto en el formulario que enlaza con el campo numérico de la tabla.
Este código lo pegáis directamente en el VB del formulario.
Si hay alguna duda dejamos los comentarios abiertos.

Sección: Trucos programación - Access - Autonumérico


Comentarios

Campo autonumérico

Hola amigos, deseo saber si el truco para crear nuestro propio campo auotnumérico sirve para un formulario que contiene un subformualrio porque yo traté de utilizarlo en un caso de estos y cuando intenté pasar del formulario a subformulario me salió un mensaje que dice: "La clave principal no puede tener un valor null" y eso es cierto; Se podría pensar que debo trasladar a otro campo la clave principal, pero en ese caso se perdería la relación entre el formulario principal y el subformulario.
Espero su respuesta. Gracias

Relaciones

Como clave principal tienes que poner al campo autonumerico que has creado y olvidarte del campo autonumerico que te crea access.

Imaginemos que debemos crear

Imaginemos que debemos crear un campo autonumerico pero anualmente. Es decir tenemos un campo que marca el AÑO y NUM (La clave primaria es otra) se puede hacer por un campo filtrado por el año?

GRACIAS

Autonumericos por años

Si se puede, tan solo hay que añadir una condición más que seria el campo AÑO.

Tienes razón aquí dejo el

Tienes razón aquí dejo el código de muestra:

Private Sub btTest_Click()
    Dim max As Currency
    max = Nz(DMax("[campoNumerico]", "tabla", "[CampoTexto] = '" & Me![cuadroTexto] & "'"), 0)
    max = max + 1
End Sub

Nota: se podría hacer como función para que devuelva el valor :)

Esto lo tendré que poner en el después de insertar verdad? O no seria correcto? En el antes de actualizar parece peligroso no?

reinicio autonumerico cada año

ayuda... tengo 2 campos IdFolio que genere un autonumerico con este codigo que esta funcionando bien:
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.NewRecord Then
Me.txtFolio = Nz(DMax("IdFolio", "Facturas")) + 1
End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord Then
Me.IdFolio = Nz(DMax("IdFolio", "Facturas")) + 1
End If
End Sub

Private Sub Form_Current()
If Not Me.NewRecord Then
Me.txtFolio = Me.IdFolio
Else
Me.txtFolio = "(Auto)"
End If
End Sub

y el otro campo es FolioAño cambia cada año a=2010, B=2011 tambien funciona bien

lo que necesito es reiniciar en 1 cada año el IDfolio

te agradezco si me puedes ayudar

como lo freno

Hola, utilicé este código en una base de datos que estoy desarrollando y tengo el siguiente problema.
Cuando voy navegando a través de los registros con los botones de navegación y llego al último y vuelvo a clickear en el botón "siguente registro" automáticamente me sigue creando nuevos registros. En el formulario eliminé los botones de navegación para colocar unos personalizados, entonces no tengo el contador de registros, por lo cual no se cual es el último registro y navegando entre los registros buscando alguno en particular siempre termino creando un registro nuevo cuando no lo necesito.
Quisiera que cuando voy navegando con los botones y llego al último registro se detenga y solo me cree un nuevo registro con el botón "nuevo registro".
No se si fui claro, cualquier cosa me explayo un poco más.

Muchas gracias!

Slds,
Gabriel

Valor requerido

Una posible solución sería poner un campo "requerido" en la tabla, aparte del campo autonumerico, de esa manera no te dejaría crear un nuevo registro si ese campo está vacio. Te saltará un mensaje de access indicando el error, luego podrías capturar ese mensaje y poner uno personalizado.

Es porque creaste más los

Es porque creaste más los botones de navegar. Es decir cuando estas en el ultimo y le das a siguiente no debería avanzar (que es cuando crea un nuevo). Deberías tener primer,anterior,siguiente,ultimo donde tendrías que tener un condicional preguntando si estas en el primer registro (en caso de los dos primeros botones) o si estas en el ultimo (el caso de los dos siguientes) y no hacer nada (No llamar a la macro o mover el recorset), luego si quieres introducir un nuevo registro deberás crear otro botón.

Posible solución

Es porque creaste mal los botones de navegar o por lo menos es lo que yo haría. Es decir cuando estas en el ultimo y le das a siguiente no debería avanzar (que es cuando crea un nuevo). Deberías tener primer,anterior,siguiente,ultimo donde tendrías que tener un condicional preguntando si estas en el primer registro (en caso de los dos primeros botones) o si estas en el ultimo (el caso de los dos siguientes) y no hacer nada (No llamar a la macro o mover el recorset), luego si quieres introducir un nuevo registro deberás crear otro botón. Pensar que este autonumerico solo sirve si queréis tener los números sequencialmente consecutivos (sin saltarse ninguno) para otros menesteres usar un integer autonumerico (si no pasa nada si hay saltos numerales).

Solucionado

Ya lo solucioné! Puse una condición que desabilita los botones de navegación cuando llega a los extremos.
Gracias por los aportes.

Saludos

el mismo error

por favor tengo el mismo error que tu, me sigue generando registros al llegar al ultimo. como hiciste para solucionarlo

¿Por qué me da el error de

¿Por qué me da el error de compilación "No se encontró el método o el dato miembro"?

El mismo código? Que versión

El mismo código? Que versión de access? En que parte del código? Muy pocos datos!

Ok, mea culpa, todo

Ok, mea culpa, todo arreglado, tuve un fallo al transcribir el código.