VBA Access: Asignar ordinal al añadir un nuevo registro 'Al no estar en la lista'

Tengo un pequeño gran problema:

Cuando un valor ingresado en un campo de lista no está disponible, lo añado automáticamente mediante el código:

CurrentDb.Execute "INSERT INTO AUTOR(Autor) VALUES('" & NewData & "')"
Me.lstAutor = DLast("AUTOR", "AUTOR")

Pero sucede que siempre adopta el valor 0 en el ordinal. Necesito que se le asigne a este nuevo valor un valor más respecto del mayor valor de la tabla asociada. Si el último tuvo valor 5, debería adoptar el valor 6. Y así sucesivamente. ¿Cómo puedo hacerlo? El campo en cuestión recibe el nombre de ID.

2 respuestas

Respuesta
2

Si ID es autonumérico, no tienes que hacer nada, ya access te lo incrementa al ejecutar esa SQL.

Si no lo es, puedes usar DMax() en vez de DLast(), o usar DCount() para saber los registros que tienes en tu tabla (si lo haces antes de ejecutar la SQL tendrás que sumarle 1, si lo haces después, no)

¡Gracias!
De todas formas (aunque mucho más embrollo lo que hice) hice algo que me ayudaría a corregir otros errores en caso que el ID sea valor 0 y es que si tiene ese valor al ingresar al registro, automáticamente adopte el valor siguiente al último. De esa forma, añado el registro mediante el código que me habías ayudado también, y al editar ese registro ya añadido, se corrige solo con ese código que también me habías ayudado a hacer. Simplemente adapté un poco la operación a esta necesidad.

Respuesta
-1

Revisa que tu campo Autor no esta definido como entero. Revisa que el valor de tu función AUTOR() sea cadena y no entero

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Rellenar Control mediante combo actualizabe y sin duplicados

Tengo un formulario con un control llamado "Genero" basado en el campo (del mismo nombre) de una tabla. En el control quiero ingresar los géneros de mis libros a través de un cuadro combinado basado en el campo de la tabla. En las propiedades del...
1 respuesta

Actualizar Valor Tabla mediante Cuadro Combinado Access 2007

Tengo un cuadro combinado que selecciona los valores de una tabla. El problema es que puede que el valor no esté introducido en la tabla. Mi pregunta es si se puede añadir el valor a través del cuadro combinado y que se quede registrado en la tabla...
1 respuesta

Añadir valores a un cuadro combinado

Quiero añadir campos a un cuadro combinado de empresas, el cual actualiza otro con la zona de l a empresa correspondiente, lo que quiero es lo siguiente: que al capturar el nombre de una empresa y no exista, me pregunte que si la quiero añadir al...
1 respuesta

Creación de perfiles para usuarios en access

Tengo una base de datos en la que van a ingresar diferentes usuarios y he visto tutoriales donde se crean usuarios y entran a diferentes formularios según sea el caso, lo que yo quiero es que los diferentes usuarios entren al mismo formulario de...
1 respuesta

Calculos con Access

Perdona que te moleste otra vez: La consulta va referida a cálculos con los datos almacenados en Access, como selecciono los valores y opero con los valores que yo quiero. Un ejemplo de calculo que tengo que hacer es el siguiente: en una tabla...
2 respuestas

Evento NotInList

En Access, un Formulario de PEDIDOS, en un Subformulario PEDIDOS_CLIENTES, un combo presenta una lista de clientes (pero presenta apellido y teléfono, ocultando su clave ID), quiero que al no encontrar el nombre que busco me lo añada a la tabla...
1 respuesta

Procedimiento de evento para tomar datos de un registro anterior y traerlos a un registro nuevo

Tengo un formulario que lee datos de una tabla de Vehículos. Dentro de él, tengo un subformulario asociado a una tabla de Cargas de Combustible. Ambas tablas están relacionadas en base a la patente de cada vehículo. La tabla CargasdeCombustible tiene...
1 respuesta

Extraer el un formulario el ultimo registro de un campo de tabla

Tengo un formulario en el que quiero insertar en un cuadro de texto el ultimo registro de un campo de una tabla. He utilizado DLast pero obtengo un valor que no es último y no se como utilizar el campo Id como criterio para obtener ese valor
1 respuesta

Eliminar el ultimo registro agregado a una tabla especifica

Necesito hacer que el ultimo registro agregado a una tabla se pueda eliminar (en caso de estar mal o algo parecido), pero esto es desde un formulario que no tienen ningún vinculo con la tabla, mi pregunta es ¿Qué función utilizo para referirme a esta...
1 respuesta

Consulta Access. Dcount dependiente de otro valor

Tengo una bd de Access para archivar documentos en carpetas. El sistema que tenemos es por carpetas (numeradas con números romanos) y dentro de cada carpeta, se archiva el número de documentos (números ordinales) que quepa en la carpeta física, por...
1 respuesta