[Resolvido]Consulta SQL por registro

Bom dia a todos,

Gostaria de poder agradeçer aos amigos deste brioso fórum que em muito têm me ajudado para a implantação deste pequeno banco de dados. Aproveitando o ensejo venho pedir mais uma ajuda.

Tenho a consulta abaixo citada:

SELECT TabAluno.Nome, TabAluno.Nome_Responsável, TabAluno.Cidade," _
& "TabAluno.Estado, TabAluno.Entrada_001, TabAluno.Saída_001, AnoMesDia([Nascimento]) AS Idade," _
& "AnoMesDia([Entrada_001]) AS Permanência FROM TabAluno

O detalhe é o seguinte, temos o campo entrada_001 que é transformado no campo permanência onde se calcula o tempo de permanência do aluno na casa, porém tenho mais 4 (quatro) campos entrada (entrada_002; entrada_003 etc) para em casos de reincidência do aluno não se cadastra de novo e sim apenas adiciona-se uma nova data de inclusão do mesmo na instituição.

VAmos supor que o aluno já seja reincidente, como vou calcular o tempo de permanencia dele na casa pela terceira data por exemplo, porque na consulta SQL está especificado o campo Entrada_001, como faço para fazer com que seja observado no banco de dados qual a ultima vez que o aluno esteve na casa e calcular o tempo de permanencia dele pela ultima vez em que esteve na casa? É possível que seja feito isso? E como? Alguém pode me ajudar neste sentido?

Agradeçidíssimo,


Adilson Calixto dos Santos

Voce pode ter 4 Cheks Boxs.. Quatro campos na tabela Sim/Não... Uma para cada entrada...

CheckBox 1 = Entrada 001
CheckBox 3 = Entrada 002
etc....

Com códigos que quando clicar em uma ChkBox.. a outra seja desmarcada....

E no código, cláusulas if's direcionando o código à entrada correspondente...

Algo mais ou menos assim

If CheckBox1 = -1 Then
SELECT TabAluno.Nome, TabAluno.Nome_Responsável, TabAluno.Cidade," _
& "TabAluno.Estado, TabAluno.Entrada_001, TabAluno.Saída_001, AnoMesDia([Nascimento]) AS Idade," _
& "AnoMesDia(]Entrada_001]) AS Permanência FROM TabAluno
End If

If ChekBox2 = -1 Then
SELECT TabAluno.Nome, TabAluno.Nome_Responsável, TabAluno.Cidade," _
& "TabAluno.Estado, TabAluno.Entrada_001, TabAluno.Saída_001, AnoMesDia([Nascimento]) AS Idade," _
& "AnoMesDia(]Entrada_002]) AS Permanência FROM TabAluno
End If


Assim será executado o codigo conforme a entrada... se 001 se 0002 etc...

Valeu mestre é isso mesmo só de olhar já dá para ver que é solução.


Brigadooooooooooooooooooooooo


Atenciosamente,

Adilson

O Fórum agradece o Retorno. Bom trabalho.