MaximoAccess

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

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
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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.
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 266
    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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!!!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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: Sex 23 Jun 2017, 02:38