Solved

VB SYNTAX QUESTION ABOUT LOGICAL OPERATOR

Posted on 2006-07-22
2
161 Views
Last Modified: 2010-04-30
Hi,
I have another multivariable comparison.  I want to compare 4 checkboxes to 1 - both sets shouldn't be checked.  However, the script is not recognizing when a checkbox is checked.   For example, If I check STD, I get the alert message - "missing final action, check a fad box".  It should recognize this box is checked.
I would appreciate any suggestions!!  Again, I have assigned a high pt value due to urgency.  Thank you!

Code sample:

If main.STD.Checked Then
         form69 = -1
      Else
       form69 = 0
      End If

If main.SSTDR.Checked Then
         form71 = -1
      Else
       form71 = 0
      End If

If main.SSTDW.Checked Then
         form72 = -1
      Else
       form72 = 0
      End If

If main.SSTDPE.Checked Then
         form73 = -1
      Else
       form73 = 0
      End If

If main.DECL.Checked Then
         form74 = -1
      Else
       form74 = 0
      End If

If main.PPON.Checked Then
         form75 = -1
      Else
       form75 = 0
      End If

If ((form69) = -1 Or (form71) = -1 Or (form72) = -1 Or (form73) = -1) And ((form74) = -1) Then
     MsgBox ("CAN NOT CONTINUE - MUST CHOOSE BETWEEN ISSUE AND DECLINE ACTIONS - CAN'T BE BOTH")
     Exit Sub
      ElseIf ((form69) = -1 Or (form71) = -1 Or (form72) = -1 Or (form73) = -1) And ((form75) = -1) Then
     MsgBox ("CAN NOT CONTINUE - MUST CHOOSE BETWEEN ISSUE AND POSTPONE ACTIONS - CAN'T BE BOTH")
     Exit Sub
      ElseIf (Form74) = -1 And (Form75) = -1 Then
     MsgBox ("CAN NOT CONTINUE - MUST CHOOSE BETWEEN DECLINE AND POSTPONE ACTIONS - CAN'T BE BOTH")
     Exit Sub
    ElseIf ((form69) = 0 Or (form71) = 0 Or (form72) = 0 Or (form73) = 0) And ((form74) = 0 Or (form75) = 0)Then
     MsgBox ("CAN NOT CONTINUE - MISSING FINAL ACTION DECISION - PLEASE CHECK FAD BOX")
     Exit Sub
      Else
      If main.STD.Checked Then
         form69 = -1
      Else
       form69 = 0
      End If
      If main.SSTDR.Checked Then
         form71 = -1
      Else
       form71 = 0
      End If
      If main.SSTDW.Checked Then
         form72 = -1
      Else
       form72 = 0
      End If
      If main.SSTDPE.Checked Then
         form73 = -1
      Else
       form73 = 0
      End If
      If main.DECL.Checked Then
         form74 = -1
      Else
       form74 = 0
      End If
      If main.PPON.Checked Then
         form75 = -1
      Else
       form75 = 0
      End If
  End If
0
Comment
Question by:MoJeaux39
2 Comments
 
LVL 142

Accepted Solution

by:
Guy Hengel [angelIII / a3] earned 500 total points
ID: 17160588
you have to compare against the constant vbChecked (resp vbUnchecked):
If main.STD.Checked = vbChecked Then

0
 

Author Comment

by:MoJeaux39
ID: 17160612
Yes, but setting it's value to -1 or 0 accomplish the same thing?  It's the

ElseIf ((form69) = 0 Or (form71) = 0 Or (form72) = 0 Or (form73) = 0) And ((form74) = 0 Or (form75) = 0)Then
     MsgBox ("CAN NOT CONTINUE - MISSING FINAL ACTION DECISION - PLEASE CHECK FAD BOX")
     Exit Sub
      Else

statement that doesn't recognize the value of form69, right?  

Thanks!
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

815 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now