[Resolvido]Transferência de números de um critério

Gente boa tarde!!!

Eu preciso com gentileza de um apoio de vcs novamente... O meu banco de dados é utilizado para arquivo de dados de quantitativo de alunos ano a ano nos seguintes critérios: Por situação: Preliminares, Inicial e Final e por ano. Na situação Preliminar eu trabalho com dados não oficiais, no modo Inicial e trabalho com dados oficiais iniciais e Final trabalho com dados oficiais finais. Esses dados são inseridos através de um formulário do tipo Folha de Dados onde eu informou o ano de estudo, turma, turno e total(TInicial). Eu queria que repetisse o quantitativo de alunos do campo TInicial referente ao ano de estudo, turma e turno lançado na situação Inicio e no ano selecionado no modo Final no mesmo ano. Tem como??

Olha só: http://speedy.sh/7KHKt/Sist.accdb

 Up...

Ola Maria José, bom dia !

Gostaria de a ajudar, mas primeiramente gostaria de entender melhor o que pretende e em qual formulario.

Oi JPaulo... Bom dia querido... Desculpa a demora em responder, estava em viagem e cheguei agora...

Mas então: O formulário de entrada é o FormssBase. Nele as informações são inseridas em três tipos: Preliminar, Inicial e Final... No modo Inicial eu queria que ao inserir as informações, repetisse as informações na tabela SITUACAOFINAL2012 mas uma com modo Inicial que eu estou informando e outra com situação Final.
Exemplo:

Modo: Inicial, Ano: 2012, Escola: 11003677, Ano de Estudo: Creche II, Turma A, Turno: Matutino, TInicial: 20
Modo: Final, Ano: 2012, Escola: 11003677, Ano de Estudo: Creche II, Turma A, Turno: Matutino, TInicial: 20


Eu pensei em criar um critério envolvendo uma consulta Acréscimo, mas sem êxito, pois acho melhor sei lá, um código DLookup que possa fazer uma consulta na tabela SITUACAOFINAL2012 e acrescentar as informações nesta tabela. Mas além das informações que estou lançando que é Inicial, ele faria uma cópia das mesmas informações mas com o campo tblSit da tabela como Final, ou seja, seria duas informações mas uma como Inicial e outra como Final.... Qualquer coisa estou a disposição...


Xeroooooooooooooooooo

Ah esqueci de falar que antes de abrir o formssbase teria que selecionar uma situação(Preliminar, Inicial ou Final), o ano, e a Escola que dai será informado os dados para as informações que o usuário selecionou até chegar a este FormssBase...

BJs

Up

Ola Maria José;

Mil desculpas pela demora, mas final de semana é para a familia mesmo.

Para o que pretende, a minha sugestão é:

No formulario "FormssBase", insira um botão e dê-lhe o nome de por exemplo btSalvar.


No evento ao pressionar desse novo botão;




Private Sub btSalvar_Click()
Dim x As Integer
Dim strSQL As String
Me.Recalc
x = DLast("Codigo", "SITUACAOFINAL2012")


strSQL = "INSERT INTO SITUACAOFINAL2012 ( tbl_Ano, tblsSit, tblEscola, tblAnoEstudo, tblTurma, tblTurno, Aprovados, Reprovados, Transferidos, Desistentes, Falecidos, SMovInfantil, EJA_Conc, EJA_NCon, TPreliminar, AEE, ATC, ATE, TInicial, TApos, tblObservacao, Sala, OK )"
strSQL = strSQL & " SELECT tbl_Ano, tblsSit, tblEscola, tblAnoEstudo, tblTurma, tblTurno, Aprovados, Reprovados, Transferidos, Desistentes, Falecidos, SMovInfantil, EJA_Conc, EJA_NCon, TPreliminar, AEE, ATC, ATE, TInicial, TApos, tblObservacao, Sala, OK"
strSQL = strSQL & " FROM SITUACAOFINAL2012"
strSQL = strSQL & " WHERE Codigo=" & x
DoCmd.RunSQL (strSQL)
Me.Recalc
x = DLast("Codigo", "SITUACAOFINAL2012")
CurrentDb.Execute "UPDATE SITUACAOFINAL2012 SET tblsSit='FINAL' WHERE Codigo=" & x
End Sub


Insisa um registro no subform e teste por favor;

JPaulo meu querido boa tarde... Não precisa pedir desculpas não... Eu é que peço desculpas pela pressão... rsrsrsrsrsrsr e mais uma vez agradeço muito pelo apoio prestados a mim.... Mais uma vez vc esta de parabéns, ficou massa, muito top... Valeu mesmo pela ajuda viu querido....


Grande beijo a vc e sua família... Felicidade!!!

Obrigada pelas palavras de carinho e pelo retorno.

Imagina JPaulo!!! É um prazer... Valeu querido...