Visual Basic - regenerar codigo

Life is soft - evento anual de software empresarial
 
Vista:

regenerar codigo

Publicado por Beto_22 (106 intervenciones) el 23/12/2003 19:12:21
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:regenerar codigo

Publicado por kinoscar (233 intervenciones) el 23/12/2003 19:25:39
no te entendi muy bien que digamos, pero haber
RC-12/03-00001
RC-12/03-00002 (ultimo registro)

RC-12/03-00002 (elimino registro)

y lo que quieres es que el codigo del siguiente ingreso sea
RC-12/03-00002
eso es lo que yo entendi, si estoy en lo cierto tendrias que hacer lo siguiente: moverte al ultimo registro, extraer los ultimos 5 caracteres del codigo, transformarlos a numerico, sumarle uno y listo:
el codigo deberia ser algo asi
t=mid(12/03-00002,len(12/03-00002)-5,5)
t=t+1
y el resto lo sabes tu

ojo que no esta probado y quizas necesite uno que otro ajuste

que te sea de utilidad
suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar