MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Exibe a caixa de diálogo Abrir arquivo

    Compartilhe

    ADMILSON
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 22/09/2014

    Exibe a caixa de diálogo Abrir arquivo

    Mensagem  ADMILSON em Seg 22 Set 2014, 23:59

    Estou precisando da ajuda de quem conhece muito do Access (tenho um cadastro de funcionários e gostaria de colocar uma foto no mesmo, mas não quero que esta foto venha como anexo ou uma imagem ole, quero que seja inserido na tabela o caminho onde estou buscando a imagem, consegui criar todos so codigos, porem este abaixo que deveria abrir a caixa de dialogo para selecionar a imagem esta com um erro que não consigo identificar, será que alguem pode me ajudar?, ficarei grato).

    Estou enviando o arquivo para que entenda melhor, a foto será inserida no Formfuncionarios, o usuario de login é "admilson" e a senha pode ser "teste".

    Sub getFileName()
       ' Exibe a caixa de diálogo Abrir arquivo a fim de escolher um nome
       ' de arquivo para o registro de funcionário atual. Se o usuário
       ' selecionar um arquivo, essa função exibe-o no controle de imagem.
       Dim fileName As String
       Dim result As Integer
           
       With Application.FileDialog(msoFileDialogFilePicker)
           .Title = "Selecionar foto de funcionário"
           .Filters.Add "Todos os arquivos", "*.*"
           .Filters.Add "JPEGs", "*.jpg"
           .Filters.Add "Bitmaps", "*.bmp"
           .FilterIndex = 3
           .AllowMultiSelect = False
           .InitialFileName = CurrentProject.path
           result = .Show
           If (result <> 0) Then
               fileName = (.SelectedItems.Item(1))
               Me![ImagePath].Visible = True
               Me![ImagePath].SetFocus
               Me![ImagePath].Text = fileName
               Me![Nome].SetFocus
               Me![ImagePath].Visible = False
           End If
       End With
    End Sub
    Anexos
    Controle Funcionarios.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (667 Kb) Baixado 7 vez(es)

    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    Re: Exibe a caixa de diálogo Abrir arquivo

    Mensagem  Kebao10 em Ter 23 Set 2014, 00:46

    Talvez esse exemplo ajude
    [Você precisa estar registrado e conectado para ver este link.]

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Exibe a caixa de diálogo Abrir arquivo

    Mensagem  Roberto_1977 em Qua 24 Set 2014, 11:59

    Bom dia,

    Após testar a sua BD ela também me deu erro, e verifiquei que faltava a referencia do "msoFileDialogFilePicker".
    Adicionei essa e ficou a funcionar 5*.

      Data/hora atual: Qua 07 Dez 2016, 18:15