Autor Tema: Al No Estar En La Lista (Leído 1645 veces)

lilianital1 · « **en:** Sábado 1 de Julio de 2006, 18:51 »

hola a todos tengo un pequeño lio con un cuadro combinado y el evento al no estar en la lista, la idea es que si no esta en la lista me abra un formulario en el cual yo pueda registrar en mi caso al nuevo proveedor bien tengo el sig codigo pero no me esta funcionando si alguien lo entiende y me puede ayudar les agradeceria resto soy muy novata en este tema.
este es el codigo que tengo en el cuadro combinado en el evento al no estar en la lista.
Private Sub DOCUMENTO_PROVEEDOR_NotInList(NewData As String, Response As Integer)
Dim msg As String
msg = "Id Proveedor ´" & NewData & "´ no esta en la lista"
msg = msg & " Queres Añadirlo?"
If MsgBox(msg, vbQuestion Or vbYesNo) = vbYes Then
NewData = NewData
DoCmd.OpenForm "Proveedor1", , , , , acDialog
If Not DELETE_CANCEL Then
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
Else
Response = acDataErrContinue
End If
End Sub
___________________________________

y este en el formulario proveedores1
Private Sub Form_Unload(Cancel As Integer)
Dim ctl As control
If Me.OpenArgs = "nuevo" Then
Set ctl = Forms!Subformulario_VALORACION_MECANICA!DOCUMENTO_PROVEEDOR
DoCmd.SelectObject acForm, Subformulario_VALORACION_MECANICA
ctl = Me!DOCUMENTO_PROVEEDOR

ctl.Requery
ctl.SetFocus
End If
End Sub

bien si alguien me puede ayudar ok gracciiiiiiassssss.

SoloCodigo

Autor Tema: Al No Estar En La Lista (Leído 1645 veces)

lilianital1

Al No Estar En La Lista