Cadastro de Fotos feitos para Detentos (Rosto e Perfis) *Inovador modo de inserção das fotos

Meus caros amigos..
Me deu muito trabalho separar este módulo, pois é parte de um sistema bastante complexo...Mas em agradecimento ao nosso Fórum o Fiz..

* O especial aqui creio eu que está no modo como as fotos são
1 - Inseridas
2 - Movidas
3 - Renomeadas automaticamente de acordo com o nome do Detento escolhido
3 - Criado a pasta com a ID do detento
4 - A forma de Visualização e exclusao no módulo entre outros fatores..

ATENÇÃO
Para o perfeito funcionamento do módulo de inserção de Fotos Observe os seguintes fatores..

1 - Arquivo de parametrização no Dir do BD (Syspen.Par)
Este arquivo pode ser editado com o bloco de notas. Nele vai parametros do sistema utilizados na insercao das Fotos
Altere conforme seu HD
2 - O Dir deve ser como padrão o C:\Syspen
3 - Dentro do Dir do Bd há uma pasta (Fotos Detentos)
Esta pasta deve ser copiada no caminho na Biblioteca do Windows- Imagens.. Veja no Syspen.Par como esta
as demais pastas e arquivos devem ficar onde estão no exemplo....

No form AssociaFotos.. deve-se alterar a linha no módulo colocando o caminho citado anteriormente em:
Private Sub PreparaFotosNovas()
Dim Arq As String
Dim Diret As String
Dim rst As Recordset
dbs.Execute "delete from fotosnovas"
Diret = "C:\Users\Administrador\Pictures\Fotos Detentos"
Set rst = dbs.OpenRecordset("FotosNovas")
Arq = Dir(Diret & "*.jpg", vbArchive)
Do While Arq <> ""
rst.AddNew
rst!idFoto = Diret & Arq
rst.Update
Arq = Dir()
Loop
Me!lstFotos.Requery
If Me!lstFotos.ListCount = 0 Then
BloqueiaSalva
BloqueiaVer
End If
Me!Foto.Picture = FotoPadrao
Me!lbFoto.Caption = Empty
End Sub

O Form AssociaFotos..

1 - Le os detentos cadastrados
2 - Ao seleciona-los ativa a LstBox Fotos novas
3 - Ao clicar na foto pode se ver a mesma
Ao clicar em um dos botões (Rosto, perfil1...etc)
A foto é automaticamente Renomeada com o nome do detento escolhido, criado a pasta e movido para apasta e ja anexado no prontuário do detento

Ative a referencias DAO 3.6 Object Library..

São diversos fatores redundantes...E ate um pouco difícil explicar com palavras..
Deixo o exemplo e quaisquer dúvidas criem um tópico que atenderei com presteza para responder dúvidas se as houver...


Autor: HARYSOHN PEDROSA PINA
com ajuda de um amigo programador no Rio.. Jefferson Cleber

LINK 2007
https://www.dropbox.com/s/ff94xz1vfxzfy9b/SYSPEN.rar

ENJOY

LINK 2003


https://www.dropbox.com/s/d7ra0t21f0sc2r8/Syspen2003.rar

Aqui estao apenas os Back e front End.. os demais modulos, pastas e arquivos.. use os do link 2007
E faça as alteraçoes e revículos das tabelas...

ENJOY

Oi amigo, baixei seu aplicativo, mas não funcionou no 2007. O que pode ser feito. Abraços.

Amigão... Veja ai .. tem o link para o 2007... eu o fiz em 2007...
So que tem que seguir a risca as explicacoes....
criar as pastas... e alterar o codigo no form direcionando para o seu novo caminho...

Dependendo da versao do windows.. talvez mude o nome...de algumas pastas...

Por exemplo... A pasta na biblioteca depende do nome do usuario...
Se Administrador.. é um caminho
Se Usuario xxx é outro....
No form AssociaFotos.. deve-se alterar a linha no módulo colocando o caminho citado anteriormente em:
Private Sub PreparaFotosNovas()
Dim Arq As String
Dim Diret As String
Dim rst As Recordset
dbs.Execute "delete from fotosnovas"
Diret = "C:\Users\Administrador\Pictures\Fotos Detentos" 'Esse caminnho e pasta tem que exxistir em seu pc Observe que Fotos Detentos é separado..
Sao esses detalhes que impedem o funcionamento



Veja onde nao funcionou.. e me fala..
mas ele ai esta totalmente operacional

Eu vou separar os tópicos