MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro em Tempo de execução

    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 01/04/2016

    Erro em Tempo de execução Empty Erro em Tempo de execução

    Mensagem  raijeweb em 3/3/2020, 14:11

    Olá alguém sabe me informar oque é e porque está dando o seguinte erro:

    erro em tempo de execução '-214702489-4(800770002); o 'método 'run' do objeto 'iwshell3' falhou

    Aguardando
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    Erro em Tempo de execução Empty Re: Erro em Tempo de execução

    Mensagem  DamascenoJr. em 3/3/2020, 22:37

    Poderia dar mais dicas? O que está tentando fazer quando isto ocorre? Qual o código utilizado?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 01/04/2016

    Erro em Tempo de execução Empty Re: Erro em Tempo de execução

    Mensagem  raijeweb em 3/3/2020, 22:52

    o erro se da do código do botão enviar: na lina destacada em azul
    'MsgBox "Os tickets foram copiados para a area de transferencia do windows.", 64, "Exito"

    Me.code.SetFocus
    SendKeys ("^C")
    Dim Arquivo, strSystem, WindowsExplorer, caminho, formatacao, Linha, i
    caminho = CurrentProject.Path & "\" & Me.id & ".txt"
    If Not Me.Form.NewRecord Then
    Set strSystem = CreateObject("Scripting.FileSystemObject") ' Pegando a Dll OU SEJA api do windows
    If Not strSystem.FileExists(caminho) Then
    Set Arquivo = strSystem.createtextfile(caminho, -1) 'criou o arquivo
    Linha = Split(Me.generate_code, "
    ")
    For i = 0 To 30
    Arquivo.WriteLine Linha(i)
    Next
    Arquivo.Close 'salvando os dados
    Set WindowsExplorer = CreateObject("Wscript.Shell")
    WindowsExplorer.Run caminho, 3, 0
    Set WindowsExplorer = Nothing
    Set strSystem = Nothing

    Else
    Set WindowsExplorer = CreateObject("Wscript.Shell")
    WindowsExplorer.Run caminho, 3, 0
    Set WindowsExplorer = Nothing
    Set strSystem = Nothing
    End If
    Else
    MsgBox "Os tickets foram copiados para a area de transferencia do windows.", 64, "Exito"

    MsgBox "Nao foi selecionado nenhuma remessa", vbCritical, "Erro"
    End If

    Shell ("C:\Cartão-Pré-Pago\winbox v2.2.18.exe")
    End Sub

      Data/hora atual: 1/12/2020, 11:40