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


3 participantes

    Campo de tamanho dinâmico

    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Campo de tamanho dinâmico

    Mensagem  jf.correa01 30/5/2016, 13:08

    Olá amigos, tenho uma dúvida que acredito ser insolucionável, mas não custa tentar...

    Estou bolando um sistema que gere propostas personalizadas ao meu negócio, então a ideia é ter um formulário onde eu digite por exemplo o nome da empresa cliente, titulo do projeto e etc.
    Quando eu gero o relatório (que é a proposta final) eu quero que venha a seguinte frase, por exemplo:

    "O objetivo desta proposta é o de apresentar para a companhia XXXXXXXXX um projeto de YYYYYYY
    a ser instalado nas suas dependências."

    Eu to colocando todo esse texto fixo do relatório, com exceção do X e Y que é um campo que vem lá do meu formulário previamente preenchido.
    O problema é que o tamanho desses campos varia muito e não gostaria de deixar um espaço muito grande, gostaria que ficasse tudo junto como um texto continuo ou o mais próximo disso, será que dá?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  Avelino Sampaio 30/5/2016, 13:34

    Olá!

    Uma solução é criar posições no texto para serem subtituidas.  Exemplo de posições:  |01, |02,  ..., |0n

    O text0 ficaria escrito assim no relatório:

    "O objetivo desta proposta é o de apresentar para a companhia |01 um projeto de |02 a ser instalado nas suas dependências."

    Supondo que o texto esteja num rótulo.  No evento "ao abrir" do relatório vc susbstitui (replace) as posições pelo nome dos campos

    Private Sub Report_Open(Cancel As Integer)
    Me!rot.Caption = Replace(Me!rot.Caption, "|01", forms!NomeDoSeuFormulario!NomeDoCampoEmpresa)
    Me!rot.Caption = Replace(Me!rot.Caption, "|02", forms!NomeDoSeuFormulario!NomeDoCampoCliente)
    End Sub


    Aguardamos


    Última edição por Avelino Sampaio em 30/5/2016, 22:53, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 30/5/2016, 21:23

    Fiz conforme sugerido, porem está dando erro.
    Ao abrir o relatorio gera o erro:
    Erro em tempo de execução '2465'
    O Microsoft Access não pode localizar o campo 'rot' referido em sua expressão.

    O que fiz foi colocar a seguinte frase como roluto:

    O objetivo desta proposta é o de apresentar para a companhia \01 um projeto de \02 a ser instalado nas suas dependências.

    Fui em "ao abrir" e adicionei o codigo

    Private Sub Report_Open(Cancel As Integer)
    Me!rot.Caption = Replace(Me!rot.Caption, "|01", Forms!Info_basica!Empresa)
    Me!rot.Caption = Replace(Me!rot.Caption, "|02", Forms!Info_basica!Titulo_do_projeto)
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  FabioPaes 30/5/2016, 21:37

    Amigo, deve mudar esse Me!rot pelo Nome do Seu Rotulo.

    Com o Formulario em modo Designer, clique no Rotulo que deseja mudar, va ate a guia Outra> Nome. Esse é o Nome do seu Rotulo. Troque apenas a parte destacada em vermelho Me!rot.Caption


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 30/5/2016, 21:56

    Beleza, assim eu fiz.
    Agora o erro é outro:
    Erro em tempo de execução '2450':
    O Microsoft Acess não pode localizar o formulário referenciado 'Info_basica'

    Sendo que de fato este é meu o nome do meu formulário e a fonte de dados do meu relatório é este formulário
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  FabioPaes 30/5/2016, 22:06

    Esse formulário Info_basica é principal ou é um Subformulario:? Poste um print com o formulario.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 30/5/2016, 22:16

    Coloquei todos os prints num word
    Anexos
    Campo de tamanho dinâmico Attachmenterros.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (425 Kb) Baixado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  FabioPaes 30/5/2016, 22:37

    Amigo, o Formulário Tem que estar aberto, no momento em que for gerar o Relatório, para que seja puxado os Valores dele... se não Ocorrerá erro mesmo.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 30/5/2016, 22:56

    Desculpe pela ignorância.
    Funcionou perfeitamente, muito obrigado (:
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 31/5/2016, 19:49

    Amigo,

    Uma duvida simples, caso eu precise mudar de Rotulo para Caixa de Texto, como fica o VB?
    Pois precisei fazer essa alteração, para ter a opção de Rich Text
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  FabioPaes 31/5/2016, 20:46

    Me.NomeDaCaixaTexto = .....

    Quando for digitando ele ira sugerindo o nome do campo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 31/5/2016, 20:53

    Eu já havia tentando dessa forma, fiz novas tentativas pra poder tirar print do erro.
    Quando mando gerar o relatorio aparece erro (anexo)

    Tentei de dois jeitos:

    Me.rotulo1.Caption = Replace(Me.rotulo1.Caption, "\01", Forms!infobasica!Empresa)
    Me.rotulo1.Caption = Replace(Me.rotulo1.Caption, "\02", Forms!infobasica!Titulo_do_projeto)

    e

    Me.rotulo1.Caption = Replace(Me!rotulo1.Caption, "\01", Forms!infobasica!Empresa)
    Me.rotulo1.Caption = Replace(Me!rotulo1.Caption, "\02", Forms!infobasica!Titulo_do_projeto)
    Anexos
    Campo de tamanho dinâmico Attachmenterros.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (191 Kb) Baixado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  FabioPaes 31/5/2016, 22:52

    Poste seu BD amigo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 1/6/2016, 15:40

    segue

    https://www.4shared.com/file/EIIt_FQCce/Proposneitor.html?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  FabioPaes 1/6/2016, 17:10

    Meu amigo, Tem alguns erros:

    Me.rotulo1.Caption é uma propriedade de Rotulo e não de uma caixa de Texto

    Na sua caixa de Texto para atribuir um valor a ela, deve colocar na Fonte de Controle: ="Texto.....xxxxxxxxxxxFimTexto"  e nao como esta la...
    Mas mesmo assim, com todas essas correções não quis funcionar...
    Talvez meste Avelino Possa nos dizer o pq de Nao aceitar a substituição dos Dados com a Função Replace.

    Mas fiz de uma outra forma, veja la se Atende a suas necessidades.
    Anexos
    Campo de tamanho dinâmico AttachmentProposneitor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 34 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    jf.correa01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Espanha
    Mensagens : 13
    Registrado : 23/01/2015

    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  jf.correa01 1/6/2016, 19:59

    Obrigado Mestre!
    Atende sim, só deixar mais complexo para futuras alterações/atualizações.
    Se tivesse um outro modo eu ficaria muito agradecido

    Conteúdo patrocinado


    Campo de tamanho dinâmico Empty Re: Campo de tamanho dinâmico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 13:11