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


2 participantes

    Erro no Módulo "ProcurarArquivo" do exemplo do Avelino Sampaio

    deyvsonaguiar
    deyvsonaguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 27/09/2015

    Erro no Módulo "ProcurarArquivo" do exemplo do Avelino Sampaio Empty Erro no Módulo "ProcurarArquivo" do exemplo do Avelino Sampaio

    Mensagem  deyvsonaguiar 25/10/2015, 18:54

    Bem pessoal, estou tentando implementar dentro do meu projeto de Cadastro de notícias uma forma de eu enviar por e-mail os 25 relatórios para um grupo de pessoas. Tenho que fazê-los todos os dias e me consome mais de 30 minutos... pois o relatório é individual para 25 clientes diferentes...

    Achei essa solução com o Avelino e quero colocar um Form que está dando erro no Botão Procurar, meu Access é 2016. Eu abro o exemplo do Avelino e consigo buscar sem nenhum problema, mas na minha versão ele diz que é erro no "Erro de compilação: o tipo definido pelo usuário não foi definido"... ou algo parecido segue prints...

    Erro no Módulo "ProcurarArquivo" do exemplo do Avelino Sampaio <img src=" />

    esse é o código do botão:

    Código:
    Private Sub btProcurar_Click()
    Dim strTitulo As String
    'Dim strfiltro As String '
    Dim strCaminho As String 'grava o caminho completo do arquivo selecionado
    Dim strNome As String 'grava o nome do aquivo selecionado
    On Error Resume Next
    'strfiltro = "Arquivo (*.*)" & Chr(0) & "*.*"
    'strTitulo = "Selecione o arquivo..."
    'strCaminho = fncLocalizarArquivo("C:\", strTitulo, strfiltro)
    strCaminho = fncLocalizarArquivo()
    strNome = (Right(strCaminho, Len(strCaminho) - InStrRev(strCaminho, "\")))
    If strCaminho = "" Then Exit Sub
    Me!txAnexo.AddItem strCaminho & ";" & strNome, 0 'Adiciona caminho e nome do aqruivo na caixa de listagem
    End Sub
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3848
    Registrado : 04/04/2010

    Erro no Módulo "ProcurarArquivo" do exemplo do Avelino Sampaio Empty Re: Erro no Módulo "ProcurarArquivo" do exemplo do Avelino Sampaio

    Mensagem  Avelino Sampaio 26/10/2015, 06:56

    Olá!

    Se estiver utilizando a função fncLocalizarArquivo abaixo:

    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


    Vc deve ativar a referência MICROSOFT OFFICE 16.0 OBJECT LIBRARY

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 19/3/2024, 05:31