[Resolvido]Consulta identificando o nº de ordem do registo

Bom dia a todos.
Mais uma vez recorro ao vosso conhecimento para me ajudarem na resolução de um problema.
Tenho 1 tabela de registos com os seguintes dados (baseado num relógio de ponto):
#id colaborador#tipodepicagem#hora#data# (apenas isto)
#001#Entrada#9:00#1/6/2011
#001#Saida#12:00#1/6/2011
#001#Entrada#13:00#1/6/2011
e por ai fora....

Eu precisava obter uma consulta que me desse a indicação que a entrada às 9h00 corresponde ao 1º registo de entrada do dia 1 /6/2011 para o colaborador 001 e que a entrada às 13h00 corresponde ao 2º registo de entrada do dia 1/6/2011 para colaborador 001, e mais registos houvesse o nº de ordem seria sequencial.
O mesmo se deverá aplicar às saídas, naturalmente.

Alguém me pode ajudar?

Desde já o meu agradecimento.

Abraço.

Boa tarde, niro

Atenção aos nomes reservados do Access. Evite nomes de campos com espaço.
Coloque na origem da consulta
SELECT Descricao([id colaborador],tipopicagem,hora,data) FROM Tabela ORDER BY [id colaborador], data,hora;
Coloque num módulo

Function Descricao(ID As String, TipoPicagem As String, HoraPicagem As Date, DataPicagem As Date) As String
'criada por Alexandre Neves
'em 2011-06-01
'para niro35
'do fórum MaximoAccess
Dim Rst As DAO.Recordset, Ordem As Integer
Set Rst = CurrentDb.OpenRecordset("SELECT [id colaborador] FROM Tabela WHERE [id colaborador]=" & ID & " and tipopicagem='" & TipoPicagem & "' and data=#" & DataPicagem & "# ORDER BY hora;")

Ordem = 0
Do While Not Rst.EOF
Ordem = Ordem + 1
If HoraPicagem = Rst("Hora") Then
Descricao = Ordem & "º registo de " & TipoPicagem & " do dia " & Rst("data") & " para o colaborador " & Rst("[id colaborador]")
Exit Do
End If
Rst.MoveNext
Loop
Set Rst = Nothing
End Function
Cumprimentos,

Boa tarde/Noite Alexandre. Obrigado pela resposta.

Antes de mais o espaço nos campos foi mero acaso ao apresentar o problema aqui no fórum . Normalmente não deixo espaços nos nomes de campos.
Criei a consulta conforme me indicou com base na instrução sql. Criei a função Descricao substituindo os respectivos nomes dos campos.
No entanto ao correr a consulta surge um erro em como a função Descricao não está definida na expressão.
Já agora, a minha versão access é a 2010.

instrução SQL para a consulta:

SELECT Descricao(id_colaborador,tipo_picagem,hora,data)
FROM dados
ORDER BY id_colaborador, data, hora;

Instrução para o módulo Descricao:

Function Descricao(ID As String, TipoPicagem As String, HoraPicagem As Date, DataPicagem As Date) As String
'criada por Alexandre Neves
'em 2011-06-01
'para niro35
'do fórum MaximoAccess
Dim Rst As DAO.Recordset, Ordem As Integer
Set Rst = CurrentDb.OpenRecordset("SELECT id_colaborador FROM dados WHERE id_colaborador=" & ID & " and tipo_picagem='" & TipoPicagem & "' and data=#" & DataPicagem & "# ORDER BY hora;")

Ordem = 0
Do While Not Rst.EOF
Ordem = Ordem + 1
If HoraPicagem = Rst("hora") Then
Descricao = Ordem & "º registo de " & TipoPicagem & " do dia " & Rst("data") & " para o colaborador " & Rst("id_colaborador")
Exit Do
End If
Rst.MoveNext
Loop
Set Rst = Nothing
End Function

Um abraço!

Novamente,

Nomeie o módulo diferente da função. Pode ser apenas isso.
Cumprimentos,

Bom dia Alexandre.

Mudei o nome do módulo. Começou a correr, mas dá um novo erro de VB:

Run-time error '3075'
Erro de sintaxe (operador em falta) na expressão de consulta 'id_colaborador'='123410001 and tipo_picagem='1' and data=#08-04-2011# ORDER BY hora;'

Já tentei perceber que operador se trata mas não cheguei a nenhuma conclusão.

Um abraço.

Boa noite, niro

veja se é isto
Set Rst = CurrentDb.OpenRecordset("SELECT id_colaborador FROM dados WHERE id_colaborador='" & ID & "' and tipo_picagem='" & TipoPicagem & "' and data=#" & DataPicagem & "# ORDER BY hora;")
Cumprimentos,

Bom dia!

Antes de mais agradeço a atenção do Alexandre e peço desculpa por só agora responder.

Já experimentei a alteração e o erro continua.

Tomei a liberdade de enviar um exemplo da base, pois se calhar será melhor a análise.

Cumprimentos

Boa tarde, niro

Porque o id começa com pelica? É mau para trabalhar os dados.
Para tirar o 1º caracter:
Sub Tira1Caracter()
CurrentDb.Execute "UPDATE dados SET id_colaborador=mid(id_colaborador,2);"
End Sub

Utilize esta função e execute a consulta:
Function Descricao(ID As String, TipoPicagem As Integer, HoraPicagem As Date, DataPicagem As Date) As String
'criada por Alexandre Neves
'em 2011-06-01
'para niro35
'do fórum MaximoAccess
Dim Rst As DAO.Recordset, Ordem As Integer

On Error GoTo Sai
Set Rst = CurrentDb.OpenRecordset("SELECT id_colaborador,hora FROM dados WHERE id_colaborador='" & ID & "' and tipo_picagem=" & TipoPicagem & " and data=#" & Format(DataPicagem, "mm-dd-yyyy") & "# ORDER BY hora;")
Ordem = 0
Do While Not Rst.EOF
Ordem = Ordem + 1
If HoraPicagem = Rst("hora") Then
Descricao = Ordem & "º registo de (tipo de picagem " & TipoPicagem & ") do dia " & DataPicagem & " para o colaborador " & ID
Exit Do
End If
Rst.MoveNext
Loop
Set Rst = Nothing
Sai:
End Function

Cumprimentos,

Baoa tarde Alexandre!!!

Experimentei sem o apóstrofe no id_colaborador e usando a nova função e resulta!

O apóstrofe vem da "porcaria" do ficheiro que importo do relógio. Ele é gerado em formato txt e ao importar directamente para a tabela dados assume o apóstrofe, não sei bem porquê. A verdade é que toda a base foi criada e assente numa conversão desse nº para um nome e não me tem feito diferença. Esta consulta, porque vai à base "dados" (usando, portanto, os dados originais) estava a dar esta complicação.

Muito Obrigado Alexandre. Acho que agora dou conta do recado.