Auto Numerção Em Um Campo

[Guest - Anderson -]

Tenho um campo chamado Codigo eum um formulario que usa a base de dados em Access não quero usar o auto numerção do acsess como faço para que esse campo tenho autonumeração e armazeme esse valor no Access

[cyberalexxx]

Antes de dar um insert no banco recupere o ultimo valor do campo codigo, da pra fazer usando Select top 1 com um order by codigo desc e na hora do insert do novo registro informe que o valor do campo código será o valor recuperado +1

[Guest - Anderson -]

Tentei isto mas não deu poderia me ajudar

Public Icodigo As Long

With rs

Icodigo = 0

Dim sSQL As String

sSQL = "SELECT MAX(Codigo) as MAxPed From Nome da sua tabela "

Set rs = cn.Execute(sSQL)

If Not IsNull(rs!MaxPed) Then

Nome do seu formulário.Icodigo = Format(Val(rs!MaxPed + 1), "0000")

txtCodigo.Text = Format(Icodigo, "0000")

Else

Nome do seu formulário.Icodigo = Format(Icodigo, "0000")

txtCodigo.Text = Format(Icodigo, "0001")

End If

End With

End Sub