Imprimir página | Cerrar ventana

notinlist

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Dudas ya consultadas y Resueltas
Descripción del foro: Programa Gratuito Foro OFFline
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84769
Fecha de impresión: 24/Septiembre/2023 a las 05:12


Tema: notinlist
Publicado por: Nanipepe
Asunto: notinlist
Fecha de publicación: 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


Respuestas:
Publicado por: Nanipepe
Fecha de publicación: 14/Noviembre/2019 a las 12:11
Pues veo que nadie tiene una solución

Publicado por: guarracuco
Fecha de publicación: 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


Imprimir página | Cerrar ventana