NUMERACAO AUTOMATICA EM TEXTBOX

USUARIO.EXCLUIDOS 03/04/2004 07:49:02
#18639
Amigos, com o cód. abaixo faço a numereção automática na inclusão. Preciso colocar antes do NR 02 Letras para idendificar o tipo de cadastro, Ex.:LM0001. Como faço isso sem prejudicar a numeração automática?

Private Sub Incluir_Click()
Limpa
Desativar
On Error Resume Next
Posição = tbl.Bookmark
Dim Carrega As Long
Carrega = tbl.RecordCount + 1
Do While Not tbl.EOF
Carrega = tbl("Registro") + 1
tbl.MoveNext
Loop
Flag = 0
tbl.AddNew
TxtDoc.SetFocus
TxtReg.Text = Carrega
TxtReg.Text = Format(TxtReg.Text, "0000")
End Sub
USUARIO.EXCLUIDOS 03/04/2004 11:24:16
#18666 Resposta escolhida
TENTE ISSO:


Private Sub Incluir_Click() 
Limpa 
Desativar 
On Error Resume Next 
Posição = tbl.Bookmark 
Dim Carrega As Long 
Carrega = tbl.RecordCount + 1 
Do While Not tbl.EOF 
Carrega = tbl("Registro") + 1 
tbl.MoveNext 
Loop 
Flag = 0 
tbl.AddNew 
TxtDoc.SetFocus 
TxtReg.Text = Carrega 
TxtReg.Text = "LM" & Format(right(TxtReg.Text,4), "0000") 
End Sub

Tópico encerrado , respostas não são mais permitidas
Voltar