Results 1 to 2 of 2

Thread: PLEASE help! I can't figure this out!!!

  1. #1

    Thread Starter
    Junior Member
    Join Date
    Nov 1999
    Location
    Baytown, TX United States
    Posts
    19

    Post

    Why are all but one of my incorrects display correct? Here is my code. If you run this, you'll understand what I mean.

    Private Sub optCal_Click()
    'assign correct capital to strCapital variable
    strCapital = optSac
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optCol_Click()
    'assign correct capital to strCapital variable
    strCapital = optDen
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optDen_Click()
    'assign capital choice to strChoice variable
    strChoice = optCol.Value
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optIll_Click()
    'assign correct capital to strCapital variable
    strCapital = optSpr
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optMad_Click()
    'assign capital choice to strChoice variable
    strChoice = optWis.Value
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optOre_Click()
    'assign correct capital to strCapital variable
    strCapital = optSal
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optSac_Click()
    'assign capital choice to strChoice variable
    strChoice = optCal
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optSal_Click()
    'assign capital choice to strChoice variable
    strChoice = optOre
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optSpr_Click()
    'assign capital choice to strChoice variable
    strChoice = optIll
    'clear label control
    lblMsg.Caption = " "
    End Sub

    Private Sub optWis_Click()
    'assign correct capital to strCapital variable
    strCapital = optMad
    'clear label control
    lblMsg.Caption = " "
    End Sub


    Private Sub cmdCheck_Click()
    If optCal.Value = optSac.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optCol.Value = optDen.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optIll.Value = optSpr.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optOre.Value = optSal.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optWis.Value = optMad.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optSac.Value = optCal.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optDen.Value = optCol.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optIll.Value = optSpr.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optOre.Value = optSal.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    If optWis.Value = optMad.Value Then
    lblMsg.Caption = "Correct"
    Else
    lblMsg.Caption = "Incorrect"
    End If
    End Sub




    ------------------
    kazooie21

  2. #2
    Guru Aaron Young's Avatar
    Join Date
    Jun 1999
    Location
    Red Wing, MN, USA
    Posts
    2,176

    Post

    I'm not sure what you're trying to achieve with this, but there are 2 instances when the lblMsg Label will display "Incorrect".
    When either optWis or optMad are selected.
    This is because of the way you have structured your IF.. Then Statements, the last IF Statement compares the values of optWis and optMad, as these are Option, (Radio), buttons only 1 will ever be selected, therefore optWis.Value = optMad.Value will always be False when either optMad or optWis is selected.

    Maybe you need to use Checkboxes?

    ------------------
    Aaron Young
    Analyst Programmer
    aarony@redwingsoftware.com
    adyoung@win.bright.net

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width