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