[Resolvido]Numeração de item recomeçar quando mudar numero do pedido

Bom dia

Segue BD, a VBA esta no código do produto do Subformulário, não consigo fazer a autonumeração personalizada do item,peço gentileza alguém me ajudar e se possível comentada.

Att,

OPS!! desculpe-me pelo erro BD em anexo.

onde esta a bd?

Olá bitabit, bd em anexo.

ja ca tenho a bd, pode explicar melhor o que pretende fazer?

Bom dia,

Gostaria que o campo item fique com autonumeração, só que quando a criar um novo pedido a autonumeração iniciace do 1 exemplo:

Pedido nº 01/2012

item
1
2
3

Pedido 02/2012

item
1
2
3
4

E assim por diante

Att,

Up!!!!

Up.

UP.

nada!!! ninguém,????

Alguém pode me ajudar???

up.

up!!!

Anderson, veja o codigo a funfar;

Private Sub Produto_AfterUpdate()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo ® Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("Item", "tblSubpedidocompra", "[N_Pedido] = '" & Me.N_Pedido.Value & "'"), 0)
If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
'se não existir numeração, insere o equipamento + 001 para iniciar
numeroencontrado = "01"
'devolve ao campo a nova numeração
Me.Item.Value = numeroencontrado
Else
'se já existir numeração na tabela, acrescenta +1
proximoNumero = Nz(DMax("Item", "tblSubpedidocompra", "[N_Pedido] = '" & Me.N_Pedido.Value & "'"), 0) + 1
'devolve ao campo a nova numeração
Me.Item.Value = Format(proximoNumero, "00")
End If
End Sub

Olá

Outra opção é numerar sem precisar salvar a numeração em si.  

Segue arquivo modificado.

veja este meu artigo sobre numeração em Formulário. Usei este código no seu exemplo.

http://www.usandoaccess.com.br/dicas/dica36.asp?id=1#inicio

E este sobre como numerar em relatório

Somar, contar e numerar em relatórios

Bom estudo!

Bom dia a todos.


JPaulo, tentei por diversas vezes usar este código, mais não conseguia adaptar, rsrsrsr vou olhar bem as alterações para aprender, muito obrigado.

Avelino Sampaio, gostei muito do incremento no campo item, me será útil para outra aplicação, como já lhe disse sou seu fã e acompanho não com a frequência que deveria o usando access.

Obrigado a todos que me ajudaram a vencer esta que para mim foi uma batalha, e que todos saibam o quanto sou grato ao fórum.

Att,