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

    [Resolvido]Janela para anexar item

    Compartilhe
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    [Resolvido]Janela para anexar item

    Mensagem  roberval em Qui 30 Jul 2015, 14:00

    Primeiramente um bom dia a todos!

    Bom, meu problema é o seguinte, eu criei um controle de ObjetoOLE no BE para armazenar fotos, mas para armazenar as fotos eu preciso clicar com o direito e selecionar a foto. E bem eu ja criei um botão que adiciona sozinho, mas eu preciso minimizar o access ir até a pasta copiar o destino e depois colar em uma txtbox, tem algum jeito de abrir uma janela para anexar?


    Última edição por roberval em Sex 31 Jul 2015, 00:11, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Re: [Resolvido]Janela para anexar item

    Mensagem  roberval em Qui 30 Jul 2015, 15:04

    Bom dando uma atualizada aqui....
    Eu encontrei o código: (Que funciona perfeitamente Wink )

    Código:
    Public Function Localizar(strTitulo As String)
    Dim Find As Office.FileDialog
    On Error GoTo trataerro
    Set Find = Application.FileDialog(msoFileDialogFolderPicker)
    With Find
    .AllowMultiSelect = True
    .ButtonName = "Selecionar"
    .InitialFileName = "c:\"
    .InitialView = msoFileDialogViewList
    '.Title = "Selecione a pasta de destino"
    .Title = strTítulo
    End With
    If Find.Show = -1 Then
        Localizar = Find.SelectedItems(1)
    End If
    sair:
        Exit Function
    trataerro:
        Localizar = ""
        Resume sair:
    End Function

    Ps: Ainda não sei onde fica esse botão resolvido... Alguém poderia me mandar um print mostrando onde é?


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sex 22 Set 2017, 07:21