[VB6] Spuntare un CheckBox in base al valore booleano di un campo

[pascan2]

Salve a tutti questo è il problema:
ho un check box sul form.
Ora voglio sapere come posso fare a porre il flag nel check se il datacontrol mi passa il valore TRUE.

Es. check1.value=data1.recordset.foelds("valore")
In questo caso quando mi passa il valore TRUE, il valore del check non cambia.
Quindi come fare in una sola riga ( senza if, l'ho fatto già) .
Grazie Anticipatamente

[MItaly]

Provato con

check1.value=CBool(data1.recordset.foelds("valore"))

?

[pascan2]

errore 380
Valore di proprietà non valido.
unica cosa da sottolineare e che il valore passato non è TRUE ma Vero

[MItaly]

E dici poco... :rollo: allora l'if è l'unica soluzione (a meno, se proprio vuoi, di non usare una di quelle malefiche funzioni tipo IIf o Choose per mantenere tutto su una riga, ma sono piuttosto lente).
---EDIT---
Dimenticavo, puoi anche creare una funzione apposta...

Public Function convbool(ByVal instring As String) As Boolean
    If UCase(instring)="VERO") Then convbool=True
End Function
'...
check1.value=convbool(data1.recordset.foelds("valore"))

[pascan2]

niente da fare sempre lo stesso errore
ps. la funzione restituisce sempre il valore Vero

prova a controllare la funzione, forse manca qualcosa

[chico62]

foelds?? :master:

Chico

[MItaly]

Public Function convbool(ByVal instring As String) As Boolean
    If UCase(instring)="VERO" Then convbool=True Else convbool=False
End Function
'...
check1.value=Abs(convbool(data1.recordset.fields("valore")))

[Jupy64]

Originariamente inviato da MItaly

Public Function convbool(ByVal instring As String) As Boolean
    If UCase(instring)="VERO" Then convbool=True Else convbool=False
End Function
'...
check1.value=Abs(convbool(data1.recordset.fields("valore")))

Buona soluzione, anche se magari eviterei di usare la funzione Abs modificando la funzione di conversione:

Public Function convbool(ByVal instring As String) As integer
    If UCase(instring)="VERO" Then convbool=1 Else convbool=0
End Function

check1.value=convbool(data1.recordset.fields("valore"))

oppure fare tutto in una riga...
check1.value=Abs(Ucase(data1.recordset.fields("val ore"))="VERO")

[MItaly]

Buona l'ultima; stupidamente non ci ho pensato subito.