MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Referências em Falta

    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    Referências em Falta Empty Referências em Falta

    Mensagem  vieirasoft em 15/6/2011, 12:05

    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


    Última edição por vieirasoft em 15/6/2011, 13:17, editado 2 vez(es)

      Data/hora atual: 4/12/2020, 14:57