[Resolvido]Subtração de dados entre duas tabela

Gente boa tarde a todos do Forum...

Eu tenho duas tabelas Tab1(Alunos) e Tab2(Vagas). Na tab1 há 04 campos que também há na tab2 que são: Escola, AnoEstudo, Turma e Turno. A Tab1 está na Consulta "Cal" com critéio Totais e todos os campos acima citado está definido por "Agrupar Por" com excessão do campo "Aluno" está como Contar facilitando a contagem de alunos em cada escola, série, turma e turno.
Eu queria que o numero que eu colocasse na Tab2 seja subtraído pelo numero de alunos que seja inserido na Tab1 que por sua vez está como Consulta "Cal".
Exemplo:
Na Tab1 estaria assim:
Escola: Pequenos Talentos, Aluna: Ana Karina, AnoEstudo: 1º ano, Turma: A, Turno: Matutino.
Escola: Pequenos Talentos, Aluna: Maria José, AnoEstudo: 1º ano, Turma: A, Turno: Matutino.
Na Tab2 teria 03 vagas
Na Consulta "Cal":
Escola: Pequenos Talentos, Aluna: 02, AnoEstudo: 1º ano, Turma: A, Turno: Matutino

Eu queria criar um módulo em VBA que busque a quantidade de vagas da Tab2 e subtraia pela quantidade de alunos na Consulta "Cal" em relacionamentos com os campos citados e atualize as vagas na Tab2. Tem como realizar mais esse milagre rsrsrsrs...

Gente, muito obrigada pela força que vcs tem me dado, valeu mesmo...

Bjs

Gente pra entender melhor estou anexando a imagem abaixo tá... Muito obrigada...

[img] [/img]

Esse 4 no campo Vagas da tabela 2 já é calculado ?

Ou é tipo uma tabela de estoque ?

Você, cada vez que cadastra pode ir subtraíndo com um UPDATE

Algo assim, ou abrir um RecordSet;

CurrentDb.Execute "UPDATE SuaTabela2 SET Vagas=Vagas-1 WHERE AnoEstudo = '" & Me.AnoEstudo & "' And Turma='" & Me.Turma.Value & "' And Turno='" & Me.Turno & "'"

Tendo em conta que assim teria de ter um If para validar se a quantidade chegou ao zero.

OOOOOOOOOiiiii JPaulo... Tudo bem querido!!!!

Eu queria pedir desculpas por não ter me expressado adequadamente por que, eu tava pensando o seguinte:
Eu penso que teria que ter mais uma terceira tabela na qual ficaria a quantidade de vagas disponiveis, e essas mesmas vagas seria calculada na tab2 entende? Se não, como vou saber quantas vagas tinham né?? Acho que tem que trabalhar com um numero inicial nã é??? Ou do jeito que estou planejando daria certo?? O que vc acha?

Mas calculando Tab2 - Consulta "Call" através de relacionamento entre escola, anoestudo, turma e turno...
Quando eu digo relacionamento entre os campos, é por que queria que fosse quantidade de alunos matriculados da escola, anoestudo, turma e turno menos quantidade de vagas disponibilizadas da mesma escola, anoestudo, turma e turno entende???
JPaulo, muito obrigado por ter me atendido tá... bjs

Não entendo de onde vem esse 4 no campo Vagas da tabela 2.

Qual o codigo que está a fazer isso ?

Se pretender apenas saber quantas vagas, pode fazer por recordset


Private Sub Form_Current()
'By JPaulo ® Maximo Access
Dim rst As Recordset
Dim strSQL As String
Dim IntConta As Integer

'seta a variavel a zero
IntConta = 0
'monta o SQL para contagem
strSQL = "SELECT * FROM SuaTabela WHERE Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo & "' And Turma='" & Me.Turma.Value & "' and Turno='" & Me.Turno & "'"
Set rst = CurrentDb.OpenRecordset(strSQL)

Do Until rst.EOF
IntConta = IntConta + 1
rst.MoveNext
Loop
'insere na caixa de texto o total
Me.SuaCaixaTexto.Value = IntConta
rst.Close
Set rst = Nothing
End Sub

Oi JPaulo...

Na verdade funciona assim... O 4 é a quantidade de vagas que eu vou colocar a disposição, ou seja, a escola tal me disponibilizou 04 vagas para o ano de estudo turma e turno entende? Dai sim, conforme eu for inserindo os alunos, a intenção é que essas vagas vá diminuindo ok???

Então é como lhe passei acima, é como se fosse uma tabela de estoque e com um UPDATE para ir diminuindo as vagas.

