** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Dudas ya consultadas y Resueltas
  Mensajes nuevos Mensajes nuevos RSS - notinlist
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradonotinlist

 Responder Responder
Autor
Mensaje
Nanipepe Ver desplegable
Nuevo
Nuevo


Unido: 11/Junio/2009
Localización: España
Estado: Sin conexión
Puntos: 17
Enlace directo a este mensaje Tema: notinlist
    Enviado: 23/Octubre/2019 a las 09:28
Supongo que este tema ya se ha discutido múltiples veces, pero no encuentro la solución que necesito
Tengo un formulario con un combobox para elegir un cliente, si no está en la lista, abro otro formulario pero no consigo que al darlo de alta, el control original se actualice y lo muestre
os pongo el código y me decís donde está el error

Private Sub EMPRESA_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue
    If fntERRORES(707, "EMPRESA SUBCONTRATISTA", 23) = vbYes Then
        strFORMORIGEN = "SUBC_SUBCONTRATOS_ALTR"
        str0 = NewData
        Response = acDataErrContinue
        subABREFORMS "SUBC_EMPRESAS_ALTR", 0, "ALTA"
    Else
        Exit Sub
    End If
End Sub

 y en el formulario que de alta la empresa

    If strFORMORIGEN = "SUBC_SUBCONTRATOS_ALTR" Then
        Forms!SUBC_SUBCONTRATOS_ALTR.Requery ' OJO HAY QUE ARREGLARLO
    Else
        Forms!SUBC_EMPRESAS_TAB.Requery ' ACTUALIZA SI ES NECESARIO EL FORMULARIO BASE
    End If

gracias

Arriba
Nanipepe Ver desplegable
Nuevo
Nuevo


Unido: 11/Junio/2009
Localización: España
Estado: Sin conexión
Puntos: 17
Enlace directo a este mensaje Enviado: 14/Noviembre/2019 a las 12:11
Pues veo que nadie tiene una solución

Arriba
guarracuco Ver desplegable
Moderador
Moderador


Unido: 24/Abril/2004
Localización: EEUU
Estado: Sin conexión
Puntos: 3239
Enlace directo a este mensaje Enviado: 26/Noviembre/2019 a las 15:05
Hola. Los cuadros de lista desplegables tienen un evento NotInList, que te permite crear un proceso para insertar un registro al origen del mismo.
Este enlace puede orientarte:https://docs.microsoft.com/en-us/office/vba/api/access.combobox.notinlist

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable