Visual Basic - Ayuda con creación de código de producto

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con creación de código de producto

Publicado por Victor (2 intervenciones) el 19/09/2017 19:56:48
Estimados, necesito ayuda para una tarea que seguramente para ustedes es muy sencilla pero para mi como amateur aun en la materia aun no lo es

Resulta que necesito concatenar (como se le dice en excel) una serie de dìgitos de un menú desplegable para crear un código final de producto en una viñeta de texto.

En total son 5 menús desplegables con sus respectivas opciones, los cuales no tuve problemas en crear, de una manera bien básica y quizás mas engorrosa para alguien que sabe mas pero al fin y al cabo sirve igual.

Cada opciòn que aparece en cada menú desplegable tiene un código, una letra o nùmero que lo identifica, esto con el fin de juntar estas letras y así crear un código final de producto como se ve en la imagen adjunta

El problema es que no sé como juntar estas letras en la viñeta de texto (Label7 que aparece en la parte mas baja de la foto). A continuacion esto es lo que he hecho, lo cual lo que me ha permitido llegar hasta lo q aparece en la foto adjunta.

Private Sub ComboBox1_Change()

Select Case ComboBox1.Value
Case "Carga"
Label7.Caption = "1510C"
Case "Impacto"
Label7.Caption = "1510I"
Case "Retorno"
Label7.Caption = "1510R"
Case "Retorno disco de goma"
Label7.Caption = "1510G"
Case "TUFKON"
Label7.Caption = "1510T"
Case "UHMW"
Label7.Caption = "1510U"
Case "Pesometrico"
Label7.Caption = "1510P"
Case "Manguito centrador"
Label7.Caption = "1510M"

End Select

End Sub



Private Sub UserForm_Activate()

ComboBox1.AddItem "Carga"
ComboBox1.AddItem "Impacto"
ComboBox1.AddItem "Retorno"
ComboBox1.AddItem "Retorno disco de goma"
ComboBox1.AddItem "TUFKON"
ComboBox1.AddItem "UHMW"
ComboBox1.AddItem "Pesometrico"
ComboBox1.AddItem "Manguito centrador"

ComboBox2.AddItem "B"
ComboBox2.AddItem "C"
ComboBox2.AddItem "D"
ComboBox2.AddItem "E"
ComboBox2.AddItem "F"

ComboBox3.AddItem "3"
ComboBox3.AddItem "4"
ComboBox3.AddItem "5"
ComboBox3.AddItem "6"
ComboBox3.AddItem "7"
ComboBox3.AddItem "8"

ComboBox4.AddItem "100-400"
ComboBox4.AddItem "401-700"
ComboBox4.AddItem "701-1000"
ComboBox4.AddItem "1001-1400"
ComboBox4.AddItem "1401-1800"
ComboBox4.AddItem "1801-2200"
ComboBox4.AddItem "2201-2500"

ComboBox5.AddItem "Entre caras y/o muesca"
ComboBox5.AddItem "T. cilindrica 1 1/8 DH"
ComboBox5.AddItem "T. cilindrica 1 1/4"
ComboBox5.AddItem "T. cilindrica 1 3/4"
ComboBox5.AddItem "T. 4 caras"
ComboBox5.AddItem "T. doble hexagono 1 1/8"
ComboBox5.AddItem "T. doble hexagono 1 1/4"
ComboBox5.AddItem "T. hexagono 2"

End Sub


Ejemplo
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
Imágen de perfil de Andres Leonardo

Ayuda con creación de código de producto

Publicado por Andres Leonardo (1106 intervenciones) el 19/09/2017 23:52:48
Lo mejor es usar Itemdata

Algo asi -...
cmb.AddItem Texto
cmb.ItemData Codigo


Pero si tu tienes tu codigo puedes usar esto

Clave = Label7.captuion & y todos los codigos de los labels que hayas concatenadso.... de acuerdo a lo que seleccionana en los combo...

espero te ayude
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