[Resolvido]Anexar arquivos no formulário

Boa noite!

Já vi alguns exemplos e alguns tópicos, mas nenhum solucionou meu problema.

Quando clico no botão para anexar arquivo gera o erro: "Erro de compilação: O tipo definido pelo usuário não foi definido". Lembrando que tenho um módulo com o código: Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Eis o código:

Private Sub cmdAnexarArquivo_Click()

On Error GoTo TErro

Dim fDialog As Office.FileDialog ', varFile As Variant, varPath As Variant, varPath2 As String, L As Integer ''''
Dim varFile As Variant

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

.InitialFileName = CurrentProject.Path
.AllowMultiSelect = True
.Title = "Anexar arquivo"
.Filters.Clear
.Filters.Add "Imagens", "*.bmp;*.gif;*.ico;*.jpg;*.jpeg;*.png;*.tiff"
.Filters.Add "Excel", "*.xls;*.xlsx"
.Filters.Add "PowerPoint", "*.ppt;*.pptx;*.pps;*.ppsx"
.Filters.Add "Word", "*.doc;*.docx"
.Filters.Add "Todos os arquivos", "*.*"
.ButtonName = "Abrir arquivo(s)"

If .Show = True Then
For Each varFile In .SelectedItems

varPath = Split(varFile, "\")
For L = 0 To UBound(varPath)
varPath2 = varPath(L)
Next L

Me.cxaListaAnexos.AddItem varFile & ";" & varPath2
Next

Else
Exit Sub
End If
End With

'O bloco abaixo ajusta a altura da listbox de acordo o número de linhas.
' Caso tenha menos de 15 anexos, a list se ajusta ao número de linhas
' Caso tenha de 15 a mais, fica com altura fixa equivalente à altura de 14 linhas.

If Me.cxaListaAnexos.ListCount > 5 Then
Me.cxaListaAnexos.Height = 275 * 5
ElseIf Me.cxaListaAnexos.ListCount <= 5 Then
Me.cxaListaAnexos.Height = Me.cxaListaAnexos.ListCount * 275
Else
End If

' O bloco abaixo torna a list e controles associados visíveis quando ouverem anexos e
' os torna invisíveis quando não ouver anda para exibir.

If Me.cxaListaAnexos.ListCount > 0 Then
Me.cxaListaAnexos.Visible = True
Me.txtPreVisualizacao.Visible = True
Me.cxaImagem.Visible = True
Else
Me.cxaListaAnexos.Visible = False
Me.txtPreVisualizacao.Visible = False
Me.cxaImagem.Visible = False
End If

' O bloco abaixo faz um tratamento de erro

TErro:
If Err.Number = 5 Then
DoCmd.CancelEvent
Resume Next
End If

End Sub

Boa noite Krauss.. Já viu suas referências?


Cumprimentos.

Opa, tudo bom JP?

Então cara, o erro está no início do cod, na parte "fDialog As Office.FileDialog"..

Me dá uma luz.

Abraço!

Manda o modelo ai para que eu possa testar.

Cumprimentos.

Boa tarde JP!

Segue arquivo, lembrando que, caso queira testar o envio, deve informar seu e-mail e senha do g-mail no código pq coloquei um e-mail fictício jose.silva@gmail.com.

Abraço!

Então.. tem como converter em 2007?

Pesquise sobre a função PtrSafe.... No 2010 creio que deva ter ela declarada para que alguns códigos funcionem.

Cumprimentos.

Vamos la...
Problemas Encontrados:

1 - Falta a referência: Microsoft Access 12.0 Object Library, adicione esta referência
2 - No código do botão dará erros de variáveis...
     No início do módulo do form você tem a expressão Option Explicit, isto significa que todas as variáveis devem ser obrigatoriamente declaradas..
     Por exemplo, a variável strPath não está declarada, declare-a através do comando Dim StrPath as string, faça isso com as demais variáveis que          
     não estão declaradas ou desabilite a expressão Option Explicit (que eu não recomendo)
3 - Dará problemas nas listBox, verifique se os nomes estão corretos.

Cumprimentos.

Grande JP, o correto seria ensinar a pescar em vez de dar o peixe, mas não estou conseguindo resolver isso mesmo retirando a expressão no início do módulo rs..

Se não for pedir muito, poderia me mandar no mesmo exemplo que enviei com os códigos corrigidos?

Abraço!

Rapaz.. creio que com esta atenção que está tendo.. não me espanta não conseguir.. hehehe
Eu não sou o JP...

Logo mais te envio.

Cumprimentos.

Ei-lo:

Sinceramente não entendo, o exemplo que me mandou de volta funfa perfeitamente, daí copiei o form inteiro do exemplo e colei no meu BD, mas no BD n funfa!!!

O que pode ser isso?

A referência amigão... Veja em um dos post's que eu falei que tem que adicionar a referência...

Sabe como fazê-lo?

Cumprimentos.

Não sei, se puder me ajudar...

Só uma dúvida, vc utilizou o mesmo exemplo que eu mandei e deu certo, mas quando copio para meu BD não funciona, como isso acontece?

Respondi isso na mensagem anterior, acaso não leu?

Abra o banco de dados, vá no menu em Ferramenta de Banco de Dados, clique em Visual Basic,
No menu do VBA clique em: Ferramentas >> Referências

Procure a referência: Microsoft Oficce 12.0 Object Library, marque esta referencia.. salve
e teste.

Cumprimentos.

Não tinha 12.0, mas marquei a 14.0 e funfou!!!

JP, obrigado mais uma vez pela ajuda prestada! Ótimo domingo!

Uma coisa... Eu não sou o JP... me chamo Harysohn.


O Fórum agradece o retorno.

Nossa, desculpas ai, associei pela foto e nem me atentei ao nome.

ok

.

O Fórum agradece o Retorno.