ayuda con option button

[jonathanjd]

hola tengo un problema! estoy haciendo una base de dato! con adodc y bueno para enlazar los las cajas texto todo bien! pero como enlazo un option button quiero colocar una opcion de si es hombre o mujer coloco el option button pero no se como hago para q lo registre en access?

[jonathanjd]

alguien tiene una idea x lo menos? o q tal un checkbox? de manera q le da la opcion M y se guarde en mi base de dato!

[oskarvisual]

Puedes tener una variable de tipo STRING, con lo cual al procesar el formulario pongas:

Código vb:

If Option1.Value = True Then Sexo = "M" Else Sexo = "F"
 

y solo guardas el valor de la variable en la base de datos, lo mismo a la hora de recuperar los datos, preguntas si es M o F y según el resultado marcas el option button correspondiente.

Saludos

[buxforever]

Otra opcion seria:

Que pasaras el valor a una (Caja de texto)

Código vb:

if option1.value=true then
Text1.text="Masculino"
end if
if option2.value=true then
text1.text="Femenino"
end if
 

[XYON126]

hola!

Te has planteado la idea de activar un boton o no dependiendo de si es honbre o mujer, no se si es tambien tu idea. Por ejemplo.: si el boton selector se llama hombre y mujer pues hacer esto.:

Código vb:

If hombre = True Then
boton1.Enabled = True
boton2.Enabled = False
ElseIf mujer = True Then
boton2.Enabled = True
boton1.Enabled = False
End If
 

o realizar Case, s en vez de inabilitar botones.

Un saludo

[buxforever]

El lo quiere realizar con (Optionbox)..no botones

[jonathanjd]

Waa muchachos gracias a todos por la ayuda! buxforever gracias x la idea me funciono!

[jonathanjd]

ahora! lo que hice fue eso y con la caja de texto conecto a la base de datos! ahora! guarda la informacion todo bien pero hay otro problema jejeje cuando estoy pasando los datos con el adodc el optionbutton se queda en el dato anterior! si el primer registro es hombre cuando le doy el siguiente me sale en el misma opcion claro yo coloque un label y refleja el genero! aqui tengo unas imagenes muchachos ayuda hay solo me falta esto para terminar mi primer proyecto de base d dato jeje







Private Sub Option1_Click()
If Option1.Value = True Then
Text7.Text = "M"
Label12.Caption = Text7.Text
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Text8.Text = "F"
Label12.Caption = Text8.Text
End If
End Sub

claro al comienzo del programa no sale selecciono el optionbutton pero cuando empizea a utilizar pasa eso q no se actualiza x decirlo