[Resolvido]Ajuda com uma instrução

Boa tarde,

Espero estar colocando o tópico no local correto.

Eu escrevi essa instrução de consulta e não funciona de forma alguma, trava o programa, e como acho que estou numa fase equina até para procurar na net (pois já procurei mas é como eu não entendesse o que está escrito, peço a compreensão e ajuda.

se resume nisso:

Private Sub AtualizaRetorno()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

Set db = CurrentDb

strSQL = "SELECT * FROM FUNCIONÁRIOS WHERE FUNCIONÁRIOS.[SITUAÇÃO NA UNIDADE] > 1 And FUNCIONÁRIOS.[SITUAÇÃO NA UNIDADE] < 6 And FUNCIONÁRIOS.RETORNO < Date"
(Não funciona. Trava o módulo)

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
(em conjunto com a primeira não funciona. Trava o módulo)


Set rs = db.OpenRecordset("FUNCIONÁRIOS", dbOpenDynaset)
(usando esse código e não os dois de cima, tudo funciona perfeitamente)


If rs.RecordCount = 0 Then Exit Sub

rs.MoveFirst

Do While Not rs.EOF
If rs.Fields("SITUAÇÃO NA UNIDADE") > 1 And rs.Fields("SITUAÇÃO NA UNIDADE") < 6 And rs.Fields("RETORNO") < Date Then
rs.Edit
rs.Fields("SITUAÇÃO NA UNIDADE") = 1
rs.Update
End If
rs.MoveNext
Loop


rs.Close
Set rs = Nothing
Set db = Nothing

End Sub

Sei que o nível aqui é bem elevado, mas perdoem o equino.

Boa tarde,

Voce quer saber exatamente o que? O porque de estar travando o código?

Abraço.

Boa tarde.

Exatamente.

Usando a tabela FUNCIONÁRIOS:
Set rs = db.OpenRecordset("FUNCIONÁRIOS", dbOpenDynaset)
funciona perfeitamente.


Usando a consulta:
strSQL = "SELECT * FROM FUNCIONÁRIOS WHERE FUNCIONÁRIOS.[SITUAÇÃO NA UNIDADE] > 1 And FUNCIONÁRIOS.[SITUAÇÃO NA UNIDADE] < 6 And FUNCIONÁRIOS.RETORNO < Date"
além de não funccionar, para tudo ao tentar sair do programa.

Bom dia
tente
strSQL = "SELECT * FROM FUNCIONÁRIOS WHERE [SITUAÇÃO NA UNIDADE] > 1 And [SITUAÇÃO NA UNIDADE] < 6 And RETORNO < Date()"

Boa tarde.

Obrigado pelas ajudas, mas depois de pesquisas, o que resolveu foi deixar a instrução da forma abaixo:

strSQL = "SELECT * FROM FUNCIONÁRIOS WHERE FUNCIONÁRIOS.[SITUAÇÃO NA UNIDADE] > '" & 1 & "' And FUNCIONÁRIOS.[SITUAÇÃO NA UNIDADE] < '" & 6 & "' And FUNCIONÁRIOS.[RETORNO] < #" & Date & "#"

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)


Só uma pergunta qos senhores para finalizar:

É melhor usar instrução SQL acima ou diretamente usando a tabela como abaixo?

Set rs = db.OpenRecordset("FUNCIONÁRIOS", dbOpenDynaset)

Obrigado mais uma vez.

Boa tarde,
A diferença está que a 1ª carrega dados filtrados pelas condições enquanto a 2ª carrega a tabela toda