Boa tarde!
Não sei se é aqui que devo colocar este post, mas aqui vai.
Estou a desenvolver uma BD para os Recursos Humanos da empresa onde trabalho, e preciso de colocar num form, já com os dados relativos a cada funcionário, fotografias dos mesmos, de modo a que quando se navega de funcionário para funcionário apareca a fotografia do mesmo.
Será que me podem ajudar?!
Desde já agradeço qualquer ajuda que me possam dar.
Cumprimentos.
Viva,
tinhas uma secção que se chama programação e podias por lá. Quanto ao teu problema, tens que ter um campo OLE na tabela Funcionários para poder guardar as imagens. Depois nos formulários tens que por apenas um objecto OLE que aponta para o campo da tabela. Mas para isso podes usar o Wizard de Formulários que já te faz isso automaticamente, basta apontar qual a tabela e os campos que queres.
Cumps.
Obrigado. Vou experimentar e já digo alguma coisa.
Estas a trabalhar com imagene e isso é necessário ter muito cuidado no Access, pois ao contrario do VB.Net, o Access carrega a imagem o que torna a BD muito pesada...
Usaria o método path que apenas guarda o caminho da foto na BD, ficando as imagens guardadas numa pasta à parte.
Aqui está um exemplo:
Código:
Private Sub cmdLoadImage_Click()
'IMPORTANTE
'É necessário fazer referência a Microsoft Office 11.0 Object Library
'em Ferramentas > Referências no Editor do Visual Basic
Dim CxDialog As Office.FileDialog
Set CxDialog = Application.FileDialog(msoFileDialogFilePicker)
With CxDialog
'definir como selecção simples
.AllowMultiSelect = False
' definir o titulo da caixa de dialogo
.Title = "Seleccione uma imagem"
'limpar os filtros
.Filters.Clear
'adicionar novos filtros
.Filters.Add "JPG", "*.jpg"
.Filters.Add "BMP", "*.bmp"
.Filters.Add "Todos os arquivos", "*.*"
'mostrar a caixa de dialogo
If .Show = True Then ' se alguuma imagem tiver escolhida
'atribui o endereço da imagem ao campo link
Me.nomeimagemtxt = .SelectedItems(1)
'exibir a foto
Me.imagem.Visible = True
'carrega a foto
Me.imagem.Picture = Me.nomeimagemtxt
End If
End With
End Sub
Private Sub Form_Current()
If Me.nomeimagemtxt <> Null Then
Me.imagem.Visible = True
Me.imagem.Picture = Me.nomeimagemtxt
Else
Me.imagem.Visible = False
End If
End Sub
Recentemente, já testei a hipotese de colocar as imagens na BD, e realmente ela fica um bocado pesada. A longo prazo tenho quase a certeza que me pode vir a dar problemas.
Vou adaptar e testar este código, e depois digo alguma coisa.
Cumprimentos.
Já experimentei crazyman. Mas não estou a conseguir obter resultados.
Podes explicar melhor s.f.f.
(31-05-2010 14:38)jaimetotal Escreveu: [ -> ]... Depois nos formulários tens que por apenas um objecto OLE que aponta para o campo da tabela.
Como faço isso?...
(31-05-2010 14:38)jaimetotal Escreveu: [ -> ]Mas para isso podes usar o Wizard de Formulários que já te faz isso automaticamente, basta apontar qual a tabela e os campos que queres.
Como faço isso?...
é simples.
1º - numa pasta, coloca as imagens q queres carregar.
2º- no evento load do botao para carregar a imagem coloca o codigo q te indiquei.
Caso tenhas duvidas tenho aqui o form, o codigo e a tabela que criei para esse exemplo.
Manda-me MP com o teu email q eu envio-te para o mail.
OI,
poderia disponibilizar o form do exemplo?
grato.
(14-06-2010 17:02)crazyman Escreveu: [ -> ]é simples.
1º - numa pasta, coloca as imagens q queres carregar.
2º- no evento load do botao para carregar a imagem coloca o codigo q te indiquei.
Caso tenhas duvidas tenho aqui o form, o codigo e a tabela que criei para esse exemplo.
Manda-me MP com o teu email q eu envio-te para o mail.
Explora as opções do Access. Eu só após bater com a cabeça na parede várias vezes é que dei com a solução.