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

    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)
    avatar
    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.]
    avatar
    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: Ter 26 Set 2017, 10:18