Ajuda com o Código =Numero_Linha()

Bom dia a todos! Mais uma vez venho pedir socorro.

Tenho um formulário e dentro deste há um subformulário alimentado por uma consulta. Neste subformulário possui os campos (Itens, Produto, Valor, Quantidade, Estoque, Etc.). O campo Produtos é uma caixa de seleção, uma vez selecionado o produto, alguns campos preenchem automaticamente, como o Valor. Ocorre que necessito que de acordo que vão acrescentando os produtos, no campo item vai contando cada produto selecionado.

Ex.: Item Produto Quantidade Valor
01 Arroz 01 R$ 5,00
02 Feijão 01 R$ 8,00

Utilizei o módulo abaixo:

Function Numero_Linha() As Long
On Error Resume Next
RecordsetClone.Bookmark = Bookmark
If err = 0 Then
Numero_Linha = RecordsetClone.AbsolutePosition + 1
End If
End Function

O campo não está acoplado e chamei a função Numero_Linha() na opção "Fonte de Controle" do campo, ocorre que fica zerado. Adiciono os produtos e no campo Item apenas fica 0, não importando quantos produtos liste, que o campo fica zerado.

Agradeço àqueles que poderão ajudar-me.
Obrigado a todos!

olá marxif, é o seguinte, sugiro que faça da seguinte maneira.

vou chamar o formulário como pai, eu o subformulário como filho, consequentemente, tabelapai para o formulário e tabelafilho para o subformulário

tabelapai:
chavepai [númeração automática e única]
....

tabelafilho
chavefilho
chavepai [para relação]
item
....

no evento No Atual do form filho utilize o seguinte código (os itens marcados devem ser substítuidos):

If Me.NewRecord And Not IsNull(chavepai) Then 'se for um novo registro e chave pai não for nula (ou então não existirá relação)
Dim itemanterior As Recordset
Set itemanterior = CurrentDb().OpenRecordset("select max(item) as itemantigo from tabelafilho where chavepai = " & Me.chavepai) '
If IsNull(itemanterior("itemantigo")) Then ' identifica se não foram encontrados registros anteriores, ou seja, é o item 1
Me.item = 1
Else
Me.item = itemanterior("itemantigo") + 1
End If
Else
End If


Para evitar outros problema, sugiro que cole este código nos procedimentos do form pai

Private Sub Form_Current()
cliente.SetFocus 'para não focar no form filho

End Sub

Private Sub formfilho_Enter()
If IsNull(chavepai) Then
MsgBox "Por favor comece o registro"
cliente.SetFocus
Else
End If
End Sub


abraço, aguardo o retorno

Tabela pai não fica um pouco estranho não? Não seria melhor tabelas mãe e filha e formulários pai e filho? Aí ficaria a família completa e tradicional.

Sem querer ser homofóbico, senão alguem ainda me acusa de homofobia.

KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK

Obrigado Leandro pela ajuda! Mas, não funcionou...

eu fiz um exemplo, dá uma olhada, vê se ajuda...

Opa Leandron!

Verifiquei seu exemplo. Apenas uma dúvida... Os meus formulários são alimentados por consulta (tanto pai como filho), será por isto que não deu certo? Ou não há problemas?

Obrigado pela ajuda...

então, acredito que se a consulta (do filho apenas, o pai nao tem problema) envolver duas tabelas, ele não permitirá inclusão de novos dados, aí haverá a falha no código.

Caso vc ainda não conseguir adequar o exemplo a sua necessidade, posta o seu arquivo ai que eu dou uma olhada e vejo qual o melhor jeito para fazer. abraço