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


2 participantes

    [Resolvido]Alterar rodapé em todos os relatórios

    avatar
    grijalbamarques
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 31/10/2011

    [Resolvido]Alterar rodapé em todos os relatórios Empty Alterar rodapé em todos os relatórios

    Mensagem  grijalbamarques 3/11/2011, 23:30

    Olá

    Tenho um banco de dados com vários relatórios, sendo que no cabeçalho e rodapé existem informações padrão, tais como endereço, telefone de contato, mensagem padrão, etc.

    O problema é que mudei de endereço e tive fazer as alterações um por um em cada relatório e foi um trabalhão. Agora terei que mudar o telefone. Existe alguma forma de criar uma tabela com estes dados, para quando eu mudar estas informações, elas sejam alteradas automaticamente em todos os relatorios, ou seja vincular estas informações aos relatórios?
    Agradeço a ajuda.
    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]Alterar rodapé em todos os relatórios Empty Re: [Resolvido]Alterar rodapé em todos os relatórios

    Mensagem  Gilberto Rocha 4/11/2011, 00:25

    Amigo, isso se faz da seguinte forma, é necessário cadastrar as informações em uma tabela Configuracoes por exemplo e chamar esses campos assim:

    No cabeçalho onde contem esses endereços tenha campos não acoplados e chame o valor que quer com a função DLookup
    no evento Ao Formatar

    Me.cxEndereco.Value = DLookup("[Endereco]", "Tabela_Configuracoes")
    Me.cxUF.Value = DLookup("[UF]", "Tabela_Configuracoes")
    Me.cxBairro.Value = DLookup("[Bairro", "Tabela_Configuracoes")
    Me.cxTel.Value = DLookup("[Telefone]", "Tabela_Configuracoes")

    avatar
    grijalbamarques
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 31/10/2011

    [Resolvido]Alterar rodapé em todos os relatórios Empty Re: [Resolvido]Alterar rodapé em todos os relatórios

    Mensagem  grijalbamarques 4/11/2011, 14:14

    Olá!

    Muito obrigado. Deu certo.

    Conteúdo patrocinado


    [Resolvido]Alterar rodapé em todos os relatórios Empty Re: [Resolvido]Alterar rodapé em todos os relatórios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 09:08