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 no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Fabricio Rosa
    Fabricio Rosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/02/2012

    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Mensagem  Fabricio Rosa 28/2/2012, 22:00

    Boa Tarde amigos, quando clico no botão "Selecionar Novo Destino" do frmBackup,
    ele me retorna um erro "O tipo definido pelo usuário não foi definido"

    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

    Public Function fncLocalizarPasta(strTitulo As String)"o erro esta nessa linha o que fazer?"
    Dim fd As Office.FileDialog
    On Error GoTo trataerro
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
    .AllowMultiSelect = False
    .ButtonName = "Selecionar"
    .InitialFileName = "c:\"
    .InitialView = msoFileDialogViewList
    '.Title = "Selecione a pasta de destino"
    .Title = strTítulo
    End With
    If fd.Show = -1 Then
    fncLocalizarPasta = fd.SelectedItems(1)
    End If
    sair:
    Exit Function
    trataerro:
    fncLocalizarPasta = ""
    Resume sair:
    End Function

    ....
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty Re: [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Mensagem  criquio 28/2/2012, 22:12

    Olá! O exemplo do Avelino funciona normalmente? Se sim, verifique as referências do exemplo e compare com as suas para ver se falta referenciar alguma. Caso o erro esteja no exemplo, verifique as versões das referências. Pode ser que seja necessário alterar alguma, por exemplo do Access 2007 para o access 2003 ou vice versa.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Fabricio Rosa
    Fabricio Rosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/02/2012

    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Mensagem  Fabricio Rosa 28/2/2012, 22:17

    Mestre criquio, usei o exemplo no meu BD, Funciona perfeito
    o exemplo do Mestre Avelino, funciona perfeito no BD dele, no meu BD,
    da o erro acima.
    não consegui achar o erro.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty Re: [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Mensagem  criquio 28/2/2012, 22:50

    Verifique as referências conforme falei no post anterior. Entre em um módulo, vá no menu Ferramentas > Referências. Faça isso em um módulo no seu aplicativo e em outro no exemplo do Avelino e veja se está faltando alguma referência no seu. No tocante à versão da referência que eu falei anteriormente, é o seguinte: o Access 2003 tem algumas bibliotecas na versão do 2003, que é e 11.0. O 2007 tem a versão 12.0 e o 2010 tem a versão 14.0. Por exemplo Microsoft Access Library 12.0


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Fabricio Rosa
    Fabricio Rosa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/02/2012

    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty Re: [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Mensagem  Fabricio Rosa 28/2/2012, 22:51

    Amigo consegui resolver
    o erro estava nesta declaração
    Dim fd As Office.FileDialog
    Depois de uma procurado na Internet achei uma dica no fórum http://www.utteraccess.com
    Abri o módulo e fui na caixa ferramentas -> referencia e assinalei a opção "MSOffice12.0 ObjectLibraries"
    Com a dica do mestre criquio provavelmente isso ocorre com a conversão de BD... para outra versão.
    avatar
    ABELRIB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 22/08/2016

    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty "O tipo definido pelo usuário não foi definido"

    Mensagem  ABELRIB 25/8/2016, 20:31

    Fabricio,

    Estou tentando usar essa rotina de backup do AVELINO, e estou recebendo esse erro,
    eu vi que vc resolveu, como vc alterou essa linha que esta dando, erro?

    Ja setei a Referencia , mas quando tento mudar de pasta da o erro acima.

    vc pode me ajudar?

    Att

    ABEL

    Conteúdo patrocinado


    [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino Empty Re: [Resolvido]Erro no módulo mod_ProucararArquivo, do exemplo do mestre Avelino

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 15:55