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]Referêcias ausentes

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 107
    Registrado : 05/04/2016

    [Resolvido]Referêcias ausentes

    Mensagem  Luís Antunes em Ter 08 Ago 2017, 18:34

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Referêcias ausentes

    Mensagem  JPaulo em Qua 09 Ago 2017, 09:34

    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).


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 107
    Registrado : 05/04/2016

    Referêcias ausentes

    Mensagem  Luís Antunes em Qua 09 Ago 2017, 12:47

    J Paulo

    Funcionou na perfeição

    Grato pela ajuda

    Luís Antunes
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9517
    Registrado : 04/11/2009

    Re: [Resolvido]Referêcias ausentes

    Mensagem  JPaulo em Qua 09 Ago 2017, 13:07

    Fico feliz abraço.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 19 Set 2017, 12:47