da CheckBox a campo Access Si/No

[maui.80]

Ciao ragazzi, vi espongo subito il problema.
Ho una database in access dove c'è un campo Si/No e devo passargli da una checkbox il valore a seconda che sia spuntata o no.
Mi da problemi su incongruenza di dati, ho visto che se imposto il campo di tipo numerico e passo valori 0 o 1 a seconda che sia selezionata funziona; io devo farlo funzionare in modo tale che il campo in access resti di tipo Si/No.

Ho assegnato il valore della checkbox in una variabile def di tipo string che alla selezione o no prende valori SI/NO, l'errore me lo da quando cerco di inserire questo valore nel database.

Potete aiutarmi perchè sto sclerando....

grazie a tutti
ciao
Mauro

[Mems]

Metti alla checkbox della form il value="1"
Il campo del db lo fai di tipo numerico.
Recuperi il valore con

valore = request.form("nomecheckbox")

if len(valore) = 0 then valore = 0 ' ovvero se non l'hai ceccato allora sarà 0, altrimenti arriva 1

Usi la variabile valore per memorizzare il dato nel db.

[maui.80]

Ma non c'è proprio verso di tenere il campo del database di tipo Si/No?

[Mems]

Originariamente inviato da maui.80
Ma non c'è proprio verso di tenere il campo del database di tipo Si/No?

Allora passa true per ceccarlo.
L'opposto è false.

[maui.80]

ok grazie proverò così

[maui.80]

Allora ho provato ma nulla scrivo qui il pezzo di codice inerente al parametro da spedire tramite un INPUT INTO... in una tabella di ACCESS settata come tipo Si/No:

Dim def As Boolean
If CheckBox1.Checked = True Then def = "True" Else def = "False"
INSERT INTO [SOCI ANAGRAFICA] ([Id_Socio], [Defibrillatore], ....
VALUES (" & idutente & ", '" & def & "',.....

con come risultato questo messaggio di errore:
[OleDbException (0x80040e07): Tipi di dati non corrispondenti nell'espressione criterio.]



grazie

[Mems]

senza ' true o false

[maui.80]

provato in tutte le maniere ma nulla!
non c'è verso di passare un parametro boolean a sto cavolo di campo in access!

[Mems]

<input type="checkbox" name="scelta" value="1" />

<%
scelta = request.form("scelta")
if isNumeric(scelta) then 
  scelta = cLng(scelta)
else
  scelta = 0
end if

scelta = cBool(scelta)

sql = "INSERT INTO tabella1 (campoSiNo) VALUES(" & scelta & ")"
' eccetera...

[maui.80]

Grazie mille provo in questo modo....