Auto Numerção

[Ander]

Olá pessoal Estou tentado fazer um auto numeração o que eu quero quando eu clicar no nemu Incluir o campo codigo vai ser auto numerção não não funciona estou usando base de dados access atraves do ADO

Meu codigo é esse

Private Sub mnuArquivoIncluir_Click()

Txtempresa.SetFocus

'Adciona um novo registro.

Clientes.Recordset.AddNew

Public Icodigo As Long

With rs

Icodigo = 0

Dim sSQL As String

sSQL = "SELECT MAX(Codigo) as MAxPed From Clientes "

Set rs = cn.Execute(sSQL)

If Not IsNull(rs!MaxPed) Then

Form1.Icodigo = Format(Val(rs!MaxPed + 1), "0000")

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

Else

Form1.Icodigo = Format(Icodigo, "0000")

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

End If

End With

End Sub

o que tem de errado poderia me ajudar

[Decio]

porque você não cria um campo auto numeração no próprio banco de dados?

[Ander]

pois quando eu excluo esse numero nunca mais é usado

[Decio]

pois quando eu excluo esse numero nunca mais é usado 

Então o Campo auto-Numeração do Access vai servir para vc.

quando você apaga um registro, não é mais criado outro numero igual ao que foi apagado.

Caso você queira criar sua propria rotina de auto numeração, principalmente

no seu caso que não quer repetir um mesmo numero, você deve saber qual foi

o ultimo numero criado, o que não esta claro no seu código de como você vai fazer isto.

Uma sugestão , seria você criar um campo em uma tabela separada apenas para armazenar o ultimo numero.Assim que você criar um novo, incrementa + 1 e salva o novo numero.