Carlos Eduardo Quinalia

Boa tarde, Estou com esse erro quando o usuário vai finalizar um registro, essa finalização consiste em chamar uma sheet (um form padronizado) e depois gera um pdf. Acontece que esse erro aparece e encerra o programa mas o registro é finalizado corretamente e as informações também são inseridas corretamente no BD .mdb e o arquivo pdf também é gerado. Agradeço qualquer tipo de ajuda. Obrigado.

Resolvido, foi a atualização para Windows 10 que restringiu a permissão.

Boa tarde, Preciso de uma ajuda, o sistema estava funcionando normalmente, tem uma rotina que a pessoa salva os dados e ele após salvar gera um email automatico, ou seja, abre o outlook já com os destinatários e envia, agora não está fazendo mais, após salvar apararece "erro tempo de execução 70 "Permissão Negada" e depois não gera o email e abre o formulário no excel que seria o que deveria estar no email. O que pode ser ? segue código que está acontecendo 'Registrar Status do Contrato como "Aprovado" se todos os documentos forem recebidos sql = " UPDATE 02_Contratos SET Status_Contrato = 'APROVADO', Data_Status_Contrato = #" & data & "#, Resp_Status_Contrato = '" & Range("w2").Value & "' WHERE Designação_da_Frota= '" & Cells(12 + i, 3).Value & "' and Número_do_Contrato = '" & Cells(12 + i, 4).Value & "' and SdA = '" & Cells(12 + i, 6).Value & "' and (AS_Emitido='Aprovado' and AS_Aprovado_Vendas='Aprovado' and AS_Aprovado_Controlling='Aprovado' and Cond_Comerciais='Aprovado' and Sda_Aprovada='Aprovado' and Contrato_Rubricado_Recebido='Aprovado' and Compr_Residencia='Aprovado' and Doc_Pessoal='Aprovado' and Mail_com_Contrato_OK='Aprovado' and Termo_de_Autorização='Aprovado' and Solic_Criação_Conta='Aprovado' and Nr_Solic_Criação_Conta is not null and Contas_Criadas='Aprovado' and Conta_Mainframe is not null and Conta_SAP is not null and Status_Contrato is null or Status_Contrato not like '%provado')" cx.Conectar banco.Open sql, cx.Conn cx.Desconectar 'Registrar Status do Contrato como "Incompleto" algum documento estiver em branco sql = " UPDATE 02_Contratos SET Status_Contrato = 'INCOMPLETO', Data_Status_Contrato = #" & data & "#, Resp_Status_Contrato = '" & Range("w2").Value & "' WHERE Designação_da_Frota= '" & Cells(12 + i, 3).Value & "' and Número_do_Contrato = '" & Cells(12 + i, 4).Value & "' and SdA = '" & Cells(12 + i, 6).Value & "' and (AS_Emitido is null or AS_Aprovado_Vendas is null or AS_Aprovado_Controlling is null or Cond_Comerciais is null or Sda_Aprovada is null or Contrato_Rubricado_Recebido is null or Compr_Residencia is null or Doc_Pessoal is null or Mail_com_Contrato_OK is null or Termo_de_Autorização is null or Solic_Criação_Conta is null or Nr_Solic_Criação_Conta is null or Contas_Criadas is null or Conta_Mainframe is null or Conta_SAP is null)" cx.Conectar banco.Open sql, cx.Conn cx.Desconectar 'Registrar Status do Contrato como "Reprovado" se um dos documentos for reprovado sql = " UPDATE 02_Contratos SET Status_Contrato = 'REPROVADO', Data_Status_Contrato = #" & data & "#, Resp_Status_Contrato = '" & Range("w2").Value & "' WHERE Designação_da_Frota= '" & Cells(12 + i, 3).Value & "' and Número_do_Contrato = '" & Cells(12 + i, 4).Value & "' and SdA = '" & Cells(12 + i, 6).Value & "' and (AS_Emitido='Reprovado' or AS_Aprovado_Vendas='Reprovado' or AS_Aprovado_Controlling='Reprovado' or Cond_Comerciais='Reprovado' or Sda_Aprovada='Reprovado' or Contrato_Rubricado_Recebido='Reprovado' or Compr_Residencia='Reprovado' or Doc_Pessoal='Reprovado' or Mail_com_Contrato_OK='Reprovado' or Termo_de_Autorização='Reprovado' or Solic_Criação_Conta='Reprovado' or Contas_Criadas='Reprovado')" cx.Conectar banco.Open sql, cx.Conn cx.Desconectar 'montar email para consultor If campos > 0 And Cells(12 + i, 12).Value = "REPR" Or Cells(12 + i, 13).Value = "APR" Or Cells(12 + i, 14).Value = "APR" Or Cells(12 + i, 15).Value = "APR" Or Cells(12 + i, 16).Value = "APR" Or Cells(12 + i, 17).Value = "APR" Or Cells(12 + i, 18).Value = "APR" Or Cells(12 + i, 19).Value = "APR" Or Cells(12 + i, 20).Value = "APR" Or Cells(12 + i, 12).Value = "REPR" Or Cells(12 + i, 13).Value = "REPR" Or Cells(12 + i, 14).Value = "REPR" Or Cells(12 + i, 15).Value = "REPR" Or Cells(12 + i, 16).Value = "REPR" Or Cells(12 + i, 17).Value = "REPR" Or Cells(12 + i, 18).Value = "REPR" Or Cells(12 + i, 19).Value = "REPR" Or Cells(12 + i, 20).Value = "REPR" Then 'Sheets("Tabelas").Range("ER16").Value = Sheets("Documentação").Cells(12 + i, 9).Value Sheets("Tabelas").Range("ES16").Value = Sheets("Documentação").Cells(12 + i, 10).Value Sheets("Tabelas").Range("ET16").Value = Sheets("Documentação").Cells(12 + i, 11).Value Sheets("Tabelas").Range("EU16").Value = Sheets("Documentação").Cells(12 + i, 12).Value Sheets("Tabelas").Range("EV16").Value = Sheets("Documentação").Cells(12 + i, 13).Value Sheets("Tabelas").Range("EW16").Value = Sheets("Documentação").Cells(12 + i, 14).Value Sheets("Tabelas").Range("EX16").Value = Sheets("Documentação").Cells(12 + i, 15).Value Sheets("Tabelas").Range("EY16").Value = Sheets("Documentação").Cells(12 + i, 16).Value Sheets("Tabelas").Range("EZ16").Value = Sheets("Documentação").Cells(12 + i, 17).Value Sheets("Tabelas").Range("FA16").Value = Sheets("Documentação").Cells(12 + i, 18).Value Sheets("Tabelas").Range("FB16").Value = Sheets("Documentação").Cells(12 + i, 19).Value Sheets("Tabelas").Range("FC16").Value = Sheets("Documentação").Cells(12 + i, 20).Value Sheets("Tabelas").Range("FD16").Value = Sheets("Documentação").Cells(12 + i, 25).Value Sheets("Tabelas").Range("FE16").Value = Sheets("Documentação").Cells(12 + i, 26).Value Sheets("Tabelas").Range("s27").Value = Sheets("Documentação").Cells(12 + i, 6).Value Sheets("Tabelas").Range("s29").Value = Sheets("Documentação").Cells(12 + i, 3).Value Sheets("Tabelas").Range("u23").Value = Sheets("Documentação").Cells(12 + i, 7).Value 'Trocar APR e REPR por Aprovado e Reprovado teste222 = Sheets("Tabelas").Range("ES16").Value For y = 1 To 10 If Sheets("Tabelas").Cells(16, 149 + y).Value = "APR" Or Sheets("Tabelas").Cells(16, 149 + y).Value = "REPR" Then Sheets("Tabelas").Cells(16, 149 + y).Value = Sheets("Tabelas").Cells(16, 149 + y).Value & "OVADO" End If Next ' Criar e-mail informando consultor sobre andamento da documentação Sheets("Tabelas").Select sPath = "C:\Temp"