Access 2007 - Combobox atualizando Combobox

genics · 5 de dezembro de 2008

Bom dia,

Tenho um sisteminha para controle de atividades em uma Pré-escola. Tenho uma tela para pagamentos que está da seguinte forma:

- Contém 3 combobox Ano/Turma/Aluno e um Subformulário que é atualizado ao selecionar o Aluno ( a parte do subformulário foi criada com a ajuda do assistente do Access).

- Ao selecionar Ano, aparecem apenas as turmas daquele ano.

- Ao selecionar Turma, aparecem apenas os alunos relacionados àquela turma.

- Ao selecionar Aluno, aparecem os pagamentos daquele aluno.

Para estas atualizações utilizei o seguinte código:

Private Sub Ano_Change()

TurmaSource = "SELECT [Turma].[CodTurma], [Turma].[NomeTurma] " & _

"FROM Turma " & _

"WHERE [CodAno] = " & Me.CodAno.Value

Me.Turma.RowSource = TurmaSource

Me.Turma.Requery

End Sub

E em cada combo na "Origem da linha", tenho: SELECT [Ano].[CodAno], [Ano].[Ano] FROM [Ano];

Funciona parcialmente, porque consigo fazer a atualização entre uma combo e outra, porém, após uma sequencia de alterações, ou talvez quando eu feche e abra a tela novamente, os dados dos alunos se alteram, por exemplo:

Cadastro Original

João 12/05/2008 - 150,00

15/07/2008 - 200,00

Maria 16/06/2008 - 200,00

Altera sozinho e fica assim:

João 12/05/2008 - 150,00

15/07/2008 - 200,00

16/06/2008 - 200,00

Maria fica sem nenhum registro. Bom este é o problema, se alguém souber como me ajudar...

Obrigada!

Geni