Olá amigos, tô pecisando criar um acampo autonumerado, via programação, sem usar autonumeração do access, algúem poderia me ajudar. O meu projeto é simples, tenho os seguintes campos.

Codigo do cliente: [é justamente neste campo que eu quero automatizar a numeração].

Nome:

Endereço:

Fone:

Email:

 

Ah! se for possível através do controle DATA, para ficar bem simples, agradeço.

 

Desde já agradeço,

caro colega isto pode ser conseguido com facilidade basta vc fazer o seguinte

utilizando o comado data.

 

eis o exemplo:

 

If Data1.Recordset.RecordCount <> 0 Then ' se não houver registros faça isto:
Data1.Recordset.MoveMax' mova para o ultimo registro
Text1.Text = Format(Data1.Recordset.Fields("autonum") + 1, "000") ' some mais um _

ao ultimo registro e formate para "000"
Else ' caso contrário...
Text1.Text = "000" ' insira o numero "000"
End If

neste caso voce cria em sua tabela um campo com nome de auto num e pronto

 

espero ter ajudado

não sei o que acontece mas já tentei atualizar 2 vezes e não deu certo então

estou mandando esta errata

 

onde está Movemax na realidade é M.o.v.e.L.a.s.t.

 

OK! Desculpe

No tópico anterior coloquei a palavra com pontos pois a mesma era alterada ao ser salva espero que entenda

AMIGO - OBRIGADO PELA DICA, PORÉM TENTEI E NÃO DEU CERTO, SERÁ QUE VOCÊ PODERIA ME MOSTRAR UM EXEMPLO COMPLETO?

 

DESDE JÁ AGRAD~EÇO.

 

VALEU MESMO.

 

Via código, então faz assim:

 

declara uma variável para jogar nela o valor do ultimo codigo acrescido de 1, ou seja, o codigo maior.

 

Dim vUltimoCod as long

 

depois faz um select para retornar o ultimo codigo:

 

Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdText
    .CommandText = " select max(cod)as ultimocod from tabela"
    Set rs = .Execute
End With
    With rs
    If IsNull(rs!ultimocod) Then
    vUltimoCod = 1
    Else
    vUltimoCod = !ultimocod + 1
    End If

 

Agora quando for inserir um novo registro é só inserir no lugar do campo código o valor da variável " & vUltimoCod & " que será sempre o valor o ultimo código inserido acrescentado de um e caso não aja mnenhum registro será inserido o primeiro

 

Beleza ? qualquer duvida estamos ai!