[Resolvido]Mostrar Categoria no Select de acordo com a Idade

Ola Amigos,

Mais uma vez preciso de uma forcinha da galera... é o seguinte tenho um Cadastro de Atletas aonde informo :

NOME
DATA NASC
CATEGORIA

Eis que surgiu a necessidade pelo cliente de que quando eu digitar a DATA DE NASCIMENTO do Atletas automaticamente preencher no Select CATEGORIA a Categoria de acordo com o ano ex: 01/01/2004 no select ele mostrar FRALDINHA ou seja eu definiria as datas para cada categoria e não precisaria digita-la ele automaticamente mostraria de acordo com a data de nascimento..

Obrigado

Você pode criar uma função no evento após atualizar no campo data de nascimento.
Por exemplo:

If DATA NASC < 5 Then
CATEGORIA. Value = "FRALDINHA"

ElseIf DATA NASC > 6 Then
CATEGORIA. Value = "TESTE1"

ElseIf DATA NASC > 10 Then
CATEGORIA. Value = "TESTE2"

ElseIf DATA NASC > 15 Then
CATEGORIA. Value = "TESTE3"

End If

Só um pitaco...

If Me.txtnascimento <= #1/1/1998# Then
Me.txtCategoria = "fraudinha"

ElseIf Me.txtnascimento <= #1/1/2003# Then
Me.txtCategoria = "Categoria2"

ElseIf Me.txtnascimento <= #1/1/2010# Then
Me.txtCategoria = "Categoria3"


End If

Ola Mateus e Gilberlanio,

Funciou perfeitamente da maneira que me passaram porém duas coisas

1ª Como eu difino a regra pelo ano ex: 2000 , 2002 , 2003

2ª Ele funcionou num campo texto normal mas o campo que deve receber os dados é uma COMBOX que pega os dados da tabela Categorias..

Obrigado

Boa tarde amigo. Testa ai e vê se e isso...

Mateus,

N uso o 2007 poderia me enviar em 2003 ou Xp ..

Obrigado

https://dl.dropboxusercontent.com/u/90217826/Database4%20-%20C%C3%B3pia%20-%20C%C3%B3pia.zip
Dando uma ajudinha.

Obrigado Kaynan pela forcinha..consegiu baixar..

Mateus era isso mesmo que estava querendo fazer só pra fechar uma dúvida no caso a categoria FRALDINHA = 2002 - 2003 ,MIRIM = 2001-2000 , e assim por diante na logica eu teria que <= #1/1/2002# <= #1/1/2003# que seria FRALDINHA ou tem outra maneira?

Obrigado mais uma vez

Bom dia amigo, faça assim em após atualizar de dua combo. Dai vc vai colocando quantos vc quiser.. Sucesso..


If Me.CboNascimento = 2000 Then
Me.txtCategoria = "Mirin"

ElseIf Me.CboNascimento = 2001 Then
Me.txtCategoria = "Mirin"

ElseIf Me.CboNascimento = 2002 Then
Me.txtCategoria = "fraudinha"

ElseIf Me.CboNascimento = 2003 Then
Me.txtCategoria = "fraudinha"


End If

Olá Matheus..

Show de bola perfeito , só mais uma coisa que esqueci de comentar é que se eu utilizar a COMBOX buscando dados de uma tabela ele da erro e não atualiza o campo .. apenas funciona se eu definir os dados da combox manualmente.. tem como fazer isso tb ?

Vc quer buscar o ano do nascimento registrado em outra tabela? Não intendi muito bem..

Marcelo,

No exemplo que vc postou no campo combox CATEGORIA em sua propriedade Origem de Linha = "Mirim","Frauldinha"..corrreto?

Desse jeito funciona legal .. agora se no campo combox CATEGORIA em sua propriedade Origem de Linha = estiver : SELECT [categoria].[Id], [categoria].[Categoria] FROM [categoria]

Ao grava ele dá o erro: O Valor que você inseriu não é valido para esse campo

Entendeu?

Abraços

Boa noite.. Apague a combo que eu te mandei, faça outra vinculada a sua tabela Categoria usando o mesmo nome e vê se resolve?

Um pitaco se me permitem;

Fabio, no seu SELECT, troque a posição dos campos ID com Categoria.

Outro pitaco, é que em vez de utilizar IF`s para tudo, utilize o simples Select Case que lhe dá mais oportunidades de escolha e menos linhas de código, como por exemplo:

Case 2000 To 2001
Ou
Case Is < 2001
Ou até um Else no final do Select;
Case Else
  Me.txtCategoria= "Sem Categoria"

Private Sub CboNascimento_AfterUpdate()
   Select Case CboNascimento
       Case Is = 2000
       Me.txtCategoria = "fraudinha"
       Case Is = 2002
       Me.txtCategoria = "Categoria2"
       Case Is = 2003
       Me.txtCategoria = "Categoria3"
       Case Is = 2004
       Me.txtCategoria = "Categoria4"
       Case Else
       Me.txtCategoria = "Sem Categoria"
   End Select
End Sub

http://maximoaccess.forumeiros.com/t14914-funcao-interna-select-case

Ola mestre JP ,

Obrigado pela dica , troquei Id por Categoria e agora ficou perfeito rodou blz.. mais uma vez agradeço ao Mateus e JP..

Abraços!!

Obrigado pelo retorno o forum agradece.