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

Início Procurar
Pesquisar
Resultados por: Mensagens Tópicos
Pesquisa avançada
Registrar Entrar

Você não está conectado. Conecte-se ou registre-se

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

Lupércio: VIP; Respeito às regras :

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

Mensagem nº1

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

EXPRESSÃO.zip: Você não tem permissão para fazer download dos arquivos anexados.; (36 Kb) Baixado 8 vez(es)

Convidad: Convidado

Mensagem nº2

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: VIP; Respeito às regras :

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

Mensagem nº3

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

EXPRESSÃ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)

Convidad: Convidado

Mensagem nº4

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: VIP; Respeito às regras :

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

Mensagem nº5

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

Convidad: Convidado

Mensagem nº6

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

Conteúdo patrocinado

Mensagem nº7

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

Mensagem Conteúdo patrocinado

Tópicos semelhantes

» [Resolvido]consulta - havendo dois registro mostra o primeiro do BD e não o que a consulta deveria mostrar que é o segundo
» [Resolvido]busca nao retorna dados com mascara
» [Resolvido]ComboBox só retorna uma linha de dados seleção!
» [Resolvido]Soma de dados de subformulário retorna #ERRO
» [Resolvido]Retorna Pesquisa

Data/hora atual: 8/11/2024, 13:43