[Resolvido]Imagem Fundo

Boa tarde,

Amigos adicionei no meu projeto a rotina FundoAccess, só que meu form imgfuno tá dando erro quando vou adicionar uma imagem na linha de código em vermelho o que faço, alguém pode me ajudar?

Private Function fncGravaFundo()
Dim rsfrm As DAO.Recordset2
Dim rsFilho As DAO.Recordset2
Dim fld As Field2


Set rsfrm = Me.Recordset
Set rsFilho = rsfrm.Fields("ImgFundo").Value
Set fld = rsFilho.Fields("filedata")
Do While Not rsFilho.EOF
If rsFilho.AbsolutePosition = Idimg Then
If Len(Dir(fncLocalFundo, vbArchive) & "") > 0 Then
On Error Resume Next
Kill fncLocalFundo & "*.jpeg"
On Error Resume Next
Kill fncLocalFundo & "*.gif"
On Error Resume Next
Kill fncLocalFundo & "*.jpg"
On Error Resume Next
Kill fncLocalFundo & "*.png"
On Error Resume Next
Kill fncLocalFundo & "*.tiff"
On Error Resume Next
Kill fncLocalFundo & "*.bmp"
End If
fld.SaveToFile (fncLocalFundo)
End If
rsFilho.MoveNext
Loop
Set fld = Nothing
Set rsFilho = Nothing
Set rsfrm = Nothing

End Function


Alguém poderia me ajudar?


Adilsn

mostre a função fncLocalFundo ()

É ai que ele esta a rebentar.

Ela existe?

Public Function fncLocalFundo() As String
fncLocalFundo = Application.CurrentProject.Path & "\imagens\fundo\"
End Function

Manda o arquivo pro meu email que vejo pra vc. depois completamos aqui o que aconteceu.

No aguardo

Falou estou mandando.

Adilson

O problema está no servidor da empresa é velho demais.