insert into checkbox

[analoyra]

Otra pregunta....
quiero insertar unos datos en checkbox en una tabla acces
rsAux.Open "insert into perfiles ( codperfil, nombre,tipocomprobante,comprobante,sucursal,perfil ,usuario,listado) values ('" & TxtCodigo.Text & "','" & TxtNombre.Text & "', 'ChkTC.Value', 'ChkC.Value', 'ChkS.Value', 'ChkP.Value', 'ChkU.Value', 'ChKl.Value') ", cn, adOpenDynamic, adLockOptimistic
y no se como ponerlos porque me sale un error que no coinciden los tipos de datos... que quiere decir y como lo arreglo??
en la tabla los tengo como boolean
gracias como siempre

[Avellaneda]

Hola, prueba quitándole las comillas simples a los valores de los CheckBox:

values ('" & TxtCodigo.Text & "','" & TxtNombre.Text & "', ChkTC.Value, ChkC.Value, ChkS.Value, ChkP.Value.....

[analoyra]

Tampoco me anduvo, pero posteo la solucion que encontre, no se si es la optima pero funciona
Rs.Open "Select * from Perfiles", cn, adOpenKeyset, adLockOptimistic
With Rs
.AddNew
Rs(0) = TxtCodigo.Text
Rs(1) = TxtNombre.Text
If ChkTC.Value = vbChecked Then
Rs(2) = 1
Else
Rs(2) = 0
End If
If ChkC.Value = vbChecked Then
Rs(3) = 1
Else
Rs(3) = 0
End If
If ChkS.Value = vbChecked Then
Rs(4) = 1
Else
Rs(4) = 0
End If
If ChkP.Value = vbChecked Then
Rs(5) = 1
Else
Rs(5) = 0
End If
If ChkU.Value = vbChecked Then
Rs(6) = 1
Else
Rs(6) = 0
End If
If ChKl.Value = vbChecked Then
Rs(7) = 1
Else
Rs(7) = 0
End If
.Update
End With
Rs.Close

Nuevamente.... gracias Avellaneda!!!

[GeoAvila]

Iniciado por analoyra

Otra pregunta....
quiero insertar unos datos en checkbox en una tabla acces
rsAux.Open "insert into perfiles ( codperfil, nombre,tipocomprobante,comprobante,sucursal,perfil ,usuario,listado) values ('" & TxtCodigo.Text & "','" & TxtNombre.Text & "', 'ChkTC.Value', 'ChkC.Value', 'ChkS.Value', 'ChkP.Value', 'ChkU.Value', 'ChKl.Value') ", cn, adOpenDynamic, adLockOptimistic
y no se como ponerlos porque me sale un error que no coinciden los tipos de datos... que quiere decir y como lo arreglo??
en la tabla los tengo como boolean
gracias como siempre

Creo que es mejor si hacer el insert directamente de la conexión es un tanto más rapido

cn.execute("Insert into")

nos vemos...

[Avellaneda]

A ver, ejecuta la consulta así:

cn.Execute "INSERT INTO perfiles (codperfil, nombre, tipocomprobante, comprobante, sucursal, perfil, usuario, listado) VALUES (" & _
"'" & TxtCodigo.Text & "','" & TxtNombre.Text & "'," & ChkTC.Value & "," & ChkC.Value & "," & ChkS.Value & "," & ChkP.Value & "," & ChkU.Value & "," & ChKl.Value & ")"

Donde los campos tipocomprobante,comprobante, sucursal, perfil, usuario y listado deben ser todos ellos de tipo booleano (si/no) y olvídate del recordset rsAux (no lo necesitas para nada).