[Resolvido]Sumir dado da caixa de combinação

Gente boa tarde...

No ultimo tópico eu tinha solicitado que quando a turma tivesse cheia, me exibisse uma msg informando que a referida turma estava cheia... Mas agora a pouco eu tentei ver se achava alguma coisa aqui no Forum sobre algum critério que faça sumir os dados de uma caixa de combinação por exemplo! e não consegui...
A minha pergunta é o seguinte: Tem alguma possibilidade de se acaso a turma chegar ao seu limite, a turma sumisse da caixa de combinação?

Anteriormente o Mestre JPaulo me ajudou com o seguinte código que por sua vez ma ajudou bastante, mas quando dava turma cheia ainda assim a criança que estava sendo cadastrada ficava arquivada na tabela DADOSALUNO... e acho que se sumisse a turma da caixa de combinação, evitaria que algum aluno ficasse cadastrado mesmo não tendo vaga.

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

Desde já agradeço a atenção de todos...

BJs

Ola Maria Jose.
Eu criei um formulario de baixa onde, ao selecionar a baixa, ele vai para uma lista, caso seja cancelada essa baixa, ele volta para a lista de nao baixados.

Pode ser que a ajude tirando alguma idéia disso.
Sobre a criança ainda estar cadastrada na tabela que foi dita, deve ser pq vc está usando campo vinculado. Veja se é isso.

Espero que possa ajudá-la.

Abs

Oh meu amor eu utilizo Access 2003 OK?!? O arquivo que você me passou é accdb... Mas também vou passar a olhar com uma atenção especial para os relacionamentos OK? Mas é que os dados são inseridos diretamente na Tabela, ou seja, o formulário foi criado diretamente da tabela DADOSALUNO...

Bjs

Salvei para o ACCESS 2003. Veja se abre ai...

Abs

Bom dia Maria José;

Suponho que seja ainda o exemplo deste tópico;

http://maximoaccess.forumeiros.com/t8398-resolvidocriterio-em-caixa-de-combinacao

Basta você no inicio do código, defenir MaxAlunos = 2 e não necessita do Select Case que lá tem.

No DCount, o campo AnoEstudo, passou de Numerico para Texto, então tem de ter as aspas simples;

If DCount("*", "DadosAluno", "AnoEstudo='" & Me.AnoEstudo & "' and Turma=" & Me.Turma) = MaxAlunos Then

New:
https://dl.dropbox.com/u/771097/Testes_OLD_II.rar

Bom dia JPaulo...

Eu ainda não consegui ver a possibilidade de não deixar cadastrado a criança que excedeu o limite da turma... pois quando a turma chega ao seu limite quando fecha o formulário a criança ainda fica cadastrada... Pensei na seguinte opção: verificar na turma A se não tiver verificar na turma B e assim sucessivamente até chegar na turma D e se não tiver mais vaga na ultima turma deletar o cadastro atual, porém, eu sou muito novinha em Access e não sei como fazer esse critério... Seria possivel???

Bjs

Dê uma clareada na minha cabeça;

O limite das turmas é 2 crianças por cada ano de estudo ?

2= Creche
2= Pré I
2= Pré II
2= 1º Ano

É isto ?

Ou é:

2 crianças na turma A
2 crianças na turma B
2 crianças na turma C
2 crianças na turma D

Bom dia querido JPaulo...

Na verdade é como eu citei no tópico abaixo:

http://maximoaccess.forumeiros.com/t8288-resolvidoatualizacao

Creche III A = 12 alunos
Creche III B = 12 alunos
Creche III C = 12 alunos
Creche III D = 12 alunos

Pré I A = 20
Pré I B = 20...

Pré II A = 25
Pré II B = 25...

Mas quando eu mechi nos ultimos tópicos, não notei que tinha mudado para apenas 02 por turma quando na verdade é quantidades diferentes...

Desde já agradeço muito sua atenção... bjs

Sem problema;

Vou mexer no ultimo exemplo que lhe passei e adaptar.

Alterei algumas validações que estavam a mais, e alterei o campo TURMA na Tabela DADOSALUNO para Texto;

Private Sub Turma_AfterUpdate()
Dim Int1, Int2, Int3 As Integer
Dim str1, str2, str3, str4, str5, str6, str7 As String
Dim x As String

'Quantidade de crianças
Int1 = 12
Int2 = 20
Int3 = 25
'Ano de Estudo
str1 = "Creche"
str2 = "Pré I"
str3 = "Pré II"
'Turmas
str4 = "A"
str5 = "B"
str6 = "C"
str7 = "D"

'Creche A,B,C,D
If Me.AnoEstudo.Value = str1 And Me.Turma.Value = str4 Then x = str4
If Me.AnoEstudo.Value = str1 And Me.Turma.Value = str5 Then x = str5
If Me.AnoEstudo.Value = str1 And Me.Turma.Value = str6 Then x = str6
If Me.AnoEstudo.Value = str1 And Me.Turma.Value = str7 Then x = str7

'Pré I A,B
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str4 Then x = str4
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str5 Then x = str5

'Pré II A,B
If Me.AnoEstudo.Value = str3 And Me.Turma.Value = str4 Then x = str4
If Me.AnoEstudo.Value = str3 And Me.Turma.Value = str5 Then x = str5


'Creche A,B,C,D = 12 alunos
    If DCount("*", "DadosAluno", "AnoEstudo='" & str1 & "' and Turma='" & x & "'") >= Int1 Then
        Beep
            MsgBox "Não há mais vaga para esta turma. Verifique se há vaga em outra turma!", vbCritical
            Me.Turma.SetFocus
            DoCmd.CancelEvent
            Exit Sub
        Else
    End If

    
'Pré I A,B = 20
    If DCount("*", "DadosAluno", "AnoEstudo='" & str2 & "' and Turma='" & x & "'") >= Int2 Then
        Beep
            MsgBox "Não há mais vaga para esta turma. Verifique se há vaga em outra turma!", vbCritical
            Me.Turma.SetFocus
            DoCmd.CancelEvent
            Exit Sub
        Else
    End If
   

'Pré II A,B = 25
        If DCount("*", "DadosAluno", "AnoEstudo='" & str3 & "' and Turma='" & x & "'") >= Int3 Then
        Beep
            MsgBox "Não há mais vaga para esta turma. Verifique se há vaga em outra turma!", vbCritical
            Me.Turma.SetFocus
            DoCmd.CancelEvent
            Exit Sub
        Else
    End If
End Sub

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

Simplesmente maravilhoso... Vou te fazer uma pergunta: Quanto tempo vc vem atuando nessa área de programação em VBA?
Será que tenho chance de chegar a ter este conhecimento???
Acho que vai da minha persistência né???

Mas agradeço muito a sua atençao tá??? Bjs

Obrigado pelo retorno.
Quanto à sua pergunta, como neste momento tenho 46 anos de idade, jà ando nisto à muito tempo rsrsrs.

Um dia chego aos tornozelo do mestre JP... rsrsrsrs