Upload/Copiar Arquivo

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

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

grato pela atenção.

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!

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.

Julio.

Não veio o anexo.

Opa... Falha minha.

Segue.

Abraços.

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

Ola Eloirp

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

Grande abraço