[Resolvidos]Ordenar numero de itens inverso ao modo decrescente do formulário

Olá amigos, tenho uma dúvida, deve ser facil para vocês.

É o seguinte, tenho um subform que relaciona os itens de saida da tabela produtos, e está na ordem decrescente, a saída mais nova fica sempre em cima.

Tenho um campo que na fonte de controle está =Numero_Linha() para contar os itens, mas preciso que o ultimo item que saiu tenha a ultima numeração da linha.

Ex.

Numero/Saidas   Data/Saida      Produto

03                    01/02/2010     MOUSE USB

02                    31/01/2010     PANELA DE PRESSÃO

01                    30/01/2010     CHINELO

O que está acontecendo é que no numero/saidas a numeração começa com 1 e não 3 conforme o ultimo registro, entendem?

Ola Gilberto;

Cole esta função num módulo novo e salve:

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
   
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1 & "º"
    End With
   
Exit_RowNum:
    Exit Function
   
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

Na origem da caixa de texto que vai faz a numeração, coloque:

=RowNum([Form])