(Resolvido) Atualização de registros dinâmicos.

[crproberto]

Estou fazendo um BD para gerenciamento de uma fila de espera numa escola. Preciso de uma ajuda, pois sou trainee no Access. Vou descrever genericamente.

Tabela 1 com os seguintes campos: Data_Nascimento, Meses_de_Vida, Turma, Data_Inscrição, Tempo_Espera_na_Fila.

Os registros do campo Turma são determinados pelos registros do campo Meses_de_Vida, por ex, se o aluno tem menos de 12 meses de vida é da turma “Berçário”, acima é “Maternal”. São registros dinâmicos.

Formulário 1 para cadastro:

Quando preencho a data de nascimento do aluno, os campos meses de vida e turma são preenchidos automaticamente, no formulário. Quando preencho a data de inscrição, o campo tempo de espera na fila é preenchido automaticamente, também no formulário.

Tudo isto funciona perfeitamente: o Formulário 1 funciona legal, a Tabela 1 mostra os registros corretamente, mas ... quando abro o Formulário 2 ( que é para manutenção do cadastro) e através de uma caixa de combinação seleciono o aluno os campos deste formulário são preenchidos com os registros de quando foi feita a inscrição. Como a gente vê os registros dos campos Meses_de_Vida, Turma e Tempo_Espera_na_Fila aumentam o seu valor a cada dia que passa. A minha dúvida é de como aparecer no Formulário 2 estes registros atualizados e nos relatórios quando gerados.

[Iceguy]

Primeiro erro: Meses_de_Vida é uma informação e não um dado, ou seja, não é necessário existir na tabela pois isso é calculado em uma consulta.

Segundo erro: Tempo_Espera é o mesmo caso dos meses de vida

Na hora de gerar os dados para o formulário você busca por uma consulta que calcula os meses e o tempo de espera.

[crproberto]

Iceguy obrigado pelo retorno.

Concordo com você nos erros cometidos, tenho que aprender bastante.

Estou fazendo da seguinte maneira: no Formulário 1 quando eu preencho a "data de nascimento", os campos "meses de vida" e "turma" são preenchidos automaticamente através do código:

Private Sub DataNasc_AfterUpdate()

Me.Meses_de_vida = Int(DateDiff("d", [dataNasc], Date) / 30.5)

Select Case Meses_de_vida

Case Is <= 18

TurmaOpção1 = "BERÇÁRIO"

Case Is <= 31

TurmaOpção1 = "MATERNAL 1"

Case Is <= 43

TurmaOpção1 = "MATERNAL 2"

Case Is <= 55

TurmaOpção1 = "MATERNAL 3"

Case Is <= 71

TurmaOpção1 = "PRÉ"

Case Else

TurmaOpção1 = "Sem Turma"

End Select

End Sub

Quando eu preencho a "data de inscrição", o campo "tempo de espera" é preenchido automaticamente através do código:

Private Sub DataInsc_AfterUpdate()

Me.txtEsperaFila = Diff2Dates("DMY", Me.DataInsc, Date)

End Sub

Se eu entendi, o que você está me dizendo é que:

1- estas informações cadastrais geradas (Formulário 1) não devem ir para a Tabela 1, ok? Ou seja, sómente os dados "data de nascimento" e "data de inscrição" é quem vão.

2- quando abrir o Formulário 2 e buscar a "data de nascimento" e "data de inscrição" os outros campos serão preenchidos automaticamente porque a consulta calculou estas informações, ok?

Pergunta: como fazer a consulta calcular estas informações?

Obrigado.

[Iceguy]

Dá pra melhorar isso:

SELECT IIF(FORMAT(NOW(),'yyyy') = FORMAT(Tabela.Data, 'yyyy'), 0, (FORMAT(NOW(), 'yyyy') - FORMAT(Tabela.Data, 'yyyy'))*12) + (FORMAT(NOW(), 'mm') - FORMAT(Tabela.Data, 'mm')) & ' mêses.' AS Tempo FROM Tabela;

Assim faltam os dias, o ideal é x mêses e y dias, mas agora deu meu horário aqui no trampo, mas em casa coloco a parte dos dias.

[crproberto]

Resolvido! Obrigado.