MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Imagem nao carrega ao imprimir

    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 31/8/2018, 11:57

    Bom dia!

    Coloquei o cod abaixo para atualizar ao carregar o relatorio, ele carrega ao abrir individualmente mas quando unifico os objetos em um unico objeto os relatorios carregam mas as imagens não poderiam me dizer o que esta errado no meu codigo?
    Código:

    Private Sub Report_Load()
             
        If Right(Application.CurrentProject.Path & "\Fotos\" & Me.[Caminho foto 05 fase2], 1) = "\" Then
           Me.img05.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.bmp"
       Else
           Me.img05.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_05_fase2
       End If
       
       
       If Right(Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_06_fase2, 1) = "\" Then
           Me.img06.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.bmp"
       Else
           Me.img06.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_06_fase2
       End If
       
       
        If Right(Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_07_fase2, 1) = "\" Then
           Me.img07.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.bmp"
       Else
           Me.img07.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_07_fase2
       End If
       
       
       If Right(Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_08_fase2, 1) = "\" Then
           Me.img08.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.bmp"
       Else
           Me.img08.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.Caminho_foto_08_fase2
       End If
       Me.img05.Requery
       Me.img06.Requery
       Me.img07.Requery
       Me.img08.Requery
       DoCmd.Requery
       End Sub
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1224
    Registrado : 07/12/2011

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  tauron em 3/9/2018, 22:19

    Poderia postar os objetos envolvidos?
    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 4/9/2018, 00:11

    Tudo bem, obrigado pelo retorno.

    Vou enviar o arquivo para vc dar uma olhada, tem algum e-mail para te enviar por aqui não consigo devido ao tamanho mesmo compactado

    Valeu pela força
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1224
    Registrado : 07/12/2011

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  tauron em 4/9/2018, 00:20

    utilize compartilhadores como dropbox, googledrive.
    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 4/9/2018, 19:35

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10594
    Registrado : 04/11/2009

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  JPaulo em 5/9/2018, 11:04

    Ola;

    Apenas fiz no relatorio "RL_tests 1234".
    Abra o relatorio com dois clicks e verifique se funfa;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Instruções SQL como utilizar...
    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 5/9/2018, 11:43

    Bom dia!

    funciona individualmente, porem, quando adicionado o objeto 1234 ao relatorio 1 ele nao atualiza a foto ao chamar outro projeto tipo projeto 22 por exemplo que esta na tabela ADM.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10594
    Registrado : 04/11/2009

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  JPaulo em 5/9/2018, 13:23

    Certo amigão, porque você quando insere um relatorio dentro de outro, os objectos deixam de ser Me. terá de se referenciar aos objectos assim;

    Código:
    If IsNull(Reports!Relatório1![RL_tests 1234].Report.Caminho_foto_01_fase2) Then

    Veja:
    Download

    Aproveite e veja também, como se referenciar aos objectos (vale para forms e reports).

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Instruções SQL como utilizar...
    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 5/9/2018, 16:50

    JPaulo deu certo era isso mesmo que precisava mas em qual evento fixo o código?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10594
    Registrado : 04/11/2009

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  JPaulo em 5/9/2018, 17:53

    Ola;

    Deve fixar o código no evento OnPrint, tal como está no seu exemplo que anexei.

    Formatações e imagens em relatorios devem ficar sempre no evento OnPrint ou no limite OnFormat.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Instruções SQL como utilizar...
    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 5/9/2018, 19:37

    Sem sucesso fiz como deixou no exemplo mas aparece esse erro
    erro de definição de aplicativo ou erro de definição de objeto
    nessa linha do codigo

    If IsNull(Reports!Relatório1![RLT_Concepcao].Report.Caminho_foto_9_fase2) Then

    avatar
    Thiago Ramalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 29/03/2016

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  Thiago Ramalho em 6/9/2018, 11:54

    JPaulo muito obrigado seu artigo de como referenciar me ajudou muito, consegui acertar o sistema com seu auxilio... e ja acertei o padrao sem espaços para nao necessitar de colchetes... valeu mesmo.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10594
    Registrado : 04/11/2009

    [Resolvido]Imagem nao carrega ao imprimir Empty Re: [Resolvido]Imagem nao carrega ao imprimir

    Mensagem  JPaulo em 6/9/2018, 14:16

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Imagem nao carrega ao imprimir Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 13/8/2020, 18:29