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

    Logo em todos os Formulários

    avatar
    robson_cabral
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 07/12/2013

    Logo em todos os Formulários Empty Logo em todos os Formulários

    Mensagem  robson_cabral 2/1/2014, 17:25

    Ola a todos, quero antes de tudo desejar um prospero e feliz 2014 a todos do fórum.

    tenho uma duvida, tenho uma tabela cadastro de prefeitura, e gostaria que algumas informações desta tabela aparece em meus formulários, tipo a logo, Razão Social, CNPJ, End e Fone, algum dos amigos poderia min auxiliar?

    Agradeço pela ajuda...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Cláudio Machado 2/1/2014, 17:52

    Feliz 2014.
    Seja mais específico.
    De que forma quer que apareça estas informações?
    Como serão utilizadas?
    Será de um único registro, ou vários?
    Boa tarde.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Logo em todos os Formulários 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    robson_cabral
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 07/12/2013

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  robson_cabral 2/1/2014, 18:19

    sera para colocar em vários formulários.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Cláudio Machado 2/1/2014, 18:48

    Na verdade você quer que apareça estas informações de que forma?
    Está difícil de ajudar se não for mais específico.
    Você quer que apareça só pra visualizar estas informações no form, ou vai utilizar para armazenar dados?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Logo em todos os Formulários 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    robson_cabral
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 07/12/2013

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  robson_cabral 2/1/2014, 19:00

    Opa vamos la, queria que as informações que coleguei logo acima, fica se em todos os formulário como uma logomarca, para identifica que o sistema esta alocado aquela prefeitura que fez o cadastro no sistema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Cláudio Machado 2/1/2014, 19:17

    Bem você pode criar os campos e adicionar este código abaixo no evento No Atual do seu form:

    me!MeuCampoImagem.Picture = currentProject.path & "\imagens\Logo.jpg" 'Logo do Cadastro
    Me.RazãoSocial = DLookup("RazãoSocial = ", "TblEmpresa")
    Me.CNPJ = DLookup("CNPJ = ", "TblEmpresa")
    Me.Endereço = DLookup("Endereço = ", "TblEmpresa")
    Me.Fone = DLookup("Fone = ", "TblEmpresa")

    Vale lembrar que eu não sei o nome dos campos e da tabela, portanto terá que modificar.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Logo em todos os Formulários 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    robson_cabral
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 07/12/2013

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  robson_cabral 2/1/2014, 20:44

    AMIGO FIZ ASSIM E NADA.


    Private Sub Report_Current()
    Me!LogotipoPrefeitura.Picture = CurrentProject.Path & "\imagens\Logo.jpg" 'Logo do Cadastro
    Me.RAZAO_SOCIAL = DLookup("RAZAO_SOCIAL = ", "TblPrefeitura")
    Me.CNPJ = DLookup("CNPJ = ", "TblPrefeitura")
    Me.LOGRADOURO = DLookup("Logradouro = ", "TblPrefeitura")
    Me.FONE = DLookup("Fone = ", "TblPrefeitura")
    End Sub
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Assis 3/1/2014, 12:00

    Bom dia

    Teste assim

    Me.Fone = DLookup("[Fone]", "TblPrefeitura")

    etc


    .................................................................................
    *** Só sei que nada sei ***
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Dilson 3/1/2014, 12:12

    Aqui o exemplo:
    empresa - Identificar formulários e relatórios com informações da empresa.

    Neste exemplo usei Dlookup empregando a técnica de capturar vários dados indo apenas uma vez na tabela (ensinada por Avelino Sampaio).

    Implemente.

    Editado:
    Para imagens a busca de dado segue da mesma forma. Precisará usar o método Picture para apresentar na tela. Junte todas as idéias postadas neste tópico e monte sua solução.


    Última edição por :placeholder em 3/1/2014, 12:22, editado 1 vez(es)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Cláudio Machado 3/1/2014, 12:17

    Veja se é isto que você quer.
    Anexos
    Logo em todos os Formulários AttachmentRobsonCabral.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 31 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Logo em todos os Formulários 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado


    Logo em todos os Formulários Empty Re: Logo em todos os Formulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 14:59