¿Puedo crear un campo en una tabla de la base de datos access que funcione como autonumérico?

Quisiera saber si es posible tener un campo que funcione como autonumérico, pero sin serlo.
Me explico: en una tabla, el primer campo es un Identificador (de tipo numérico), y quiero que a cada registro nuevo le asigne automáticamente uno más que el anterior, de la misma forma que que se genera en el tipo autonumérico, pero sin usar ese tipo.

1 Respuesta

Respuesta
1
No hay problema en conseguir lo que comentas. Te lo explico a través de un ejemplo.
1. Creamos una tabla (yo la he llamado "Datos") y creamos un campo (que llamaré "Registro") de tipo "número". Añades todos los campos que necesites.
2. Creamos un formulario basado en la tabla "Datos"
3. Sacamos las propiedades de ese formulario y en el evento "Al Activar registro" le ponemos el siguiente código:
---
Private Sub Form_Current()
    Dim numReg As Variant
    numReg = DMax("[Registro]", "Datos")
    If IsNull(numReg) Then
        numReg = 1
    Else
        numReg = numReg + 1
    End If
    Me.Registro.Value = numReg
End Sub
...
Ahora, cada vez que añadas un registro, te irá incrementando una unidad el campo "Registro", pero ya no es autonumérico, como pedías.
Ya me dirás cosas si te surge algún problema.
No cierres aún la consulta. Compruebo una cosa y te digo cosas
OK. Te explico:
El código que te había pasado funciona siempre que estés añadiendo registros, pero si te paseas por los registros (registro anterior o siguiente) cada vez te volverá a cambiar el número de registro.
Para evitar eso podemos hacer lo siguiente:
1.- Cuando creamos el campo "Registro" (al crear la tabla) le ponemos que su valor predeterminado sea 0 (cero)
2.- Ponemos el siguiente código al evento de formulario "Al activar registro":
---
Private Sub Form_Current()
    Dim numReg, existe As Variant
    existe = Me.Registro.Value
        'Si el valor encontrado es cero ejecuta el procedimiento.
        'En caso contrario sale del mismo
    If existe = 0 Then
        numReg = DMax("[Registro]", "Datos")
            'Este If es para detectar si es el primer registro
            'que se introduce
        If IsNull(numReg) Then
            numReg = 1
            Me.Registro.Value = numReg
        Else
            numReg = numReg + 1
            Me.Registro.Value = numReg
        End If
    Else
        Exit Sub
    End If
End Sub
---
Para evitar errores del usuario a la hora de introducir los datos también sería aconsejable, en el formulario en vista diseño, sacar las propiedades del campo "Registro" y en la pestaña "Datos" establecer la propiedad Bloqueado en "Sí", e incluso quitarle el punto de tabulación (Pestaña "Otras"->Punto de tabulación: NO). Así nos evitamos borrados accidentales del número asignado.
Ahora debería funcionarte. Si tienes algún problema me dices cosas.
Suerte!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Predeterminar en un campo "fecha" de una tabla, un valor calculado

Quisiera saber si es posible (Con una Expresión) en una base de datos en Access, Predeterminar en un campo fecha, un valor que sea mayor al ultimo registro sin perder la secuencia, por ejemplo en un campo llamado periodo el ultimo registro contiene...
1 respuesta

Incrementar fecha

Tengo una tabla que meto los datos por un formulario el primer campo es la fecha ¿Cómo puedo hacer para que al abrir el formulario me salga el ultimo día que no tiene registro? Es decir que se comporte como el campo ide autonumérico de tabla que...
1 respuesta

Crear un campo que sea numérico pero que sume 1

Estoy tratando de crear un campo numérico que al ingresar un registro sume 1, pero no quiero que sea autonumérico, ya que en mi tabla tengo dos llaves (año y cod_solicitud). Lo que quiero hacer es que al cambiar el año, el cod de solicitud comience...
1 respuesta

Llenar un campo automáticamente

En un registro he definido un campo que se debe llenar con un numero secuencial si otro campo dle mismo registro cumple una condición. No se programar VB.
1 respuesta

Números consecutivos

Te cuento... Tengo un formulario "Remito", necesito por un lado que la numeración sea consecutiva, pero a la vez me permita ingresar otro numero manualmente en el mismo campo presionando un botón, una vez ingresado el numero manualmente que vuelva a...
2 respuestas

Formulario continuo access tipo "parte diario"

Quisiera saber si es posible hacer un formulario de varios elementos/continuo en el que en la cabecera se incluyera un campo (por ejemplo fecha) y otro de numeración que me permitiera que a la hora de ingresar los datos, a todos los que he metido con...
1 respuesta

No permitir la edición de un campo en el formulario Access

Cómo puede no permitir la edición de algunos campos del formulario. En este caso no me sirve la propiedad en el formulario, porque esta aplica para todos los campo, yo sólo necesito aplicar esta propiedad a un par de ellos.
1 respuesta

Campo autonumerico y ciclico enn formulario access

Vuelvo a molestarte. Estoy buscando hacer que un campo numérico en un formulario aparezca como autonumérico. Hasta ese punto he llegado con éxito usando el siguiente código: Private Sub Form_Current() If Me.NewRecord Then Me.Control =...
1 respuesta

Campo autonumérico.

Tengo un formulario, donde el primer campo es "nº expediente", que es numérico, porque aunque me iría mejor a la larga autonumérico, tengo que introducir más de 5000 registros y no los tengo ordenados, y me costaría mucho pasarlos si el campo fuera...
2 respuestas

Crear un autonumérico en un subformulario

Como estas. Sucede que dentro de mi formulario principal tengo un subformulario en vista hoja de datos. Ambos ligados a diferentes tablas. Paso registros del formulario principal al subform por medio de un botón de comando. Dentro del subform hay un...
1 respuesta