70 - PERMISSÃO NEGADA

MALA 27/05/2014 16:26:45
#438539
Private Function carregaimagem()
Dim crField As CRAXDDRT.FieldObject
Dim crxPicture As CRAXDDRT.OLEObject

Dim objPic As StdPicture

Set objPic = LoadPicture([Ô]C:\Foto001.bmp[Ô])

Set crxPicture = CrxRep.Sections([Ô]PH[Ô]).ReportObjects.Item(16)

Set crxPicture.FormattedPicture = objPic

crxPicture.Suppress = False

End Function

esta dando o erro acima, alguem pode me ajudar por favor.

desde ja agradeço a atenção de todos.

TUNUSAT 27/05/2014 21:44:26
#438547
MALA,

Interessante este objeto [Ô]CRAXDDRT[Ô]. Tem cara de [Ô]Crystal Reports[Ô] ...
é desta DLL?
http://social.msdn.microsoft.com/Forums/vstudio/en-US/e143fbb9-5c7a-4d56-a055-18177d39e7e7/craxdrtdll?forum=vbgeneral
http://www.dlldll.com/craxdrt.dll_download.html


Estou tentando importar ela para dentro do projeto, mas dá erro.
Teria como passar o exemplo completo?

[][ô]s,
Tunusat.
TUNUSAT 28/05/2014 13:00:17
#438553
Mala,

Fuçando mais...

PRB: [Ô]Erro de tempo de execução 70: permissão negada[Ô] ocorre ao tentar chamar os métodos de um objeto MTS seguro de um aplicativo VB
http://support.microsoft.com/kb/252711/pt-br

VB6 Run Time Error 70: Permissão negada
http://pt.wingwit.com/P/visual-basics-programming/94324.html

... pode ser que seu código não esteja rodando com permissões adequadas. E por isto aparece o erro.

[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas