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

Gente boa noite... A uns dias atrás eu conseguir concluir um trabalho graças a preciosa ajuda do nosso querido JPaulo, onde consiste em limitar crianças em sala de aula(conforme o código abaixo), e quando chegasse no limite dava uma mensagem dizendo que a turma estava cheia...

Private Sub Turma_AfterUpdate()
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 = 15
Int2 = 26
Int3 = 25

'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
End Sub

O que eu quero saber se há alguma possibilidade de eu poder inserir os dados vermelhos em um formulário sem precisar abrir o módulo e colocar os dados nele... eu tô sem nenhuma idéia... desde já eu agradeço muito a atenção de todos... bjs

é claro querida...

Crie uma tabela e a nomeeie tblConfig, com os campos:

Int1
Int2
Int3
str1
str2
str3

str4
str5
str6
str7


No módulo crie uma variável do tipo Array, carregue a mesma com os campos da tabela através do comando Dlookup

Dim seq As String, K

seq = "[Int1] & '|' & [Int2] & '|' & [Int3] & '|' & [Str1] & '|' & [Str2] & '|' & [Str3]&'|' & [Str4]& '|' & [Str5] & '|' & [Str6]&'|' & [Str7]"
seq = DLookup(seq, "tblConfig")
K = Split(seq, "|")

E após utilize a variável especificando a posição do campo na Array, lembrando que a primeira é 0

Int1 = K(0)
Int2 = K(1)
Int3 = K(2)

'Ano de Estudo
str1 = K(3)
str2 = K(4)
str3 = K(5)

'Turmas Creche
str4 = K(6)
str5 = K(7)
str6 = K(
str7 = K(9)



Assim basta alterar os valores na tabela através de um form, e que este form não permita a adição de novos registros, apenas a alteração.


Cumprimentos.

Olá meu querido PILOTO(Haryson) tudo bem?

Eu não entendi... Eu vou colocar tudo no mesmo módulo que está o código acima? Ou vou ter que criar um outro módulo?

No mesmo modulo... no inicio dele acrescente a parte em azul:
e o restante... substitua as variáveis pelas em vemelho.

Dim seq As String, K

seq = "[Int1] & '|' & [Int2] & '|' & [Int3] & '|' & [Str1] & '|' & [Str2] & '|' & [Str3]&'|' & [Str4]& '|' & [Str5] & '|' & [Str6]&'|' & [Str7]"
seq = DLookup(seq, "tblConfig")
K = Split(seq, "|")




Int1 = K(0)
Int2 = K(1)
Int3 = K(2)

'Ano de Estudo
str1 = K(3)
str2 = K(4)
str3 = K(5)

'Turmas Creche
str4 = K(6)
str5 = K(7)
str6 = K(
str7 = K(9)

Cumprimentos.

Olá PILOTO(Haryson), boa noite...

Meu lindo, sinceramente eu não sei o que estou fazendo de errado... Fiz tudo que vc me pediu só que quando eu coloco os valores não dá... O que será que estou fazendo de errado... Desde já te agradeço muito pela sua preciosa atenção... bjs

Eis:


https://dl.dropbox.com/u/26441349/MariaJose1.rar

Saudações.

Oh meu querido, não sei nem como te agradeçer... desculpa ai minha ignorância tá, será que foi por que eu não coloquei chave primaria? desde já te agradeço muuuuuuuuuuuito pela sua maravilhosa ajuda e paciência...

bjs

Não creio...

Bem.. So esqueceste o resolvido, desta vez eu coloco

Abraços.