DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Issues with check boxes

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Apr 2006

Posts: 30

Reputation: Stewie is an unknown quantity at this point

Solved Threads: 0

Stewie

Offline

Light Poster

Issues with check boxes

Aug 30th, 2006

As far as I know when a check box is check the value should be 1 and when it is not checked it should be 0 correct?

In my case if I don't check the box its null and if I do its -1

Here is my code

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub AddGeneral()
Dim rsAdd As Recordset
Dim sql As String
 
    If (chk1.checkstate = 1 And chk2.checkstate = 1) Then
        Kidney = "Both"
        MsgBox "Checked"
    ElseIf (chk1.Value = 1 And chk2.Value = "") Then
        Kidney = "Self"
    ElseIf (chk1.Value = "" And chk2.Value = 1) Then
        Kidney = "Family"
    Else
        Kidney = ""
    End If
 
    If (chk3.Value = 1 And chk4.Value = 1) Then
        Head = "Both"
    ElseIf (chk3.Value = 1 And chk4.Value = 0) Then
        Head = "Self"
    ElseIf (chk3.Value = 0 And chk4.Value = 1) Then
        Head = "Family"
    Else
        Head = ""
    End If
Private Sub AddGeneral()
Dim rsAdd As Recordset
Dim sql As String

    If (chk1.checkstate = 1 And chk2.checkstate = 1) Then
        Kidney = "Both"
        MsgBox "Checked"
    ElseIf (chk1.Value = 1 And chk2.Value = "") Then
        Kidney = "Self"
    ElseIf (chk1.Value = "" And chk2.Value = 1) Then
        Kidney = "Family"
    Else
        Kidney = ""
    End If
    
    If (chk3.Value = 1 And chk4.Value = 1) Then
        Head = "Both"
    ElseIf (chk3.Value = 1 And chk4.Value = 0) Then
        Head = "Self"
    ElseIf (chk3.Value = 0 And chk4.Value = 1) Then
        Head = "Family"
    Else
        Head = ""
    End If

now i put -1 for the values and it worked but if i didnt check them some were 0 and some were null
if i have both check boxes checked it works
returns -1 for both
but if i just check one of the boxes it returns -1 and Null

ive tried -1 and Null, -1 and "", -1 and 0

Last edited by Stewie; Aug 30th, 2006 at 12:59 pm.

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: Issues with check boxes

Aug 30th, 2006

I can't really tell by your code, but is this VB express, .NET, or Legacy (VB 4, 5, or 6)? If it's Legacy VB, could you attach the project in a .zip to your next post, so that I can download your code, and see your problem. The truth is, I can't even replicate your error. I'm guessing, since vb6 doesn't have a .checkstate property for checkboxes, that it's not VB6. Something to check, and I see (based on your question) why you would have done this, but you are testing the checkboxes .value property against an empty string (""). Something to consider, would be testing against vbnull or vbnullstring.