Access - DAR DE ALTA UN REGISTRO DE OTRA TABLA

 
Vista:

DAR DE ALTA UN REGISTRO DE OTRA TABLA

Publicado por Manuel (1 intervención) el 16/12/2001 13:20:07
Hola, ¿Podrían ayudarme con el siguiente problema?
En un informe con un cuadro combinado, desearía que al introducir un valor fuera de la lista se abriese la tabla correspondiente, pudiese introducir un nuevo registro con dicho valor, cerrar la tabla y que inmediatamente se actualice la lista del cuadro combinado.
¿Alguien sabe como hacerlo? Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:DAR DE ALTA UN REGISTRO DE OTRA TABLA

Publicado por Juan Amoros (489 intervenciones) el 16/12/2001 15:37:21
Manuel, por si acaso te envío el código a través de LWP.
El nombre de los campos debes de cambiarlos aquí en el código. Pon el nombre de tus campos y a ¡FUNCIONAR!.

Private Sub OPBAN_NotInList(DatosNuevos As String, Respuesta As Integer)

' Agregar un Banco nuevo escribiendo un nombre en el cuadro combinado OPBAN.

Dim entBancoNuevo As Integer, entNombreTruncado As Integer, cadTítulo As String, entCuadroMensaje As Integer

' Mostrar un cuadro de mensaje preguntado al usuario si desea agregar un nuevo Banco.
cadTítulo = "El Banco no está en la lista"
entCuadroMensaje = vbYesNo + vbQuestion + vbDefaultButton1
entBancoNuevo = MsgBox("¿Desea agregar un Banco nuevo?", entCuadroMensaje, cadTítulo)

If entBancoNuevo = vbYes Then
' Quitar el nombre nuevo del cuadro combinado OPBAN para que el usuario
' pueda volver a consultar el control al volver al formulario.
DoCmd.RunCommand acCmdUndo

' Mostrar cuadro de mensaje y ajustar la longitud del valor introducido
' en el cuadro combinado IdCategoría.
cadTítulo = "Nombre demasiado largo"
entCuadroMensaje = vbOKOnly + vbExclamation
If Len(DatosNuevos) > 30 Then
entNombreTruncado = MsgBox("Los nombres de Bancos no pueden ser más largos de " _
& "30 caracteres. El nombre que introdujo se truncará.", _
entCuadroMensaje, cadTítulo)
DatosNuevos = Left(DatosNuevos, 30)
End If

' Abrir el formulario Agregar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar