Tenho um sistema para controle de compradores de Vouchers (Passagem de táxi) e preciso no sistema gerar um código padronizado.
Não quero usar o auto numeração do access e todo exemplo que achei postado aqui, não me atende.
Preciso que o cadastro já comece com um código gerado conforme a minha necessidade.

Veja o Código abaixo:

Private Sub cmdNovo_Click()
Data1.Recordset.AddNew
'Auto Numeração --------------------------------
If Data1.Recordset.RecordCount = 0 Then
txtCodigo = "200600"
Else
Do Until Data1.Recordset.EOF
Data1.Recordset.MoveNext
txtCodigo = Data1.Recordset.Fields("codigo") + 1
Loop
End If
End Sub

Este Código acima funciona bem para o primeiro registro, depois me apresenta um erro:

Error
Run-time error '3021':
No Current Record.

Alguém pode me ajudar a melhorar este código???

Se alguém entendeu e puder me ajudar, agradeço.

Marcelino Neto

VB6.0
Access 97
DataControl

Private Sub cmdNovo_Click()
Data1.Recordset.AddNew
'Auto Numeração --------------------------------
If Data1.Recordset.RecordCount = 0 Then
txtCodigo = "200600"
Else
Data1.Recordset.MoveL a s t

txtCodigo = Data1.Recordset.Fields("codigo") + 1
Loop
End If
End Sub

 

Eu particularmente, não gosto de usar o controle DATA, tente o codigo acima

acredito que deva funcionar.

 

 

A instrução é sql de seu outro post é mais eficiente..