autogenerar un codigo en access

[waldobh]

hola amigos otra vwez por aqui y tengo para rato..pero el motivo es por que aqui si encuentro respuesta..
<Bueno el problema es el siguiente:
Tengo una tabla pedido y por ende tiene un numero que lo identifica, y se autogenera..pero con un problemita.ejemplo;
cliente X pide 8 articulos en el pedido.Nº 000012

eso quierre decir que el siguiente pedido seria el Nº 000013..pero no es asi. me sale Nº 000020. (esta sumando los registros, no el ultimo numero de pedido )
este es codigo que utilice

Set rs = New ADODB.Recordset
Set rs = cn.Execute("select * from pedido")
Dim nropedido As String
nropedido = "000000" & (rs.RecordCount + 1)
nropedido = Right(nropedido, 7)
txtnum_pedido.Text = nropedido
rs.Close

ya viste el error...si lo se...ahora quisiera una ayudadita de como puedo hacer para obtener el siguioente numero de pedido no del registro..
De antemano gracias
Chau!!!

[GeoAvila]

el problema es que el ultimo codigo lo estas sacando de un recount(suma de registros), lo que necesitar es tomar el mas alto de tus pedidos de la siguiente manera.

select * From Pedidos Order By Id_Pedido DESC

de esta manera de ordena el el mas alto en el primer puesto.. y ya lo podes tomar de esta menera en tu recordset

Nuevo Codigo = val(AdoPrimaryRs!id_pedido) + 1

nos vemos espero te sirva la idea, de esta manera yo lo uso yo y me funciona de maravilla nos vemos..