Simular campo autonumérico en campo numérico
¿Cómo podría con código incrementar en uno un campo numérico cada vez que creo un registro nuevo? Gracias de antemano por vuestra ayuda. ¿En qué evento tendría que poner el código?.
Es mejor acostumbrarse a utilizar el VBA en un formulario inserta un boton e incluye el siguiente codigo:
Dim db1 As Database
Dim rs1 As Recordset
Dim var1 As Double
Dim v1 As Variant
Dim mvarobservaciones1 As String
On Error Resume Next
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("Select * from tabla")
var1 = 0
Do While Not rs1.EOF
rs1.Edit
var1 = var1 + 1
rs1!Campoautonumerico = var1
rs1.Update
rs1.MoveNext
Loop
En la tabla debes de incluir un campo llamado Campoautonumerico
3 respuestas más de otros expertos
Se puede hacer eso antes de guardar el nuevo registro. Una selección del campo de numeración mayor que es el numero del registro, digamos "autono".
("select autono from tabla order by autono DESC limit 1")
Al hacerlo le sumamos uno y ese seria el nuevo numero del registro.
Pero, para darte un mejor ejemplo seria necesario, por favor, nos digas que lenguaje es el que estas usando.
Suponiendo que sea php
<?php
#seleccionamos el ultimo valor del campo deseado
$sql ="select autono from tabla order by autono desc limit 1";
$rst = mysqli_query($cnx,$sql);
#guardamos el resultSet
$registro = mysqli_fetch_array($rst,MYSQL_ASSOC);
#extraemos el valor del resultSet
$ultimoregistro = (int)$registro["autono"];
#sumamos uno al registro extraido
$nuevoregistro = $ultimoregistro + 1;
/*AHORA SI INGRESAMOS EL REGISTRO*/
$nsql = "insert into tabla (autono,campo1, campo2) values ($nuevoregistro,"a1","b1");
$insertado = mysqli_query($cnx,$nsql);
if($insertado){
mysqli_commit($cnx);
}else{
mysqli_rollback($cnx);
}
?>
Todo esto es suponiendo que sea con php y bases de datos mysql, con vba y access es muy pero muy similar...
Algo más sencillo podría ser que si tienes, por ejemplo, una tabla "Tabla1" y como clave principal "Id_Tabla", en el formulario entras a las propiedades del campo de Id_Tabla y como Valor predeterminado escribes:
=DMáx("[Id_Tabla]","Tabla1")+1cada que se activa un nuevo registro automáticamente te da el número siguiente al último en tu tabla.
Hola, Hernán. Por curiosidad, ¿en qué te basas para decir que es mejor utilizar vba? - Neckkito Nck
Es más seguro, invita al usuario que esta trabajando en Access a utilizar la lógica de programación plasmándola en el VBA para automatizar los registros en las tablas, por otra parte aquí en Colombia ya las compañías están exigiendo a los desarrolladores y DBAs a utilizar VBA cuando se trabaja en Access. - Hercasam Mirvil
Es una opinión interesante. Sin embargo, y desde mi humilde punto de vista, Access está plagado de herramientas, entre ellas VBA, por supuesto, pero también funciones, funciones incorporadas, etc. ¿Para qué vas a matarte a programar una varianza (yo, ahora mismo, no sabría ni programarla) si Access ya lleva una función que la calcula? Por otra parte, si no quieres estudiar VBA y tienes un dlookup(), o un dmax(), ¿por qué no utilizarlos (el propio Microsoft, en su ayuda, te indica claramente cómo usarlos en prácticamente dos líneas de ayuda)? - Neckkito Nck
En fin, que creo que no hay que ser tan categórico diciendo qué es lo mejor y lo peor, sino que lo que es lo mejor y lo peor depende de las circunstancias de cada usuario. Lógicamente es mi humilde opinión :-) Por otra parte me alegra ver que estás en la brecha con esto de Access, y me alegra ver que parece que todo te va bien. Recibe un cordial saludo ;-) - Neckkito Nck
Si,,,es duro pero desafortunadamente tuve muchos problemas con los clientes cuando no se hacia en VBA ciertos procesos, desafortunadamente aqui en suramerica estan siendo demasiado exigentes con eso, mi novia que esta en Perú tambien le exigen todo en VBA. - Hercasam Mirvil