Lunes 23 de Diciembre de 2024, 04:41
SoloCodigo
Bienvenido(a),
Visitante
. Por favor,
ingresa
o
regístrate
.
¿Perdiste tu
email de activación?
Inicio
Foros
Chat
Ayuda
Buscar
Ingresar
Registrarse
SoloCodigo
»
Foros
»
Bases de Datos
»
MS Access
(Moderador:
F_Tanori
) »
Al No Estar En La Lista
« anterior
próximo »
Imprimir
Páginas: [
1
]
Autor
Tema: Al No Estar En La Lista (Leído 1662 veces)
lilianital1
Nuevo Miembro
Mensajes: 1
Al No Estar En La Lista
«
en:
Sábado 1 de Julio de 2006, 18:51 »
0
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.
Tweet
Imprimir
Páginas: [
1
]
« anterior
próximo »
SoloCodigo
»
Foros
»
Bases de Datos
»
MS Access
(Moderador:
F_Tanori
) »
Al No Estar En La Lista