Referências em Falta

As referências ou a ausência delas são um problema. Este código resolve isso. Não esquecer de marcar o "Microsoft Scripting Object".

Um botão de comando

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

Private Sub Comando0_Click()
Call Referencias
End Sub