MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Erro de copilação

    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Erro de copilação Empty [Resolvido]Erro de copilação

    Mensagem  DEISON 1/3/2016, 02:10

    Boa noite

    Estou precisando de uma ajuda.

    Recentemente eu copiei um código e esta dando o seguinte erro em meu BD.
    Estou usando o Access 2013.

    Microsoft Visual Basic for Applications
    Erro de copilação:
    O tipo definido pelo usuário não foi definido.

    O erro aparece nesta linha de comando.

    "Dim fd As Office.FileDialog"

    Desde já agradeço.



















    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  FabioPaes 1/3/2016, 15:47

    Poste o Código, mas ja adianto que vc esta chamando algo que não definiu...
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Erro de copilação Empty Erro de copilação

    Mensagem  DEISON 1/3/2016, 15:50

    Segue o código.
    Código:
    Public Function fncLocalizarArquivo()
    Dim fd As Office.FileDialog
    On Error GoTo TrataErro
    Set fd = Application.FileDialog(msoFileDialogOpen)
    With fd
        With .Filters
            .Clear
            .Add "Banco de Dados", "*.accdb", 1
            .Add "Todos", "*.*", 2
        End With
        .Title = "Selecionar Banco de Dados)"
        .AllowMultiSelect = False
        .InitialFileName = "c:\"
        .InitialView = msoFileDialogViewPreview
        If .Show Then
            fncLocalizarArquivo = .SelectedItems(1)
        End If
    End With
    sair:
        Exit Function
    TrataErro:
        fncLocalizarArquivo = ""
        Resume sair:
    End Function
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  philipp.moreira 1/3/2016, 15:59

    Creio que o erro esteja ocorrendo, pois, o projeto perdeu a referência de alguma biblioteca necessária para utilização da referência "Office.FileDialog".
    Ao abrir o editor VBA, no menu superior em Ferramentas >> Referências, aparece algumas das opções com a palavra [Ausente] na frente?
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Erro de copilação Empty Erro de copilação

    Mensagem  DEISON 1/3/2016, 16:25

    A palavra referencias nem tem como clicar, ela fica invisible.
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  philipp.moreira 1/3/2016, 16:27

    Pare o debug, e tente de novo! Enquanto está em execução ele não permite mesmo editar as referências.
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Erro de copilação Empty Erro de copilação

    Mensagem  DEISON 1/3/2016, 16:32

    A opção "Office.FileDialog" não aparece para mim.
    Como faço para adiciona ao system32?
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  philipp.moreira 1/3/2016, 16:44

    Dando uma pesquisada no google. Tenta da uma lida nessa página:

    https://msdn.microsoft.com/pt-br/library/office/ff835934.aspx
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  FabioPaes 1/3/2016, 17:36

    Veja se não é essa Referência:

    Abra o Modulo Procura Arquivos, clique em: Ferramentas> Referências.  Na tela que abrir Marque a opção: Microsoft Office 15.0 Object library Aperte ok
    [Resolvido]Erro de copilação 33l0e3o

    Tava com um erro parecido aqui em um módulo que procurava onde salvar o Backup... Resolvi dessa forma. Provavelmente é este o problema!
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Erro de copilação Empty Erro de copilação

    Mensagem  DEISON 1/3/2016, 19:27

    Muito Obrigado,
    Deu certinho.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  FabioPaes 1/3/2016, 21:51

    Bacana!, informe qual das dicas deu certo para que caso alguem tenha o mesmo problema ja vá direto a Solução!!!

    Conteúdo patrocinado


    [Resolvido]Erro de copilação Empty Re: [Resolvido]Erro de copilação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/10/2024, 04:33