[Resolvido]Mensagem não nascido e acima de 110 anos de idade

Eloi Sex 27 maio 2011, 20:25

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº1

Mensagem não nascido e acima de 110 anos de idade

Mensagem Eloi Sex 27 maio 2011, 20:25

Boa noite a todos.
Goataria de receber alguma ajuda para eu possa sanar esta situação, a questão é: Tenho uma caixa de texto em um formulário cujo campo é numérico, o objetivo deste é inserir apenas o ano (yyyy) de nascimento das pessoas. Gostaria que alguém publicasse um código de não deixar inserir algum ano em que a pessoa não possa ser maior do que 110 anos de idade, caso isso acontecesse a mensagem seria “ Essa pessoa tem mais de 110 anos” confirma esses anos? E por outro lado, no mesmo código, seria: “ essa pessoa ainda não nasceu”. Desculpe se não foi claro .

Eloi

criquio Sex 27 maio 2011, 20:35

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem criquio Sex 27 maio 2011, 20:35

Tente algo assim:


If Me.SeuCampoData > Date Then
    MsgBox "Essa pessoa ainda não nasceu", vbokOnly + vbCritical, "Atenção"
ElseIf DateDiff("y", Me.SeuCampoData, Date) > 110 Then
    MsgBox "Essa pessoa tem acima de 110 anos", vbOkOnly + vbCritical, "Atenção"
End If

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Eloi Sex 27 maio 2011, 21:48

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº3

Não nascido e acima de 110 anos

Mensagem Eloi Sex 27 maio 2011, 21:48

Criquio, boa noite.
Obrigado por me ter atenção.
Olha! Tentei junto ao seu código, mas qualquer ano que insiro. aparece a mensagem acima de 110 anos, continuo tentado.
Eloi

criquio Sex 27 maio 2011, 22:06

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº4

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem criquio Sex 27 maio 2011, 22:06

É só colocar 4 y:


If Me.SeuCampoData > Date Then
    MsgBox "Essa pessoa ainda não nasceu", vbokOnly + vbCritical, "Atenção"
ElseIf DateDiff("yyyy", Me.SeuCampoData, Date) > 110 Then
    MsgBox "Essa pessoa tem acima de 110 anos", vbOkOnly + vbCritical, "Atenção"
End If

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Eloi Sex 27 maio 2011, 23:29

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº5

Não nascido e acima de 110 anos

Mensagem Eloi Sex 27 maio 2011, 23:29

Criquio, boa noite.
Fiz a alteração recomendada, agora após atualizar o campo não exibe nem uma mensagem.
Att.

Eloi

criquio Sex 27 maio 2011, 23:41

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº6

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem criquio Sex 27 maio 2011, 23:41

Então algo não vai bem. Pois testei aqui e funcionou certinho. Tentou colocar uma data depois de hoje e antes de 1900?

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Eloi Sáb 28 maio 2011, 00:38

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº7

Mensagem não nascido e acima de 110 anos de idade

Mensagem Eloi Sáb 28 maio 2011, 00:38

Criquio, bom dia.

Ja testei varias vezes e não tive sucesso, vou tentar novamente depois retornarei.
Grato pela atenção.
Eloi

criquio Sáb 28 maio 2011, 08:03

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº8

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem criquio Sáb 28 maio 2011, 08:03

Seu campo está formatado como data tipo dd/mm/aaaa?

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Eloi Dom 29 maio 2011, 00:34

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº9

Não nascido e acima de 110 anos

Mensagem Eloi Dom 29 maio 2011, 00:34

Criquio! bom dia.

Mas uma vez fico muito grato pela sua atenção. Respondendo a sua pergunta, estou usando na tabela o formato número inteiro longo com mascara de entrada 0000;0.
Att.
Eloi

**vieirasoft** Dom 29 maio 2011, 07:19

vieirasoft

vieirasoft: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010

Mensagem nº10

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem vieirasoft Dom 29 maio 2011, 07:19

Então deve ter o campo formatado para Data abreviada, conforme o Criquio colocou acima, pois o erro deve estar aí.

criquio Dom 29 maio 2011, 08:21

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº11

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem criquio Dom 29 maio 2011, 08:21

Ou, se está usando apenas os quatro dígitos do ano, colocar assim:


If Me.SeuCampoAno > Year(Date) Then
    MsgBox "Essa pessoa ainda não nasceu", vbokOnly + vbCritical, "Atenção"
ElseIf (Year(Date) - SeuCampoAno) > 110 Then
    MsgBox "Essa pessoa tem acima de 110 anos", vbOkOnly + vbCritical, "Atenção"
End If

Mas atente para o seguinte: se você for considerar apenas o ano para a primeira condição, e dependendo da situação, pode não ser uma boa ideia, pois se a pessoa fornecer uma data de nascimento de, por exemplo, 25/10/2011, o sistema vai considerar válido, pois está dentro do ano atual, mesmo ainda não tendo chegado o dia 25 de outubro.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Eloi Dom 29 maio 2011, 09:29

Eloi

Eloi: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010

Mensagem nº12

Não nascido e acima de 110 anos

Mensagem Eloi Dom 29 maio 2011, 09:29

Senhores,bom dia.
Resolvido o problema. É muito legal participar deste forum, principalmente com as pessoas que voces são.
Att.
Eloi

criquio Dom 29 maio 2011, 09:41

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº13

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem criquio Dom 29 maio 2011, 09:41

Agradecemos pelo retorno, muito importante para o forum. Só faltou clicar no botão Resolvido. Estou fazendo-o agora.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº14

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem não nascido e acima de 110 anos de idade

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Não nascido e acima de 110 anos

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Não nascido e acima de 110 anos

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Mensagem não nascido e acima de 110 anos de idade

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Não nascido e acima de 110 anos

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Não nascido e acima de 110 anos

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Re: [Resolvido]Mensagem não nascido e acima de 110 anos de idade

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada