Buenos dias

Tengo este código con un comportamiento singular:

DoCmd.SetWarnings False 'Esto deshabilita los mensajes de sistema

Dim VaResp As Integer

Dim VaNfac As String

VaNfac = Forms!FrmHistoricoSinRestricciones!numfactura

    VaResp = MsgBox("Este proceso actualiza los datos de cliente/proveedor en la factura actual. ¿Desea continuar?", vbQuestion + vbYesNo, "CONFIRMAR")

            If VaResp = vbYes Then

                DoCmd.OpenQuery "ConCamCliHisSinRes"

                DoCmd.RunSQL "UPDATE TbHisCabFac INNER JOIN TbCliProv ON TbHisCabFac.HisCabCodCli = TbCliProv.MaeCod SET TbHisCabFac.HisCabMaeRazSoc = [MaeRazSoc], TbHisCabFac.HisCabMaeNif = [MaeNif], TbHisCabFac.HisCabMaeDir = [MaeDir], TbHisCabFac.HisCabMaeCodPos = [MaeCodPos], TbHisCabFac.HisCabMaePob = [MaePob], TbHisCabFac.HisCabMaePro = [MaePro] WHERE (((TbHisCabFac.HisCabNumFac)=[Formularios]![FrmHistoricoSinRestricciones]![numfactura]) AND ((TbHisCabFac.HisCabCodCli)=[Formularios]![FrmHistoricoSinRestricciones]![SubTbHisCabFac].[Formulario]![HisCabCodCli]))"

         DoCmd.Close acForm, "FrmHistoricoSinRestricciones"

         DoCmd.OpenForm "FrmHistoricoSinRestricciones"

         Forms!FrmHistoricoSinRestricciones!numfactura = VaNfac

    MsgBox "Se han modificado los datos de cliente/proveedor de la factura actual"

        Else

            MsgBox "Ha seleccionado cancelar el proceso, no se han producido cambios"

            'Me.Undo

            Exit Sub

            End If

DoCmd.SetWarnings True 'Esto habilita los mensajes de sistema"

desde código no lanza ni la línea DoCmd.OpenQuery "ConCamCliHisSinRes"

 Ni la línea   DoCmd.RunSQL "UPDATE que hacen lo mismo, la he puesto por probar. 

No se dónde tengo el error ya que la consulta llamando fuera de código funciona perfectamente.

Un saludo y gracias anticipadas