Cómo utilizar un Autonumérico con año en Microsoft Access

Definición de un campo " Autonumérico " en las tablas de Microsoft Access base de datos puede ayudar a gestionar sus datos en el futuro cuando necesite recuperar el uso de consultas . Un campo " Autonumérico " automáticamente aumentará en uno por cada nueva fila y no puede ser cambiado. Este campo se conservará una única fila en una tabla de base de datos. Normalmente, un campo " Autonumérico " se iniciará con el número uno por defecto. Si desea iniciar el campo con un año como el 2000 , es necesario ejecutar un par de preguntas antes de que usted comience a agregar los datos a la tabla . Instrucciones
1

lanzamiento Microsoft Access, haga clic en la pestaña " Crear" y haga clic en "Tabla ". Haga clic en la primera fila , cambie "ID " en " YearColumn " y establecer el "Tipo de datos " como " Autonumérico . " haga clic en la siguiente fila y escriba" TextField "para crear un segundo campo y presionar" Enter ". Cierre la tabla haciendo clic en la" x "en la esquina derecha. Tipo " myYearTable " cuando se le solicite para dar a su mesa un nombre.
2

clic en la pestaña " Herramientas de base de datos" y haga clic en "Visual Basic " para iniciar el Editor de Visual Basic . Haga clic en " Insertar> Módulo " para añadir un nuevo módulo de código
3

Agregue el código siguiente para crear un nuevo procedimiento sub : .

CreateYearTable Sub Private ()
4

Copia y pega el código siguiente para crear una variable para almacenar la instrucción SQL y el otro para definir el año de partida de la mesa :

strSQL As StringDim startingYear As String
5

Copia y pega el código siguiente para definir el año de inicio como " 2000 " para el campo " Autonumérico " y ejecutar un "INSERT INTO" consulta:

startingYear = " 2000 " ; strSQL = "INSERT INTO myYearTable ( YearColumn ) " strSQL = strSQL & " SELECT " y ( startingYear ) & " 'AS Expr1 " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL )

6

Añada el siguiente código para eliminar los datos que insertó en el paso anterior :

strSQL = " Delete" strSQL = strSQL & " dE myYearTable " strSQL = strSQL y " DONDE YearColumn =" "y ( startingYear ) &" ' ; " DoCmd.SetWarnings FalseDoCmd.RunSQL ( strSQL ) MsgBox ( " Done " )
7

Press "F5 " para ejecutar el procedimiento y volver a Microsoft Access. Haga doble clic en " myYearTable " para abrir la mesa. Tipo de "Datos" abajo " Campo de texto " y presiona " Enter" para ver el primer año " Autonumérico " como " 2001 ". Ingresar más texto en las siguientes filas para incrementar el año en uno por cada nueva fila.