Access - Generador de codigo

 
Vista:
sin imagen de perfil

Generador de codigo

Publicado por Roberto (1 intervención) el 24/09/2015 01:12:00
Hola, pos el problemA QUE TENGO ES QUE TENGO LOS CONOCIMIENTOS YA MUY FRIO EN ACCES Y LA CUESTION ES QUE NESECITO GENERAR UNA FORMULARIO EN CUAL ME GENERE CODIGOS PARA LA ACCINACION EN PRENDAS TEXTILES, UTILIZANDO LOS SIGUIENTE CAMPOS----> Linea (000),Provedor(000),Estilo(000),Autosuma(000)---->Son estos cuatro campos que en un quinto me arroje ya el codigo. EJEM. Linea (001),Provedor(001),Estilo(001),Autosuma(001) y en el campo de codigo aparesca "001001001001",los primeros tres campos ya son predeterminados por la fabricane la que trabajo y el cuarto se autosume "001 - 002 - 003 " y asi susesivamente
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
sin imagen de perfil

Generador de codigo

Publicado por Enrique Heliodoro (1664 intervenciones) el 24/09/2015 09:09:04
Supongamos datos tales como Línea, Proveedor, Estilo

.- Se verifica que existan (que no sean valores nulos)
.- se juntan en un dato único (Mi_Dato = Me.Línea & Me.Proveedor & Me.Estilo)

Se supone una tabla con un campo de nombre 'codigo' y datos tales como :
001001001001
001001001002
001001002001
...................
001001002NNN
001001001NNN

El siguiente en la serie que comienza por 'MI_Dato' será:

Siguiente = Mi_Dato & Format(Nz(DMax("Val(Mid([Codigo],10))", "LaTabla", "Left([Codigo],9)='" & Mi_Dato & "'"),0) + 1,"000")

Una parte nos sirve para filtrar a los que comiencen por 'Mi_Dato'
localizado ese subconjunto lo convertimos a numero
Tras ello localizamos al mayor (o un cero si no hay ninguno)
A ese resultado le añadimos una unidad
Y lo convertimos a texto formateado
Si se lo agregamos al dato que teníamos, .....
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