Localizar Próximo Registro

Olá Pessoal,

Estou com um problema e até agora não consegui resolver, eis: Gostaria de poder pegar a próxima Data de uma tabela (tblEscalas) a partir de uma Data inserida no formulário, ou seja, na tabela há vários registros de um só Município, e gostaria de uma função que ao digitar uma data no meu formulário ele me retornasse apenas a Próxima Data daquele Município e não Todas as Próximas Datas.

Veja o Exemplo Abaixo



Alguém pode me ajudar?

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Você pode usar o mesmo princípio do outro tópico. Basta incluir a cláusula DISTINCT na instrução SQL para retornar apenas uma ocorrência de cada data:

Código:

...
... "SELECT DISTINCT Data FROM Tabela WHERE NomeMunicipio LIKE '" & Me.NomeMunicipio & "' And Data>#" & Me.CampoDaData & "# ORDER BY Data")

rs.MoveFirst

Me.ProximaData = rs!Data

...

Valeu Criquio, vou tentar mais tarde e depois eu te dou um retorno! Obrigado pela ajuda!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Então Criquio, não deu certo não, da erro de dados incompatíveis com ou sem # na expressão do campo Data. Teria outra forma? Tentei com o DLookup() usando o campo "CodigoDoMunicipio" e "DataDaEscala". Veja o código abaixo:

Código:

Private Sub datDataFinal _AfterUpdate()
Dim CompDatas

CompDatas = DLookup("[DataDaEscala]", "[tblEscalaDeFiliais]", "[DataDaEscala] > " & Me.datDataFinal & "" And "[CodigoDoMunicipio] = '" & Me.txtCodigoDoMunicipio & "'")
    Me.ProximaData = CompDatas
End Sub

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?