Imagens num formulário em Access [Resolvido]

[crazyman]

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