MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Nome do campo junto com código

    Compartilhe

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Nome do campo junto com código

    Mensagem  Ari em Qui 22 Jan 2015, 13:43

    Boa dia pessoal.
    Tenho o seguinte desafio:

    No código abaixo, preciso que quando o campo C1NOME estiver preenchido, apareça a identificação NOME: antes do campo:
    Nome: Aparecido Silva

    Quando o campo não tiver sido preenchido, não apareça nada, nem a identificação do campo que está em branco.


    .Execute findtext:="{C1NOME}", replacewith:=Me.C1Nome, Format:=True, Replace:=2

    Abraços

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 554
    Registrado : 02/10/2011

    Re: Nome do campo junto com código

    Mensagem  rubenscouto em Sex 23 Jan 2015, 21:12

    Postando um exemplo a gente tem como dar melhor suporte.

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Nome do campo junto com código

    Mensagem  Roberto_1977 em Qua 04 Fev 2015, 10:37

    Bom dia,

    Pelo que percebi, você quer que quando o campo esteja preenchido ele escreva na identificação "Nome:", caso não esteja preenchido campo fique em branco.

    Experimente código abaixo no evento "após actualizar" do seu campo "Nome":

    If Me.NomeSeuCampo.value <>"" then
    Me.NomeSuaLabelCampo.Caption = "Nome:"
    Else
    Me.NomeSuaLabelCampo.Caption =""
    End If

    Abraço... Cool

      Data/hora atual: Sex 09 Dez 2016, 11:33