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

    [Resolvido]Janela para anexar item

    Compartilhe

    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.]

    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 09 Dez 2016, 03:44