** 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

notinlist

 Responder Responder
Autor
Mensaje
Nanipepe Ver desplegable
Nuevo
Nuevo


Unido: 11/Junio/2009
Localización: España
Estado: Sin conexión
Puntos: 6
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Nanipepe Cita  ResponderRespuesta 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: 6
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Nanipepe Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 11 horas 49 minutos a las 12:11
Pues veo que nadie tiene una solución

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable