[Resolvido]Ativar referência Microsoft Scripting Runtime

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

Smallville

(Cidade do Clark Kent)

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

Oi Noobezinho

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.

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




Um abraço


Felicidades

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

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

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

Agora só mais dúvida:

Estou usando a solução deste post (http://maximoaccess.forumeiros.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.

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

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

Qualquer coisa, retorne

Noob

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.

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

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

Ótimo !

Boa sorte !


Noob