[Resolvido]Critério em caixa de combinação

Gente boa tarde...

Por gentileza!! Eu aproveitei muito bem um ótimo exemplo que a uns dias atrás foi disponibilizado aqui... O exemplo é o seguinte:

Quando é inserido a data de nascimento de uma criança na caixa de texo, em outra caixa não acoplada ao lado já me dá quantos anos ele tem... Até ai blz... Só que eu queria saber se tem alguma possibilidade de quando que colocar a data de nascimento da criança, o sistema já jogue na caixa de cobinação destinado ao anos de estudo a série do aluno com base na idade do mesmo... exemplo:

- criança com 03 anos = Creche
- criança com 04 anos = Pré I
- criança com 05 anos = Pré II e assim sucessivamente...

Anteriormente eu utilizava na consulta aluno o seguinte critério, mas acredito que com base na caixa não acoplada no formulário seria bem mais interessante... é possível... desde já agradeço a atenção de todos... bjs

Faixa Etária: SeImed(DifData("yyyy";[DataNascimento];Data())<=3;"Cheche 03 anos";SeImed(DifData("yyyy";[DataNascimento];Data())<=4;"Pré I";SeImed(DifData("yyyy";[DataNascimento];Data())<=5;"Pré II";SeImed(DifData("yyyy";[DataNascimento];Data())<=6;"1º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=7;"2º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=8;"3º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=9;"4º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=10;"5º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=11;"6º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=12;"7º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=13;"8º ano";SeImed(DifData("yyyy";[DataNascimento];Data())<=14;"9º ano";SeImed(DifData("yyyy";[DataNascimento];Data())>=15;"Ensino Médio")))))))))))))

Não sei mas me parece que nesse caso voce não precisa de uma caixa de combinação e sim uma caixa de texto, preenchida conforme o valor da que contem a idade.

Se o valor da caixaIdade for = 03 então caixa do curso será igual à Creche.

isso não atenderia ?

Olá meu querido, muito obrigado pela atenção... Então, eu não frizei que a caixa de texto que iria receber a resposta da caixa de data de nascimento e anos(não acoplada) faz parte da tabela DADOSALUNOS... Como seria essa inserção?
Bjs

Supondo que a caixa de texto não acoplada seja TxtIdade e a caixa de texto da tabela seja Curso, seria assim:

Private Sub Curso_GotFocus()
If Me.TxtIdade.Value = 3 Then
Me.Curso.Value = "Creche"
End If
End Sub

Para completar as opções podes usar Elseif ou select case.

espero ter ajudado.

Você tem 3 caixas de texto

Data - onde você colocará a data.
idade - Em que trará a idade a partir da data.
situacao - Em que mostrará a situação da criança a partir da idade.

Bom, primeiro, clique na caixa de texto data, vá em propriedades e clique em evento. Na guia evento, escolha o evento após atualizar e coloque em procedimento do evento.

Coloque esse código:

Private Sub data_AfterUpdate()

Select Case Me.idade
Case 3
Me.situacao = "Creche"
Case 4
Me.situacao = "Pré I"
Case 5
Me.situacao = "Pre II"

End Select
End Sub

Ou seja, ao digitar na textbox da data, ele irá atualizar dizendo a situação dele.

Vamos dizer que a select case seleciona a caixa de texto idade.

E CASO (Case) o valor seja 3, a situação será "Creche", e assim sucessivamente.

Caso queira adicionar mais condições, só adicionar mais cases.

Depois da última linha antes do end select, coloque

case 6
Me.situacao = "Ensino Médio", e assim sucessivamente.


Caso seja útil, clique no positivo.

Meu querido, boa noite!!! Eu queria só tirar uma dúvida!!! A caixa deverá ser exatamenta caixa de texto... por que ela está em caixa de combinação e eu não consegui... tem alguma restrinção... bjs

Não entendí mesmo.

A sua está em caixa de texto ou combinação?

Esse código funciona em qualquer um dos dois, apenas mude o nome da caixa no grupo outra.

Ou edite o tipo, clicando com o direito e clique em alterar para : caixa de combinação.

Ou então poste o arquivo aqui, assim fica melhor.

Maria José.
Não estou entendendo porque manter como caixa de combinação.
nesse caso ela fica sem função, pois a opção de preenchimento do campo já foi definido por código.

abraço

BOm dia meus queridos... Será que realmente ele inseri em caixa de combinação... desde já agradeço a preciosa atenção de vocês... bjs

http://speedy.sh/MTcFK/Testes.mdb

Refiz rapidamente o modelo enviado.
veja se atende.
Redigite as datas de nascimento dos registros existentes e vá para a aba dados escolares para ver o resultado.
Não sei porque voce repetiu um campo com a idade na aba dados escolares, mas mentive e só tirei o pisca-pisca.
mantive tambem o código no Atual, apesar de achar que só no after updated do campo data de nascimento seria o suficiente.

Boa tarde Maria.

veja o cód no campo onde você insere a data do nascimento, fiz uma auteração onde esta de vermelho.

Private Sub DataNascimento_AfterUpdate()
Dim Msg As String
On Error GoTo 1
Me.txtdata.Value = CalculaIdade(Me.DataNascimento) & "" & " anos"
Me.txtdata.Requery
Me.TxtIdade.Value = CalculaIdade(Me.DataNascimento) & "" & " anos"
Me.TxtIdade.Requery

If txtdata = "3 Anos" Then
Me.AnoEstudo = "Creche"
ElseIf txtdata = "4 Anos" Then
Me.AnoEstudo = "Pré I"
ElseIf txtdata = "5 Anos" Then
Me.AnoEstudo = "Pré II"
ElseIf txtdata = "6 Anos" Then
Me.AnoEstudo = "1º Ano"
End If
Me.Refresh

Exit_1:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub

1 a:
DoCmd.Hourglass False
DoCmd.Echo True
Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
& vbNewLine & vbNewLine & "Descrição: " & Err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
Resume Exit_1

End Sub

segue o exemplo em anexo

Boa noite meus queridos!!!

Muito obrigada pela atenção de vcs... Mas eu sinto muito em dizer que ainda não supriu minha necessidade... Pois quando que clico em adicionar ele dá erro. Um deles é que diz que o valor que eu inseri não é valido para o campo... Outro é quando eu mudo a caixa de combinação para caixa de texto ele diz que está faltando um operador... Eu não sei como suprimir esta situação... Bjs...

Não desfazendo as ajudas dadas;

Esse campo não necessita de estar como Combobox, nem no formulário nem na tabela, se tudo já estiver pré-defenido no código.

Renomeei o campo para txtAnoEstudo, para não entrar em conflito.

Veja o simples a funfar automaticamente;

Select Case Left(Me.txtdata.Value, 2)
    Case 1 To 3
    Me.txtAnoEstudo.Value = "Creche"
    Case 4
    Me.txtAnoEstudo.Value = "Pré I"
    Case 5
    Me.txtAnoEstudo.Value = "Pré II"
    Case 6
    Me.txtAnoEstudo.Value = "1º Ano"
    Case Else

End Select

https://dl.dropbox.com/u/771097/Testes_OLD.rar

Bom Dia. Maria.

Mestre JPaulo falou, tá falado!

Só vou enviar um novo exemplo porque já o tinha preparado para enviar quando ví a resposta do JPaulo.

Não custa nada né?

só alterei o comando120 e alguns comentários, o comando144 ficou inalterado.



um abraço

Desculpas ao JPaulo.

Boa tarde!!!

Primeiramente eu queria dizer que em nenhum momento eu quis fazer algum tipo de desfeita com a ajuda de vcs... Ao contrario, eu fico muito agradecida com tudo isso... Eu só postei essa situação por achar que ainda fazia parte do meu fardo... Pois como eu mexi na caixa de combinação mexeu na estrutura também do meu formulário... Confesso que fiquei um pouco constrangida, mas de antemão, agradeço muito, mas muito mesmo a ajuda de vcs...

Maria, Boa noite.
primeiro: se é um pedido de desculpas, não aceito...
porque: Desfeita ? Aonde ? eu não ví.
voce simplesmente colocou suas dúvidas e dificuldades.
Só fiquei com uma dúvida em sua última postagem.
Resulveu ? Como ?

abraços.

Meus queridos boa noite!!!

Graças a vcs foi resolvido... A questão foi realmente na Tabela conforme alteração feita pelo Mestre JPaulo... Ficou ótimo... Eu percebi que não tinha necessidade de ter uma tabela ANODEESTUDO, e foi excluida facilitando o que eu queria... Mas sou muito grata aos dois...
Ah retiro o pedido de desculpas, pois vc não vai me desculpar mesmo... rsrsrsrsr.. brincadeirinha viuu querido...

Bjs...

Obrigado pelo retorno o fórum agradece.