Mas a Tab1(DADOSALUNO) é a consulta Call que está contando quantos alunos está atualmente matriculados. E a Tab2 é a quantidade de vagas que está disponível para a escola, anoestudo, turma e turno. A intenção é que a operação seja da seguinte forma:

Call - Tab2 = o resultado seja atualizado Tab2.

Mas eu vou fazer o seguinte: Eu vou criar mais uma tabela que servirá de referencia de número para fazer o calculo das vagas que ainda sobra. Vai passar a ser o seguinte:

x = Tab1(DADOSALUNO)/Consulta "Call"(mostra quantidade de alunos inseridos);
y = Tab2(QuadroVagas)(funciona como referência para subtrair com o x);
z = Tab3(tblRest)(resultado da subtração entre x e y);

Então ficaria assim: x - y = z

up!!!

Bom dia JPaulo...

Eu fiz algumas modificações. Acho que dá pra entender melhor agora... Acrescentei mais uma tabela acho que ficou melhor... Obrigada pelo apoio tá... bjs

[img] [/img]

Pode simplificar, veja a minha ideia na consulta "Call_final", baseado nessas tabelas;

Bom dia querido!!!

Meu amor eu já tinha pensado dessa maneira, só que como está ilustrado abaixo, acredito que seja caso de relacionamento, pois, duplica sempre as vagas para a mesma escola, anoestudo. Ele está calculando vagas sem ter alunos inseridos...

Bessitos

[img] [/img]

Se pretender anexar aqui parte do seu banco, a coisa resolve-se em pouco tempo, dá para fazer isso ?

Bom dia JPaulo...

COnforme solictado, segue em anexo o BD. Acessa com a escola Pequenos Talentos ou Pequeno Mestre tá...

Desde já agrade muito a sua atenção JPaulo.. Brigadão mesmo...

Bjs...


http://speedy.sh/nXwSr/Teste.mdb

Ola Maria José;

A tabela "tbl_Att", vai servir de referencia à quatidade de vagas permitidas.

Faça o teste no formulario, pela escola "Pequenos Talentos" e deixe chegar às zero (0) vagas.

JPaulo ooooooooooooooooootimo... Muito bom mesmo!!! Querido muuuuuuuuuuuuuuito obrigado mesmo pela paciência comigo...
Mas eu posso me arrepender de varias coisas, mas de não arriscar em perguntar como vc fez os relacionamentos entre 04 campos eu não vou me arrepender... rsrsrsrsr
Vc relacionou através do SQL?

Desde já agradeço muito mesmo JPaulo, vcs são feras mesmo...

Ah esqueci do resolvido... Valeu..

Obrigada pelo retorno o fórum agradece.

O relacionamento foi todo feito por VBA, usando o DLookup e o DCount em cada combobox (uma a uma para o filtro de relacionamento);


Private Sub AnoEstudo_AfterUpdate()
Dim x As String
Dim y As Integer
Dim z As Integer

x = Nz(DLookup("Vagas", "tbl_Att", "Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo.Value & "'"), 0)
y = Nz(DCount("NomeAluno", "DADOSALUNO", "Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo.Value & "'"), 0)

z = x - y
Me.txtAtt.Value = z
Me.txtAtt.Requery
End Sub

Private Sub Turma_AfterUpdate()
Dim x As String
Dim y As Integer
Dim z As Integer

x = Nz(DLookup("Vagas", "tbl_Att", "Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo.Value & "' And Turma='" & Me.Turma.Value & "'"), 0)
y = Nz(DCount("NomeAluno", "DADOSALUNO", "Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo.Value & "' And Turma='" & Me.Turma.Value & "'"), 0)

z = x - y
Me.txtAtt.Value = z
Me.txtAtt.Requery
End Sub

Private Sub Turno_AfterUpdate()
Dim x As String
Dim y As Integer
Dim z As Integer

x = Nz(DLookup("Vagas", "tbl_Att", "Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo.Value & "' And Turma='" & Me.Turma.Value & "' and Turno='" & Me.Turno & "'"), 0)
y = Nz(DCount("NomeAluno", "DADOSALUNO", "Escola = '" & Me.Escola & "' And AnoEstudo = '" & Me.AnoEstudo.Value & "' And Turma='" & Me.Turma.Value & "' and Turno='" & Me.Turno & "'"), 0)

z = x - y
Me.txtAtt.Value = z
Me.txtAtt.Requery
Me.NomeAluno.SetFocus

If Me.txtAtt.Value = 0 Then
MsgBox "Não existem vagas disponiveis...", vbCritical
Me.AnoEstudo = ""
Me.Turma = ""
Me.Turno = ""
DoCmd.CancelEvent
Me.NomeAluno.SetFocus
End If

End Sub