como mostrar / editar check box? II parte

[principefreddy]

hola. se me hizo imposible conectarme sino hasta hoy. los codigos que utilizo para guardar los check en la base de datos son los siguientes:

rs!honor = HonorMerito.Value
rs!E_Policial = E_Policial.Value
rs!Diciplina = Diciplina.Value
rs!E_Trabajo = Espiritu.Value

esos datos se los muestra en un MSHFlexigrid. donde al darle doble click me llama una consulta que la pondre abajo.. para si cargar los datos a otro formulario. la consulta tiene esto:

rs.Open "SELECT * FROM chicas WHERE codigo = " & iCodigo, nc, adOpenDynamic, adLockOptimistic
While Not rs.EOF

frmEdit.lbCedula.Text = rs!cedula
frmEdit.lbNombre.Text = rs!NOMBRE
frmEdit.lbApellido.Text = rs!apellido
frmEdit.lbFecha.Text = rs!fechaingreso
' de aqui para abajo es donde trato de cargar los check
'frmEdit.Check1.Value = True 'rs!E_Trabajo
'frmEdit.Check2.Value = rs!honor
'frmEdit.Check3.Value = rs!Diciplina
'frmEdit.Check4.Value = rs!E_Policial

*)el problema me lo muestra en cada linea de codigo que intento llamar al check.

espero me ayuden. y me digan como poder modificarlos.

[seba123neo]

Hola, pero que error te tira?? proba hacerle un Cbool() al campo...

saludos.

[principefreddy]

no m e funciona con lo que me diste.. lo que quiero es que si en la base de datos los check son verdaderos entonces cuano lo mande oara el otro firmulario me lo marque true.. y alli es donde me aparece el error.

rs.Open "SELECT * FROM chicas WHERE codigo = " & iCodigo, nc, adOpenDynamic, adLockOptimistic
While Not rs.EOF

frmEdit.lbCedula.Text = rs!cedula
frmEdit.lbNombre.Text = rs!NOMBRE
frmEdit.lbApellido.Text = rs!apellido
frmEdit.lbFecha.Text = rs!fechaingreso
' de aqui para abajo es donde trato de cargar los check
'frmEdit.Check1.Value = True 'rs!E_Trabajo
'frmEdit.Check2.Value = rs!honor
'frmEdit.Check3.Value = rs!Diciplina
'frmEdit.Check4.Value = rs!E_Policial

en las lineas amarillas en donde digo que me mande lo que tengan los check (true) para el formulario frmEdit.

[Avellaneda]

Prueba así:

frmEdit.Check2.Value = IIf(rs!honor = True, Checked, Unchecked)
...

Nota: No escribas en color amarillo (no se lee) puedes poner cualquier otro color para resaltar.

[principefreddy]

Excelente avellaneda.. Eso era lo que necesitaba. Gracias.