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


4 participantes

    [Resolvido]modulo enserir e mover

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 1/12/2022, 18:16

    Bo atarde, colega.
    passei para o office 2010 x64.
    os modulos de mover e enserir foto, não funciona mais, mesmo eu ter acrescentado a estrutura necessaria.
    Já refiz e pesquisei
    Anexos
    [Resolvido]modulo enserir e mover AttachmentEnserir foto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (148 Kb) Baixado 11 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 3/12/2022, 11:24

    UP
    Nenhum projeto que tem essa função está inserindo e copiando mais, não funciona no x64


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/08/2010

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Mylton 3/12/2022, 13:18

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/08/2010

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Mylton 3/12/2022, 13:37

    Encontrei esse artigo
    (devhut.net/vba-move-a-file-from-one-directory-to-another/)
    Talvez ajude
    Abs
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 3/12/2022, 16:59

    Já pesquisei essas e refez, e não funciona para x64.
    Nenhum dos codigos que adiciona e move foto funciona em x32 funfa em x64

    Se o sistema só movesse a foto para o local já ta de bom tamanho, que ai ja da pra manobrar outros código.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 23/08/2010

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Mylton 3/12/2022, 20:34

    Bom
    Não sou TI
    E pouco sei de programação em relação a vcs.
    Mas acredito que ache
    Algo
    (isladogs.co.uk/folder-image-viewer/index.html)

    Fora isso vou continuar a procurar algo P ajudar a vc
    Mas não sei programar como vcs.

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3871
    Registrado : 21/04/2011

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Marcelo David 6/12/2022, 15:15

    Boa tarde, Gilliard, tudo bem?
    Veja se minha videoaula te ajuda.

    Bons estudos!




    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]modulo enserir e mover Marcel11
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Alexandre Fim 6/12/2022, 15:30

    Parabéns pelo material, Marcelo David !!!
    Show !!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]modulo enserir e mover Setinf11
    Sistemas e Tecnologia Ltda

    Marcelo David gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 6/12/2022, 20:39

    Boa tarde nobre.
    Obrigado marcelo, na parte de adicioar a foto , ok, so não consigo copiar ele de uma pasta a outra com o nome já renomeado.
    Também refiz ele com um dos seus códigos


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3871
    Registrado : 21/04/2011

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Marcelo David 6/12/2022, 20:53

    Testei aqui e funcionou e meu office 64.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]modulo enserir e mover Marcel11
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 6/12/2022, 21:26

    A parte de selecionar funcionou, seu código limpo, show de bola.
    A outra pasta de copiar a foto não.
    NO campo da Tabela (Foto2) ele joga o caminha, mas não copia a foto.
    O sentido de copiar e colcar a foto em outra pasta é puxar a a foto direto do destino, porque entendo que um hora alguem vai deletar fotos sem requer e o sistema vai ficar sem foto.
    Obs.: Sempre fica na disco C



    Office 2010 x64

    Anexos
    [Resolvido]modulo enserir e mover AttachmentCopiar Foto renomeada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 8 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3871
    Registrado : 21/04/2011

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Marcelo David 7/12/2022, 01:02

    Fiz algumas alterações:

    Código que faz a copia da imagem, agora passo como parâmetro a origem da imagem direto do filedialog.

    Código:
    Sub CopiarFoto(strOrigem As String)
        On Error Resume Next
        Dim strArquivo
        Dim SourceFile, DestinationFile

        strArquivo = "Cliente" & "-" & Me.Cliente

        SourceFile = strOrigem  'Passo a origem da imagem
        DestinationFile = CurrentProject.Path & "\Fotos\" & strArquivo & Mid("marcelo.png", InStr("marcelo.png", "."))
        ' aqui coloca o nome da pasta de destino, current project e a pasta raiz do sistema.
        FileCopy SourceFile, DestinationFile         ' Copy source to target.
        Me.Texto19 = DestinationFile

    End Sub

    E o código do botão inserir foto:

    Código:
       Dim selecionarFt As Office.FileDialog
        strArquivo2 = "Cliente" & " -- " & Me.Cliente
        strFoto = CurrentProject.Path & "\Fotos\" & strArquivo2

        Set selecionarFt = Application.FileDialog(msoFileDialogFilePicker)

        With selecionarFt
            .AllowMultiSelect = False
            .Title = "Selecione uma imagem"
            .Filters.Clear
            .Filters.Add "Foto do Cliente", "*.jpg, *.jpeg, *.bmp, *.gif, *png"
        
            If .Show = True Then
                Me.Foto1 = .SelectedItems(1)
                CopiarFoto .SelectedItems(1) 'ja chamo a sub que copia a foto, passando como parâmetro a origem da imagem
            Else
            End If
        End With
        Set selecionarFt = Nothing
            
        Me.Texto21 = strArquivo2


    Para as operações acima, não se faz necessário o módulo: tagOPENFILENAME.

    caso não use ele em outros locais, pode excluir, pois eles podem estar dando de problema e compatibilidade, por fazer uso de APIs do Windows, sendo que o Access/Office já
    dispõe das mesmas funções.

    Teste por favor


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]modulo enserir e mover Marcel11

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 9/12/2022, 18:24

    MArcelo, perdoe-me. Passei mal e afastrei dastelas.
    Vou refer e te retorno


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  crysostomo 9/12/2022, 20:51

    Boa tarde Marcelo.
    Ficou muoto top.
    Interressante esse código
    Código:
    Mid("Marcelo.png", InStr("Marcelo.png", "."))
    sensacional.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3871
    Registrado : 21/04/2011

    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Marcelo David 13/12/2022, 11:05

    Feliz por ter dado certo e ter percebido outros códigos que lhes podem ser úteis. Gratos pelo retorno!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]modulo enserir e mover Marcel11

    Conteúdo patrocinado


    [Resolvido]modulo enserir e mover Empty Re: [Resolvido]modulo enserir e mover

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 06:09