compatibilidad booleanos de access - VB-MUNDO

alfonsoestampida · #1 (**permalink**) 24-02-2005, 10:15:09

tengo en una base de datos un booleano de esos de tipo "si/no"
y en visual basic tengo un formaulario con un checkbox

como asigno el valor del CHK a la tabla? :smt017

para ayudar voy a poner lo que e intentado yo y no va ninguno :smt011 :

Const sPathBase As String = "pcon.mdb"
Set BD = OpenDatabase(sPathBase)
RS = BD.OpenRecordset("SELECT * FROM servicios where codigo like '" + TXT_CODI.Text + "'", dbOpenDynaset)
With RS
If CHK_CONT.Value Then
'.Fields("contabilidaza") = CHK_CONT.Value
'.Fields("contabilidaza") = 1
'.Fields("contabilidaza") = True
'.Fields("contabilidaza") = "1"
'.Fields("contabilidaza") = "True"
'.Fields("contabilidaza") = "si"
'.Fields("contabilidaza") = si
'.Fields("contabilidaza") = ok
'.Fields("contabilidaza") = "ok"
Else
......
end if
end with
........

acalanto · #2 (**permalink**) 24-02-2005, 10:25:48

Debería funcionarte con true, false, 0, 1 o -1, donde 0 es falso y 1;-1 es verdadero.

Lo que no veo por ninguna parte en tu código, es que ejecutes movimientos a ningún registro y desde luego no lo editas, y por lo tanto no puedes modificar el valor del campo.

¿ A ver si el problema va ser este que te digo ?

alfonsoestampida · #3 (**permalink**) 24-02-2005, 10:41:10

os estoy diciendo que ya he probado con true, false, 0, -1, 1 y lo demas
y no me deja

a lo que te refieres es que no hago update?...esta despues del if

J.M.Movilla · #4 (**permalink**) 24-02-2005, 11:18:12

¿Y has puesto un stop detrás de If CHK_CONT.Value para comprobar si su valor en True? Porque si pasa por esas líneas. alguna tendría que servirte (sobre todo la de 1 y 0)...

Yo te puedo garantizar que en una aplicación mía .Fields("MedHig") = ChMedHig.Value FUNCIONA PERFECTAMENTE, lo que quiere decir que en tu caso debe ser válida la línea
.Fields("contabilidaza") = CHK_CONT.Value

acalanto · #5 (**permalink**) 24-02-2005, 11:39:48

Lo que nos estás diciendo creo haberlo entendido desde la primera hasta la última línea al menos considero tener ciertas habilidades para comprender lo que leo siempre que esté expuesto con claridad, naturalmente.

Lo que parece es que no me comprendes cuando te digo que si lanzas una sentencia SELECT, puede devolverte

a) sin registros.
b) un registro.
c) más de un registro.

y en mi humilde opinión creo que deberías hacer algo como

Código:

RS.Movefirst
do until RS.EOF
    'Editamos el registro, de lo contrario NO ES POSIBLE MODIFICAR EL CONTENIDO
    RS.Edit
    RS.Fields("contabilidaza") = iif(CHK_CONT.Value<>0,-1,0)
    RS.Update
    RS.MoveNext
loop

INSISTO: ¿ A ver si es que el problema es que NO EDITAS EL REGISTRO ACTIVO ?

J.M.Movilla · #6 (**permalink**) 24-02-2005, 11:53:28

Insistiendo en que estás poniendo bien la instrucción de reemplazar, y apoyando la teoría de acalanto, que indudablemente es lo que te está ocurriendo, te aconsejo que pongas el STOP en la línea siguiente a la carga del recordset y preguntes qué valor tiene ese campo que quieres modificar .Fields("contabilidaza"). Seguro que te va a sosprender la respuesta de que no existe ningún registro donde buscar ese campo, por lo que tampoco podrá actualizarlo... Tendrás que hacer al menos un .MoveFirst o un .Requery

Por otra parte, ese campo lógico deberás actualizarlo con el formato que hayas definido al crear la tabla... No lo olvides...

Y finalmente, reprimir los malos humos, tampoco suele venir mal...

alfonsoestampida · #7 (**permalink**) 24-02-2005, 12:06:45

cuantas cosas por probar

me tengo que ir :smt009
mañana lo pruebo y os cuento como me ha ido