Na Hora De Salvar, Como "somo" o ID?

[Luiz Gehlen 0]

Boa Tarde, minha duvida é a seguinte.

Quero Salvar um Registro no banco de dados Em Acess.

Estou usando Objeto Data.

meu codigo esta assim.

 

Private Sub BtnNovo_Click()
Data1.Recordset.MoveLast
TxtCode.Text = TxtCode.Text + 1
Data1.Recordset.AddNew
TxtNome.SetFocus
End Sub

O trauma é o seguinte.

Quando eu vou salvar, ele não "Soma" o id.

Qual Seria (Se Houver) a solução Mais plausivel?

Obg.

[Claudio Neto 3]

Quando você manda fazer isso:

TxtCode.Text = TxtCode.Text + 1

Está fazendo?

 

Está aparecendo em sua text o ID anterior mais 1?

[Luiz Gehlen 0]

Já tinha tentado isso e não funcionou.

Ele sobrepoe o antigo registro

a solução encontrada foi a seguinte

Dim IDsomado As String
TxtCode.Text = IDsomado 'tendo como foco a clareza de codigo'
IDsomado = IDsomado +1
TxtCode.Text = IDsomado

Existe Solução mais pratica?

[Claudio Neto 3]

Como assim ele sobrepõe o antigo?

 

Se código está correto, só tem uma linha a mais desnecessária ai:

TxtCode.Text = IDsomado

Isso não está acrescentando nada ao seu código.

[Luiz Gehlen 0]

Esta Acrecentando legibilidade

[Irenko 0]

Tente assim:

 

Public Sub Gerar_Codigo()

'Gerando codigos sequenciais de acordo com o ultimo reg

Set RstID = New ADODB.Recordset

RstID.Open "SELECT MAX(Id) AS Id FROM Dados", _

ConexaoEPI, adOpenForwardOnly, adLockReadOnly

With RstID

If .EOF = True And .BOF = True Then

N_ID = "1"

Else

.MoveLast

N_ID = Val(.Fields("Id")) + 1

End If

Lb_Codigo.Caption = Format(N_ID, "0000")

End With

RstID.Close

Set RstID = Nothing

End Sub