Autor Tema: Re: Grupo de Opciones (Leído 1643 veces)

FRIJU · « **en:** Jueves 29 de Mayo de 2003, 15:39 »

Hola compañer@s!

Tengo en un formulario un Frame, para un grupo de opciones.
El caso es el siguiente, realizo un recordset, traigo el valor que tiene ese campo 1,2...., como activo la casilla correspondiente del grupo.

Muchas Gracias de antemano.

Mellileo · « **Respuesta #1 en:** Jueves 29 de Mayo de 2003, 21:38 »

Tal vez te pueda ayudar, pero debes ser más específico y claro en tu problema.

FRIJU

Tengo en un formulario un Frame, para un grupo de opciones.
El caso es el siguiente, realizo un recordset, traigo el valor que tiene ese campo 1,2...., como activo la casilla correspondiente del grupo.

Ejemplo:
Tengo un frame que tiene las opciones siguientes:
Investigación
Oferta
Desarrollo

cada opción debe ser un valor 1,2,3
cuando traigo el recordset con alguno de estos valores ¿ como lo adjudico al Frame?
y activo las casillas.

Mellileo

Lo que tienes que hecer es utilizar la sentencia Selec Case así:

Select Case rs.campo
Case 1
opcion1.value = true
Case 2
opcion2.value = true
Case 3
opcion3.value = true
End Select

Estas líneas las escribes después de que se actualice el recordset que tiene el valor del campo.

J.M.Movilla

No sé si he comprendido bien tu problema. Por si acaso te adjunto este código que he preparado específicamente para tu caso.

Saludos

richicuas · « **Respuesta #5 en:** Lunes 2 de Junio de 2003, 17:57 »

Un modo en que lo puedes resolver, es nombrando del mismo los controles de tus tres opciones, por lo que tendras que utilizar la propiedad Index, lo que significa que tiene un arreglo de controles. Ahora para seleccionar alguna de estas opciones según el valor del campo leido, lo puedes hacer de la siguiente manera

ctl_OptionControl(rst_Recordset("Campo")).Value =true

De esta manera si el valor de tu campo es 1, entonces activaras tu control de opciones cuyo valor indice sea 1.

Espero que esto te sea de ayuda, y si no entonces quizá podrias explicarme mejor que es lo que requieres.

Espero me digas como te fué, y me avises por si requieres de ayuda adicional

FRIJU · « **Respuesta #6 en:** Martes 3 de Junio de 2003, 09:09 »

Al final lo he heco como decía melileo.

Select Case Rst("PRODESTINO")
Case Is = 1 'Investigación
Me.GrpDestino1.Value = True
Case Is = 2 'Oferta
Me.GrpDestino2.Value = True
Case Is = 3 'Desarrollo
Me.GrpDestino3.Value = True
End Select

Muchas gracias a todos.