MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ativar referência Microsoft Scripting Runtime

    Compartilhe

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  smallville em Qui 11 Dez 2014, 02:09

    Boa noite.

    Estou usando em um computador uma base de dados rodando com o Microsoft Access Runtime 2010 64 bits (não há o Access instalado). Porém, preciso usar/habilitar a Referência Microsoft Scripting Runtime. Como posso realizar esse procedimento?

    Obrigado

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  Noobezinho em Qui 11 Dez 2014, 09:20

    Smallville

    (Cidade do Clark Kent) Razz

    Procure na pasta system32 do windows por scrrun.dll

    Caso o computador sem o Access não tenha essa dll, copia ela do seu pc
    e cole nele.
    Lembro que você deverá registrar essa dll.

    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  smallville em Qui 11 Dez 2014, 10:51

    Oi Noobezinho Smile

    Fiz esse procedimento e registrei, mas mesmo assim não inicia. Dá erro de execução. Qndo eu abro no meu pc, o qual tem o Access instalado, ele funciona normal pois ativei a referencia manualmente pelo Access. Mas, qndo levo para o pc que tem apenas o Access Runtime instalado, dá erro de execução.

    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 27/02/2013

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  percoski em Qui 11 Dez 2014, 12:01

    Me desculpem a intromissão mas a pasta no caso de 64 bits é
    c:\SysWow64




    Um abraço


    Felicidades

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  smallville em Qui 11 Dez 2014, 13:17

    Oi percoski, fique à vontade.
    Fiz o procedimento copiando dessa pasta mesmo, mas não deu certo também.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  Noobezinho em Qui 11 Dez 2014, 13:29

    Smallville


    Copie esse código para um módulo básico:


    Código:


    Function CheckRef()

    Dim i As Integer
    'Primeiro, veremos se existe a dll no computador
    If Len(Dir("C:\Windows\system32\scrrun.dll")) = 0 Then
       MsgBox "O arquivo [scrrun.dll] não existe neste computador" & vbCrLf & _
       "Baixe o arquivo e execute a aplicação novamente", vbCritical, "Inexistência da DLL"
       'DoCmd.Quit
      
    End If

    For i = 1 To Application.References.Count
            If Application.References.Item(i).Name = "Scripting" Then
               'Você  pode deletar a linha abaixo, caso queira.
               MsgBox "A referência já está ativada", vbInformation, "Referências!"
               Exit Function
          
            End If
    Next i
         Application.References.AddFromFile "C:\Windows\system32\scrrun.dll"
         MsgBox "A referência foi Ativada", vbInformation, "Referência"
    End Function


    No  evento ao abrir do primeiro formulário que se abre ao executar o aplicativo ou na macro autoexec, coloque:

    call CheckRef

    ou na macro:

    =CheckRef()

    Atente para o que o nosso amigo escreveu:
    No win 64   deve ser  c:\Windows\SysWow64

    ou simplesmente:
    c:\SysWow64

    Modifique no código e diga-nos qual é  o caminho correto no win 64, ok?



    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  smallville em Qui 11 Dez 2014, 14:52

    Oi Noobezinho, você é o cara. Deu certo demais. Obrigado

    Agora só mais dúvida:

    Estou usando a solução deste post (http://www.maximoaccess.com/t11467-resolvidoanexar-arquivos-para-determinada-pasta-criando-a-pasta-com-o-cod-de-identificacao-e-criando-hiperlink-para-a-pasta), por isso precisava da ativação da referência. Porém, quando executo ele não abre a caixa de diálogo e já pula direto para a mensagem:
    MsgBox "Voce não selecionou nenhum arquivo!", vbInformation, _
    "UpLoad Cancelado"

    Ele não abre a caixa de diálogo. Fiz a alteração no início do código para:
    Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

    Mas, mesmo assim não dá certo.

    Como adaptar para funcionar?

    Agradeço desde já sua atenção.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  Noobezinho em Qui 11 Dez 2014, 15:17

    Já fez uma depuração do código?

    Se não sabe como, veja ali embaixo na minha assinatura.

    Qualquer coisa, retorne

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  smallville em Qui 11 Dez 2014, 15:25

    Oi, fiz a depuração.

    O código antes tava dando erro pois constava esse código:
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

    Aí eu modifiquei para:
    Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

    Ele tenta abrir a janela do windows para selecionar o arquivo mas não consegue, e aí pula direto para a mensagem dizendo que não foi selecionado nenhum arquivo e tal.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  Noobezinho em Qui 11 Dez 2014, 15:38

    SmallVille

    Como não uso o Win64, deve ter coisas que desconheço e portanto, não poderei ajudar melhor.
    Sugiro que dê como resolvido esse tópico e abra outro com essa dúvida:
    Caixa de diálogo no win64

    Creio que assim, mais pessoas poderão ajudar.

    Abraços

    Noob





    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    smallville
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 18/08/2013

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  smallville em Qui 11 Dez 2014, 15:51

    Tá certo. Vou fazer isso. Muito obrigado!!!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2503
    Registrado : 29/06/2012

    Re: [Resolvido]Ativar referência Microsoft Scripting Runtime

    Mensagem  Noobezinho em Qui 11 Dez 2014, 15:53

    Ótimo ! Wink

    Boa sorte !


    Noob




    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qua 07 Dez 2016, 20:14