[Resolvido]Conclusão de critério em fomulário

Gente boa tarde!!! Eu não sei se é perrmitido o que eu vou fazer, rsrsrs, mas queria direcionar minha pergunta ao Mestre JPaulo haja visto que ele já tem conhecimento da minha dúvida...

Querido eu bem que tentei mas não consegui concluir o código(conforme abaixo) que vc me ajudou no link abaixo.
É o seguinte, quando fui colocar em prática a inserção dos alunos, a quantidade de alunos por turmas está sendo todas no mesmo quantativo, por exemplo: se o quantitativo permitido pra creche A é 12 alunos, as turmas A do pré I e II também fica com apenas 12 também sendo que na verdade seria Pré I A 20 e Pré II A 25... Eu não sei, mas acho que deve ser por que os critério que está sendo executado na creche é o mesmo para os outros anos de estudos.... Eu tentei mexer nele mas não sou muito boa nisto... Será que é??? Sei que com o seu ótimo conhecimento vai desenrrolar esta ai!!! Desde já te agradeço muuuuuuuuuuuto... bjs

http://maximoaccess.forumeiros.com/t8453-resolvidosumir-dado-da-caixa-de-combinacao


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 = 2
Int2 = 3
Int3 = 4

'Ano de Estudo
str1 = "Creche III"
str2 = "Pré I"
str3 = "Pré II"

'Turmas Creche
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,C,D
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str4 Then x = str4
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str4 Then x = str4
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str4 Then x = str4
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str4 Then x = str4

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

'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
Me.Turma = Null
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
Me.Turma = Null
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
Me.Turma = Null
DoCmd.CancelEvent
Exit Sub
Else
End If

Qual a intenção de você ter alterado todas estas linhas para instruções iguais ?

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

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

Erá por que na linha do código no Pré I e II estava só a turma A e B e imaginei que se copiasse a linha de código da creche chegaria na conclusão de dar continuidade nos quantitativo de cada turma.... Mas sem sucesso...

Meu lindo acho que consegui, depois de muito esforço mas acho que consegui... rsrsrs só precisava por gentileza uma avaliação de Vossa Senhoria tá... bjs

Dim Int1, Int2, Int3 As Integer
Dim str1, str2, str3, str4, str5, str6, str7 As String
Dim str8, str9, str10, str11 As String
Dim str12, str13, str14, str15 As String
Dim x, y, z As String

'Quantidade de crianças

Int1 = 2
Int2 = 3
Int3 = 4

'Ano de Estudo
str1 = "Creche III"
str2 = "Pré I"
str3 = "Pré II"

'Turmas Creche
str4 = "A"
str5 = "B"
str6 = "C"
str7 = "D"

str8 = "A"
str9 = "B"
str10 = "C"
str11 = "D"

str12 = "A"
str13 = "B"
str14 = "C"
str15 = "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 = str8 Then y = str8
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str9 Then y = str9
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str10 Then y = str10
If Me.AnoEstudo.Value = str2 And Me.Turma.Value = str11 Then y = str11

'Pré II A,B
If Me.AnoEstudo.Value = str3 And Me.Turma.Value = str12 Then z = str12
If Me.AnoEstudo.Value = str3 And Me.Turma.Value = str13 Then z = str13
If Me.AnoEstudo.Value = str3 And Me.Turma.Value = str14 Then z = str14
If Me.AnoEstudo.Value = str3 And Me.Turma.Value = str15 Then z = str15

'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
Me.Turma = Null
DoCmd.CancelEvent
Exit Sub
Else
End If


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


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

Será que cometi algum deslize??? rsrsrsrs... Se fiz nem percebi, me perdoe, não foi minha intenção... vou fechar este tópico tá... De antemão te agradeço muuuuuuuuuuuuuuuito pela ótima idéia, me ajudou bastante, sou muito grata a isso, bjs meu querido...

Maria José bom dia;

Não respondi antes, porque nos finais de semana raramente venho ao fórum, a família está primeiro.

Fico feliz de ter conseguido resolver pelo seu próprio pé.... Parabens pela evolução.