GERAR CODIGO NA HORA DE GRAVAR REGISTRO

SANTANANETO 15/09/2009 09:49:18
#322907
E ae, conseguiu ?
ABDON 15/09/2009 10:57:07
#322915
SATANANETO a sua rotina é em ADO certo?
eu entendi sua rotina, e estou testando e vendo se encaixaria com o sistema.
ABDON 15/09/2009 11:08:06
#322917
Citação:


ERLANMG

Data2.RecordSource = [Ô]Select * from clientes order by codigo[Ô]
Data2.Refresh
If Data2.Recordset.EOF = True Then
text1.Text = geracodigo([Ô]1[Ô], 5)
Else
Data2.Recordset.MoveLast
text1.Text = geracodigo(Data2.Recordset!Codigo + 1, 5)
End If

Data1.Recordset.Index = [Ô]codigo[Ô]
Data1.Recordset.Seek [Ô]=[Ô], text1.Text
If Data1.Recordset.NoMatch = False Then
call exibir
MsgBox ([Ô]Código já cadastrado![Ô]), vbExclamation
call zerar
text1.SetFocus
Exit Sub
End If
Data1.Recordset.AddNew
call gravar
Data1.Recordset.Update


também uso DOA em meu projetos minha duvida é seguinte, eu não posso fazer o usuário perder os dados ja cadastrados, tenho que faze-lo esperar até possa gerar um novo código, esse é problema quando vou saber que é hora de gerar um novo código, sua rotina encaixa perfeitamente em meu sistema porém fica essa dúvida!!!!!!
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar