calculo de codigo

hola, fredy !

si expones (al menos) la parte de tu codigo donde realizas la concatenacion -?-
y comentas de cada optionbutton que concatenacion se hace (o probablemente)...
te convendria tener un procedimiento que (re)genere el codigo y llamarlo en cada evento de tus controles

saludos,
hector.

__ OP __

... tengo un formulario con... optionbutton) y cuadros de texto... generan un codigo para un elemento
... como... hacer... que cada vez que realice una seleccion ( optionbutton) me regenere el codigo del elemento
el codigo se genera como un concatenar de acuerdo a las selecciones que el usuario vaya tomando
... la primera parte del codigo... uno de tres optionbutton la segunda parte... el dato de un cuadro de texto
la tercera parte uno de dos optionbutton y la cuarta es el dato de un cuadr de texto.. para quedar algo asi
CF1-600-I-50

hola Hector

asi lo resolvi..
Private Sub CALCOD()
IDREG = ""
EDITAR.Visible = False
INGRESAR.Visible = True

If CF1 = True Then PP = "CF1"
If CF2 = True Then PP = "CF2"
If CP = True Then PP = "CP"

If COTA <> "" Then SP = COTA Else SP = " FALTA COTA "

If HNO <> "" Then TP = HNO Else TP = " FALTA NUMERO HUECO "

If ED = True Then CPC = "D"
If EI = True Then CPC = "I"

If THP = True Then QP = "P"
If THS = True Then QP = "S"
If THT = True Then QP = "T"
If THO = True Then QP = "O"

CODIGO = PP & "-" & SP & "-" & TP & CPC & QP
end sub

pero para cada boton tenia que poner

Private Sub CF1_Click()
CALCOD
End Sub
no se si hay una forma de ejecutar CALCOD al hacer cualquier cambio sin
tener hacer lo anterior para cada "optionbutton"
cordial saludo
fredy

hola, fredy !

asi lo resolvi...
(...)
pero para cada boton tenia que poner
Private Sub CF1_Click()
CALCOD
End Sub
no se si hay una forma de ejecutar CALCOD al hacer cualquier cambio sin tener hacer lo anterior para cada "optionbutton"

para el efecto que quieres lograr (dinamico o "en tiempo real") no lo creo (por eso te habia sugerido "llamarlo" en cada evento...)
probablemente la alternativa pudiera ser por un modulo "de clase" (pero te saldria "mas caro el caldo que las albondigas") :-((

saludos,
hector.

__ el codigo ___

Private Sub CALCOD()
IDREG = ""
EDITAR.Visible = False
INGRESAR.Visible = True

If CF1 = True Then PP = "CF1"
If CF2 = True Then PP = "CF2"
If CP = True Then PP = "CP"

If COTA <> "" Then SP = COTA Else SP = " FALTA COTA "

If HNO <> "" Then TP = HNO Else TP = " FALTA NUMERO HUECO "

If ED = True Then CPC = "D"
If EI = True Then CPC = "I"

If THP = True Then QP = "P"
If THS = True Then QP = "S"
If THT = True Then QP = "T"
If THO = True Then QP = "O"

CODIGO = PP & "-" & SP & "-" & TP & CPC & QP
end sub