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


    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Lupércio 4/3/2012, 02:24

    Companheiro por favor, quem puder me ajude!
    Tenho uma caixa de texto por nome “Retorno”
    Tenho um campo por nome “DataAdmissão”
    Tenho outro campo por nome “DataDemissão”

    Preciso que quando haver dados no campo “Admissão e não haver dados no campo “DataDemissão” me retorne a palavra “admitido” na caixa de texto “Retorno”.

    E quando haver dados no campo “DataAdmissão” e haver dados no campo “DataDemissão” me retorne a palavra “Demitido”.
    Segue o aplicativo...
    Anexos
    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" AttachmentEXPRESSÃO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 8 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Re: [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Convidad 4/3/2012, 02:50


    No evento NoAtual do form, para atualizar a informação da TextBox Retorno durante a navegação:


    Private Sub Form_Current()
    If Not IsNull(Me.DataAdmissão) And IsNull(Me.DataDemissão) Then
    Me.Retorno = "Admitido"
    ElseIf Not IsNull(Me.DataAdmissão) And Not IsNull(Me.DataDemissão) Then
    Me.Retorno = "Demitido"
    End If
    End Sub


    Coloque este código também no evento ApósAtualizar - AfterUpdate() - dos campos DataAdmissão e DataDemissão para atualizar em tempo de execução.


    Última edição por norbs em 4/3/2012, 03:17, editado 2 vez(es)
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Re: [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Lupércio 4/3/2012, 03:12

    Norbs
    È o seguinte em qualquer das situações está retornando "admitido"
    olha para vc ver fiz como sua dica, não está dando certo,
    olha o aplicativo, por favor.
    Anexos
    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" AttachmentEXPRESSÃO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 13 vez(es)


    Última edição por Lupércio em 4/3/2012, 03:56, editado 2 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Re: [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Convidad 4/3/2012, 03:20


    Faltou um Not na 4ª linha.
    Corrigi na msg 2.
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Re: [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Lupércio 4/3/2012, 03:28

    Ainda bem que existem pessoas como você é um experct em Ms access, e humilde gosta de ensinar te agradeço, por mais essa aula.
    Tópico resolvido...
    um abraço.
    Lupércio Porfírio Azarias
    avatar
    Convidad
    Convidado


    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Re: [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Convidad 4/3/2012, 03:30


    Grato pelo retorno, Lupércio!

    Conteúdo patrocinado


    [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido" Empty Re: [Resolvido]Havendo dados retorna "Demitido" não havendo retorna "Admitido"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 21:06