[Resolvido]Referêcias ausentes

Retirei este código do repositório de VBA
Quando o apliquei ao projecto deu erro na linha 2 "REF"

Option Compare Database
Function Referencias()
For Each REF In References 'Busca todas as referencias que utilizamos na BD
Set FS = CreateObject("Scripting.FileSystemObject")
FS.CopyFile REF.FullPath, CurrentProject.Path & "\" Copia desde a origem à Pasta da BD
Next REF
End Function
Marquei a referência Microsoft Scripting Runtime e não resultou.

Utilizo o Access 2007 e o windows 7

Luís Antunes

Ola;

Antes do For Each, insira;

Código:


Dim ref
Dim fs As Object

Só vai copiar para o local do banco, as referencias marcadas (com um visto, em Ferramentas/Referencias).

J Paulo

Funcionou na perfeição

Grato pela ajuda

Luís Antunes

Fico feliz abraço.