Descrição:
Como fazer com que um script busque o último valor registrado em um campo de uma tabela?
Solução:
Para isto, deve-se configurar uma consulta SQL que busque o último valor na tabela.
Caso esteja utilizando um banco de dados Access*, pode ser usada uma consulta semelhante a esta:
SELECT LAST(NomeCampo) as UltimoCod
FROM Tabela
*Em versões atuais, o Access suporta apenas o comando TOP.
Caso esteja utilizando um banco de dados SQL Server, pode ser usada uma consulta semelhane a esta:
SELECT Top 1 ([E3TimeStamp])
FROM Tabela
ORDER BY E3TimeStamp DESC
Uma vez configurada a consulta na aplicação, deve-se criar o script que a executará e depois manipular o valor retornado por ela por RecordSet.
Um exemplo de script é este:
set ResultadoConsulta = Application.GetObject("Dados.Consulta1").GetADORecordset()
UltimoValor = ResultadoConsulta.Fields("UltimoCod").Value
Quando ele for executado, o último registro existente na tabela do banco de dados será carregado para a variável UltimoValor.
