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

    Upload/Copiar Arquivo

    Compartilhe
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    Upload/Copiar Arquivo

    Mensagem  Eloirp em Dom 07 Jul 2013, 01:29

    Olá Pessoal!

    Sou iniciante e buscava um modelo de Access que copiasse um arquivo qualquer selecionado para uma pasta fixa e que rodasse em 64 bits, porém só encontrei o exemplo Copiar/Mover que não rodava em 64 bits...
    Juntando alguns códigos deste fórum (JPaulo) e com ajuda do Júlio Lustosa (Expert Access Fórum) consegui resolver... então estou disponibilizando este modelo para que aqueles iniciantes, como eu, que tenham o mesmo problema possam ter um modelo que rode em 64 bits (roda também em 32 bits normalmente).

    O modelo associa o anexo a dois tipos de item (produto e embalagem) e ao fazer o Upload do arquivo ele cria uma pasta com o nome de cada item ao qual o arquivo está vinculado (para melhor organização). Depois grava o nome do arquivo e caminho em uma tabela associando o item e depois basta clicar a lupa para visualizar o arquivo normalmente.

    REGISTROS > ANEXAR ARQUIVO

    Além do Upload/Copiar Arquivo este modelo também têm:
    - menu suspenso;
    - login com nível de acesso (admin só ativo para usuários administradores);
    - esconde o Access ao abrir;
    - backup zipado (cria a pasta BKP para armazenar os bkp's);

    Usuários:
    Admin - senha "123"
    Usuario - senha "123"

    Agradeço ao fórum e aos membros que tem me ajudado!!!

    Para aqueles que haviam baixado e tiveram problema, eu corrigi e agora cria pastas "C:\Elper\Arquivos" para o usuário...


    Última edição por Eloirp em Seg 08 Jul 2013, 12:39, editado 2 vez(es)

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 16/02/2011

    Re: Upload/Copiar Arquivo

    Mensagem  Naldo em Dom 07 Jul 2013, 13:08

    Não teria como vc postas a versão 2003

    grato pela atenção.
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    Re: Upload/Copiar Arquivo

    Mensagem  Eloirp em Seg 08 Jul 2013, 01:08

    Olá Naldo!

    Cara, eu tentei salvar, mas dá uma msg de que não é possível porque usa recursos que não estão disponíveis nas versões anteriores! No meu nível de conhecimento, infelizmente não sei contornar isso!

    Se alguém do fórum souber como contornar e me der a dica, salvo sem problemas!
    avatar
    Julio Lustosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 23/02/2011

    Contornando o problema 64 bits

    Mensagem  Julio Lustosa em Seg 08 Jul 2013, 13:59

    Olá Eloi,

    O sistema ficou muito bom.

    Para o problema que está sendo mencionado é a questão de você usar um windows 64 bits. Como você usa uma ou duas API's do Win64, tive que alterar as linhas para poder rodar no win32.

    Veja o exemplo de uma das suas declarações de API's. Tem que ficar conforme declarei abaixo.

    #If Win64 = 1 And VBA7 = 1 Then
    'Quando é para win64, manter a sua declaração
    Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    #Else
    'Quando é para wni32, alterar a declaração tirando o "PtrSafe" da declaração.
    Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    #End If

    Em anexo o seu banco com as modificações que tive que fazer.

    No mais, abraços e sucessos.

    Mrsilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 03/11/2011

    Re: Upload/Copiar Arquivo

    Mensagem  Mrsilva em Seg 08 Jul 2013, 17:18

    Julio.

    Não veio o anexo.
    avatar
    Julio Lustosa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 23/02/2011

    Contornando o problema 64 bits

    Mensagem  Julio Lustosa em Seg 08 Jul 2013, 17:46

    Opa... Falha minha.

    Segue.

    Abraços.
    Anexos
    Modelo ELPER.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (429 Kb) Baixado 137 vez(es)
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    Registrado : 15/06/2013

    Re: Upload/Copiar Arquivo

    Mensagem  Eloirp em Qua 10 Jul 2013, 19:44

    Legal Julio,
    Para mim este problema não existia, pois em casa tenho um note 32 bits e rodava normalmente, só o que roda lá tenho que colocar o "PtrSafe" e mais alguns itens quando for o caso para rodar aqui no escritório que é 64...
    De qualquer forma já incluí no arquivo original...

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 16/02/2011

    Re: Upload/Copiar Arquivo

    Mensagem  Naldo em Qui 11 Jul 2013, 14:01

    Ola Eloirp

    Uma pena cara, mas valeu a atenção.

    Grande abraço

      Data/hora atual: Seg 11 Dez 2017, 15:17