regenerar
Publicado por Beto_22 (106 intervenciones) el 23/12/2003 19:05:29
holas amigos e logrado hacer gernerar un numero alfanuemrico que funciona asi
general declaraciones
Dim t As Integer
Private Sub Form_Load()
t = 0
Private Sub cmdAdd_Click()
t = t + 1
Text_num.Text = Tex.cadena.Text & Format$(t, "00000")
bueno me genera un codigo como este "A1-RC-12/03-00001" lo que esta bien ...........el problema esta en que a la hora de eliminar este codigo mediante un botton este codigo sigue generando como si no lo ubiera echo.................lo que deceo hacer es que a al hora de eliminar o cancelar el registro me concidere el ultimo registro ingresado ejm: "A1-RC-12/03-00001","A1-RC-12/03-00002"si elimino el "A1-RC-12/03-00002" debe seguir la secuencia somo si no ubiera eliminado este ultimo o sea el nuevo en ingresar seria el mismo no"A1-RC-12/03-00002"....como si no lo ubiera generado esto es posible a i claro para cada cliente como si fuera desde cero espro que mepuedan ayudar.gracias
general declaraciones
Dim t As Integer
Private Sub Form_Load()
t = 0
Private Sub cmdAdd_Click()
t = t + 1
Text_num.Text = Tex.cadena.Text & Format$(t, "00000")
bueno me genera un codigo como este "A1-RC-12/03-00001" lo que esta bien ...........el problema esta en que a la hora de eliminar este codigo mediante un botton este codigo sigue generando como si no lo ubiera echo.................lo que deceo hacer es que a al hora de eliminar o cancelar el registro me concidere el ultimo registro ingresado ejm: "A1-RC-12/03-00001","A1-RC-12/03-00002"si elimino el "A1-RC-12/03-00002" debe seguir la secuencia somo si no ubiera eliminado este ultimo o sea el nuevo en ingresar seria el mismo no"A1-RC-12/03-00002"....como si no lo ubiera generado esto es posible a i claro para cada cliente como si fuera desde cero espro que mepuedan ayudar.gracias
Valora esta pregunta
0