Access - Ayuda urgente con código....

Hola a todos.

Tengo el siguiente procedimiento para añadir datos a una tabla cuando escribo un nombre que no está en una lista:

Dim tabla As Recordset
intreturn = MsgBox("El Grupo de Empresa " & strgrupo & " no está dado de alta." & "¿Desea añadirlo?", vbQuestion + vbYesNo)
If intreturn = vbYes Then
Set tabla = CurrentDb.OpenRecordset("GRUPO_EMPRESA")
tabla.AddNew
tabla!GRUPO_EMPRESA = Me.Cuadro_combinado46.Text
tabla.Update
tabla.Close
Set tabla = Nothing

El nombre me lo añade, pero al final del proceso, me saca el error de que el elemento no está en la lista. ¿Que estoy haciendo mal?.

He cambiado la propiedad notinlist a true para que me deje hacer esto. Yo supongo que será porque el dato no está en el combo aunque si está en la tabla, vamos, que no se actualiza.

¿Alguien puede ayudarme?.

Muchas gracias por adelantado.

Mat.

Te sugiero que actualizes la lista con el RowSource y el Requery despues de tabla.Update, para que el elemento que acabas de agregar se actualize y sea reconocido en la lista.

Muchas gracias por tu respuesta.

He puesto la instruccion cuadro_combinado46.requery y me dice que "Debe guardar el campo activo antes de ejecutar la acción NuevaConsulta".

¿Que quiere decir esto?.

Muchas gracias.

Mat.

despues de tabla.update mete esta linea para obligar a aceptar el update

CommitTrans

espero que te sirva.