Início
![[Resolvido]Inserindo imagem em um formulario através de uma Caixa de dialogo Empty](https://2img.net/i/empty.gif)
NarcisoRN 8/12/2014, 22:58Boa noite a todos,
Estou fazendo uma pequena experiência no Access 2013 de inserir uma imagem em um campo previamente definido. minha intenção é criar um cadastro de produtos onde eu possa a cada registro inserir a imagem do mesmo, mas quero fazer isso através de uma caixa de diálogo.
Criei o formulário e nele um campo do tipo imagem onde o chamei de imgproduto, ao lado do campo imagem, um botão que ao ser clicado, deveria abrir a caixa de dialogo, me permitir escolher a dita cuja e depois atribui-la ao campo imgproduto. coloquei no evento ao clicar o codigo abaixo:
Private Sub Comando1_Click()
' Requer o Microsoft Office 11.0 Object Library ativado.
Dim fDialog As Office.FileDialog
' Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow user to make multiple selections in dialog box
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Please select one or more files"
' Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "Imagens JPG", "*.jpg"
.Filters.Add "Imagens GIF", "*.gif"
.Filters.Add "Todos Arquivos", "*.*"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
Me.imgproduto =
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub
Não estou sabendo o que atribuir a váriavel imgproduto (me.imgproduto). Consegui esse código numa pagina da microsoft, mas o exemplo no caso era para atribuir o nome de vários arquivos a uma listbox. No meu caso não serviu. Alguma dica?
Estou fazendo uma pequena experiência no Access 2013 de inserir uma imagem em um campo previamente definido. minha intenção é criar um cadastro de produtos onde eu possa a cada registro inserir a imagem do mesmo, mas quero fazer isso através de uma caixa de diálogo.
Criei o formulário e nele um campo do tipo imagem onde o chamei de imgproduto, ao lado do campo imagem, um botão que ao ser clicado, deveria abrir a caixa de dialogo, me permitir escolher a dita cuja e depois atribui-la ao campo imgproduto. coloquei no evento ao clicar o codigo abaixo:
Private Sub Comando1_Click()
' Requer o Microsoft Office 11.0 Object Library ativado.
Dim fDialog As Office.FileDialog
' Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow user to make multiple selections in dialog box
.AllowMultiSelect = False
' Set the title of the dialog box.
.Title = "Please select one or more files"
' Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "Imagens JPG", "*.jpg"
.Filters.Add "Imagens GIF", "*.gif"
.Filters.Add "Todos Arquivos", "*.*"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
Me.imgproduto =
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub
Não estou sabendo o que atribuir a váriavel imgproduto (me.imgproduto). Consegui esse código numa pagina da microsoft, mas o exemplo no caso era para atribuir o nome de vários arquivos a uma listbox. No meu caso não serviu. Alguma dica?
