MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


4 participantes

    [Resolvido]Controle Figura vazia

    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty [Resolvido]Controle Figura vazia

    Mensagem  vileman 27/9/2011, 03:41

    Ajuda aos universitários:
    Tenho 1 Relatório que captura a imagem de uma figura do campo tipo texto(ImagemMapa) da tabela que tem o caminho da mesma. Neste mesmo Relatório antes do controle que mostra a figura (Imagem4) tem um campo memorando que pode dependendo do texto ser grande ou pequeno, e logo abaixo desse campo tem o controle que mostra a figura (Imagem4), se houver.
    Então acontece o seguinte:
    1)Se o texto do campo memo for pequeno e tiver 1 figura (obs: já ajustei o tamanho desse campo para isso) cabe em 1 página;
    2)Se o texto do campo memo for pequeno e não tiver nenhuma figura, cabe em 1 página;

    O problema:
    a) Se o texto do campo memo for grande e houver alguma figura a mesma é mostrada em 2 ou 3 páginas, e a figura pode ficar em outra página seguinte, em branco ou não, mas depende do tamanho do texto;

    b) Se o texto for pequeno e não houver nenhuma figura a ser mostrada, algumas vezes o texto pode caber em 1 página, ou exibir 2 páginas, sendo que a 2ª página fica sem mostrar figura alguma, ou seja, em branco, quando deveria mostrar apenas o texto na página 1.

    Gostaria que caso não tivesse a figura a ser mostrada quando o campo ImagemMapa é nulo ou vazio, este relatório não incluisse o espaço ocupado pelo mesmo, ou seja, pelos comandos abaixo ele não mostra essa figura, no entanto, continua ocupando o espaço em branco, o que gera os itens a e b acima.

    Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
    If Not IsNull(ImagemMapa) Or IsEmpty(ImagemMapa) Then
    Imagem4.Picture = ImagemMapa
    Else
    Imagem4.Picture = ""
    End If
    end sub

    avatar
    João afonso
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  João afonso 27/9/2011, 09:31

    Tente usar no seu relatório principal 1 ou 2 subrelatórios.
    na hora que abrir o relátorio abre o sub que tiver informação.
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 28/9/2011, 12:53

    Caro João Afonso, só tem 1 Relatório, e o mesmo sempre terá informações, o que pode ou não ter é a imagem da figura capturada, conforme meu tópico.

    PS: Uso Access 2003 - Windows XP
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 28/9/2011, 12:57

    Na consulta de seu relatório no campo onde tem o caminho da imagem coloque o critério É negado nulo
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura Vazia

    Mensagem  vileman 28/9/2011, 16:58

    Prezado topbr:

    Fiz conforme sua orientação, mas deu a seguinte mensagem de erro:
    "Erro em tempo de execução '13': Tipos incompatíveis"

    Ao Depurar aparece:
    Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
    If Not IsNull(Foto) Then
    Imagem3.Picture = Foto ========> Com destaque do erro para esta linha
    Else
    Imagem3.Picture = ""
    End If
    End Sub

    Explico:
    1) Nesta Consulta/Relatório existe outro campo chamado de "Foto" que por sua vez captura o caminho da foto de 1 pessoa e mostra no objeto Figura "Imagem3", conforme mostrado acima, ou seja, tenho que mostrar 2 figuras no mesmo Relatório: Campo/objeto = Foto/Imagem3 e ImagemMapa/Imagem4, ou seja, o problema, como já detalhei no meu tópico é justamente na imagem4, quando a mesma não for inclusa através do campo ImagemMapa. No campo Foto que mostra a imagem3 sempre terá uma imagem, pois o campo sempre estará preenchido.

    2) Fiz alguns testes, após colocar sua sugestão e ocorreu o seguinte:
    a) Nos registros onde tem a imagem3 do caminho do campo Foto e também a imagem4 do caminho do campo ImagemMapa, visualiza o Relatório normalmente;
    b) Nos registros onde tem a imagem3 do campo Foto e não tem a imagem4 do campo ImagemMapa, aparece o erro acima citado;
    c) Então por conta da situação ocorrida no item "b" acima não tenho como avaliar o todo da questão apresentada no meu tópico.

    PS: Antes de usar a sua sugestão com a consulta, eu utilizava a tabela diretamente no Relatório como fonte do registro.
    Lembrando que no Relatório o campo Foto está no Cabeçalho do Relatório (evento: ao formatar) e o campo ImagemMapa está no Cabeçalho do Grupo (evento: ao formatar)

    Deu para entender ?

    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 28/9/2011, 17:18

    Eu uso assim, faça uma figura em branco (Semimagem) e deixe-a em oculto

    on error resume next
    If IsNull(Me.Foto) Then
    Me.Imagem3.Picture = Me.Semimagem.Picture
    ElseIf Not FileExists(Me.Foto) Then
    Me.Imagem3.Picture = Me.Semimagem.Picture
    ElseIf FileExists(Me.Foto) Then
    Me.Imagem3.Picture = Foto
    End If


    Tente assim
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 30/9/2011, 02:41

    Caro topbr

    Fiz conforme orientou e ficou assim:

    Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
    'OBS: Abaixo foi adaptado de 'Foto' para 'ImagemMapa' e de 'Imagem3' para 'Imagem4' em todas as linhas necessárias abaixo, pois o campo Foto corresponde à figura3, e o campo ImagemMapa corresponde à figura4, apesar de ter dado o erro como mencionado no meu tópico anterior a linha em que aparece a linha: "Imagem3.Picture = Foto" ========> Com destaque do erro para esta linha

    On Error Resume Next
    If IsNull(Me.ImagemMapa) Then
    Me.Imagem4.Picture = Me.SemImagem.Picture
    ElseIf Not FileExists(Me.ImagemMapa) Then <========> Com destaque do erro para esta linha
    Me.Imagem4.Picture = Me.SemImagem.Picture
    ElseIf FileExists(Me.ImagemMapa) Then
    Me.Imagem4.Picture = ImagemMapa
    End If

    Ao clicar no Relatório aparece o seguinte erro de compilação:
    'Sub' ou 'Function não definida
    Apontando para "FileExists" na 4ª linha mostrada no evento acima.

    Lembrando que o campo ImagemMapa e Imagem4 estão dentro do Cabeçalho do Grupo, evento "Ao Formatar".

    Informo que criei um controle não-acoplado de nome: semimagem e deixe-o como oculto, conforme sua orientação dentro do Relatório em questão.
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 30/9/2011, 04:35

    Se possivel faça o upload de seu banco que darei uma olhada para vc!!!
    use o dropbox
    www.dropbox.com
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura Vazia

    Mensagem  vileman 30/9/2011, 14:50

    Farei como pede topbr, vou preparar o arquivo e enviar via dropbox, nunca usei, mas essa é a hora de aprender mais uma, quando estiver pronto aviso, ok?

    Pensei no seguinte:
    Se houvesse como diminuir o tamanho da figura para zero ou 1, ou seja, a altura desse controle quando o campo que tem o caminho fosse vazio ou nulo, acho que resolveria, pois essa figura não ocuparia o espaço no Relatório que é a questão em si, no entanto, fiz pesquisas sobre como diminuir a altura no controle figura, mas não achei nada neste fórum e em outros, o que acha, é possível ?
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 30/9/2011, 14:55

    Envie o banco que te ajudaremos!!!
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 1/10/2011, 03:37

    Topbr, estou enviando o arquivo via Dropbox, espero ter feito da forma correta, pois é a 1ª vez que uso esse recurso. O nome do arquivo para upload é vileman.rar
    Favor ler o arquivo DOC, após descompactar.

    Será que faltou algo no Dropbox ?
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 1/10/2011, 04:31

    Amigo no dropbox coloque seu arquivo em uma pasta publica depois clique no arquivo com o botão direiro e clique em Copy Public link, copie o link e cole qeui para que eu possa baixar.

    Aguardo
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 1/10/2011, 16:55

    Ok, segue abaixo o código do dropbox

    http://dl.dropbox.com/u/43719372/VILEMAN.rar

    Esqueci: O meu e-mail é vileman@hotmail.com
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 4/10/2011, 02:22

    Amigão puxando o tópico para cima, ainda não tive tempo de olhar, amanhã dou uma olhadinha ok?
    Abraço!!!
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 4/10/2011, 02:42

    Sem problema, aguardo, ok!
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  vieirasoft 13/10/2011, 21:31

    Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Gilberto Rocha 13/10/2011, 21:54

    Estou atolado de serviço, não tive tempo de ajudar o amigo, se alguem puder, faça.

    Obrigado.
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 14/10/2011, 01:45

    Vieira, como o nosso colega Topbr não teve tempo de ver o arquivo, gostaria de deixar como não Resolvido, como faço para reabrir o tópico ?

    Segue abaixo o novo link do arquivo, caso alguém possa ajudar:

    http://dl.dropbox.com/u/43719372/VILEMAN.rar

    PS: Ainda não-resolvido


    Última edição por vileman em 13/12/2011, 13:04, editado 2 vez(es) (Motivo da edição : Complemento)
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 14/12/2011, 00:36

    Estou retornando o tópico por conta do mesmo ainda não está resolvido.
    avatar
    Convidad
    Convidado


    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Convidad 14/12/2011, 15:55

    será mais ou menos assim

    http://www.savefile.com/dl/H3B5CMY4

    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Controle Figura vazia Empty Controle Figura vazia

    Mensagem  vileman 15/12/2011, 23:15

    Caro Ricardo,

    Após clicar no link enviado e ao clicar na mensagem do site: "arquivo está pronto para ser baixado
    Clique aqui para iniciar o download" fica aparecendo a seguinte mensagem: "Start download, ... please wait (Iniciando download ... Espere por favor)", mostrando acima o arquivo: Vil.rar, no entanto, fica repetindo e repetindo sem parar e não faz mais nada. Tentei repetir a operação várias vezes, mas continua o mesmo erro, poderia mandar para meu e-mail: manvil@ig.com.br ou refazer o link ?




    Conteúdo patrocinado


    [Resolvido]Controle Figura vazia Empty Re: [Resolvido]Controle Figura vazia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 01:35