Ayuda a principiante!!

Alejandro
17 de Marzo del 2004
Agradeceria mucho la ayuda que me puedan dar, aclaro que no se ni el 1% de access pero trato de aprender, mi problema es:

Tengo un Formulario llamado"Ingresos Despachos" y el cuadro combinado es "Proveedor", que al ingresar datos y no estar en la lista abre el Formulario "Proveedor" con su campo de datos llamado "Nombre".
Esta rutina la copie de "Soluciones.mdb" pero, para apurar la carga yo necesito que el dato que escribo en el cuadro combinado "Proveedor" y que no esta en la lista y presentarme el cuadro de dialogo, yo acepto abrir el form para agregar a la lista, se escriba en "Nombre" lo que antes ya escribi en el cuadro combinado, desde ahi yo corrijo, adhiero etc y acepto.

Private Sub Proveedor_NotInList(NewData As String, Response As Integer)
Dim entProveedorNuevo As Integer, entNombreTruncado As Integer, cadTítulo As String, entCuadroMensaje As Integer
cadTítulo = "El Proveedor no está en la lista"
entCuadroMensaje = vbYesNo + vbQuestion + vbDefaultButton1
entProveedorNuevo = MsgBox("¿Desea agregar un Proveedor nuevo?", entCuadroMensaje, cadTítulo)
If entProveedorNuevo = vbYes Then
DoCmd.RunCommand acCmdUndo
cadTítulo = "Nombre demasiado largo"
entCuadroMensaje = vbOKOnly + vbExclamation
If Len(NewData) > 255 Then
entNombreTruncado = MsgBox("Los nombres del Proveedor no pueden ser más largos de " _
& "255 caracteres. El nombre que introdujo se truncará.", _
entCuadroMensaje, cadTítulo)
NewData = Left(NewData, 255)
End If
DoCmd.OpenForm "Proveedor", acNormal, , , acAdd, acDialog, NewData
Response = acDataErrAdded
End If
End Sub

Desde ya muchas gracias a quien pueda ayudarme
Saludos !