Converting True/False to 1/0... 2

[rickyoswaldiow]

Good morning everyone. I have a project that has hundreds of Check Boxes throughout but I have come accross a problem while moving it out of VBA and into VB6. The checkbox requires a 1 or 0 value to be toggled but all of our data in the database is stored as True or False.
At the moment I am trawling through thousands of lines of codes to find hundreds of check boxes and writing a small if statement for each one. Is there a quicker way to do this, bear in mind that I can't do a find/replace since it will intefere with the other parts of the modules...

 

[combo]

Try: -True, -False

combo

 

[ChrisHirst]

wite a function and pass the checkbox value through it

Public Function TorF(ByVal Value as Integer) as Boolean
    TorF = CBool(Value)
end function

Public Function IntTorF(ByVal Value as Boolean) as Integer
    IntTorF = CInt(Value)
end function

BoolVal = TorF(checkbox.Value)

checkbox.Value = IntTorF(BoolVal)


not that you really need the functions because a CBool() or CInt() will do exactly the same




Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[vbSun]

could you show us how this assignment is done at the moment please? and if possible how you are changing it..

 

[rickyoswaldiow]

I can't really put a major part of the project up for two reasons. Firstly the fact that it's huge and secondly because of IPR... This is not an assignment like you'd get at college, I am at work
Anyway, here is an example -
Original:

With rsRecordSet
   me.chkCheckBox = !TrueFalseRecord

End With
[code]

New:
[code]
With rsRecordSet
   if !TrueFalseRecord = true then me.chkCheckBox = 1
   if !TrueFalseRecord = false then me.chkCheckBox = 0
End With

 

[rickyoswaldiow]

***EDIT***
Original:

With rsRecordSet
   me.chkCheckBox = !TrueFalseRecord

End With

New:

With rsRecordSet
   if !TrueFalseRecord = true then me.chkCheckBox = 1
   if !TrueFalseRecord = false then me.chkCheckBox = 0
End With

 

[strongm]

me.chkCheckBox = -!TrueFalseRecord

 

[rickyoswaldiow]

So, the - switches it to a 1/0 instead of the stored True/False?
I guess this is a bit quicker than writing out dozens of if statements, thanks

 

[vbSun]

or,

me.chkCheckBox.Value = IIF(!TrueFalseRecord,vbChecked,vbUnchecked)

 

[rickyoswaldiow]

Excellent, thankyou