compile error: Else without if

[winson oo]

I don't know why it pop up this error when I want to compile the program. ( the problem of the souce code that I'm facing in in the bolder style. Thanks for checking!

 
Private Sub cmdResult_Click()
 
InputData
If IsNumeric(txtLength.Text) = True Then
sngLength = Val(txtLength.Text)
  If IsNumeric(txtWidth.Text) = True Then
  sngWidth = Val(txtWidth.Text)
        If IsNumeric(txtHeight.Text) = True Then
        sngHeight = Val(txtHeight.Text)
                   If sngLength > 6 * sngWidth Then
        sngVolume = sngLength * sngWidth * sngHeight
 
        Surface = area + areaback + arealeft + arearight + areafloor + areaceiling
 
                If cboMaterial.Text <> "" And _
                   cboMaterialBack.Text <> "" And _
                   cboMaterialLeft.Text <> "" And _
                   cboMaterialRight.Text <> "" And _
                   cboMaterialCeiling.Text <> "" And _
                   cboMaterialFloor.Text <> "" And _
                   cboMaterialOthers.Text <> "" And _
                   cboMaterial.ListIndex <> 0 And _
                   cboMaterialBack.ListIndex <> 0 And _
                   cboMaterialLeft.ListIndex <> 0 And _
                   cboMaterialRight.ListIndex <> 0 And _
                   cboMaterialFloor.ListIndex <> 0 And _
                   cboMaterialOthers.ListIndex <> 0 And _
                   cboMaterialFloor.ListIndex <> 10 And _
                   cboMaterialCeiling.ListIndex <> 0 Then
 
 
                     If cboMaterial2.Text <> "" And txtSize2.Text <> "" Or _
                        cboMaterial2.ListIndex = 0 Or _
                        cboMaterial2.Text = "" And txtSize2.Text = "" Then
                     If cboMaterial3.Text <> "" And txtSize3.Text <> "" Or _
                        cboMaterial3.ListIndex = 0 Or _
                        cboMaterial3.Text = "" And txtSize3.Text = "" Then
                     If cboMaterialBack2.Text <> "" And txtSizeBack2.Text <> "" Or _
                        cboMaterialBack2.ListIndex = 0 Or _
                        cboMaterialBack2.Text = "" And txtSizeBack2.Text = "" Then
                     If cboMaterialBack3.Text <> "" And txtSizeBack3.Text <> "" Or _
                        cboMaterialBack3.ListIndex = 0 Or _
                        cboMaterialBack3.Text = "" And txtSizeBack3.Text = "" Then
                     If cboMaterialLeft2.Text <> "" And txtSizeLeft2.Text <> "" Or _
                        cboMaterialLeft2.ListIndex = 0 Or _
                        cboMaterialLeft2.Text = "" And txtSizeLeft2.Text = "" Then
                     If cboMaterialLeft3.Text <> "" And txtSizeLeft3.Text <> "" Or _
                        cboMaterialLeft3.ListIndex = 0 Or _
                        cboMaterialLeft3.Text = "" And txtSizeLeft3.Text = "" Then
                     If cboMaterialLeft2.Text <> "" And txtSizeLeft2.Text <> "" Or _
                        cboMaterialRight2.ListIndex = 0 Or _
                        cboMaterialLeft2.Text = "" And txtSizeLeft2.Text = "" Then
                     If cboMaterialRight3.Text <> "" And txtSizeRight3.Text <> "" Or _
                        cboMaterialRight3.ListIndex = 0 Or _
                        cboMaterialRight3.Text = "" And txtSizeRight3.Text = "" Then
 
                     If cboMaterialFloor2.Text <> "" And txtSizeFloor2.Text <> "" Or _
                        cboMaterialFloor2.ListIndex = 0 Or _
                        cboMaterialFloor2.ListIndex = 10 Or _
                        cboMaterialFloor2.Text = "" And txtSizeFloor2.Text = "" Then
                     If cboMaterialFloor3.Text <> "" And txtSizeFloor3.Text <> "" Or _
                        cboMaterialFloor3.ListIndex = 0 Or _
                        cboMaterialFloor3.ListIndex = 10 Or _
                        cboMaterialFloor3.Text = "" And txtSizeFloor3.Text = "" Then
                     If cboMaterialCeiling2.Text <> "" And txtSizeCeiling2.Text <> "" Or _
                        cboMaterialCeiling2.ListIndex = 0 Or _
                        cboMaterialCeiling2.Text = "" And txtSizeCeiling2.Text = "" Then
                     If cboMaterialCeiling3.Text <> "" And txtSizeCeiling3.Text <> "" Or _
                        cboMaterialCeiling3.ListIndex = 0 Or _
                        cboMaterialCeiling3.Text = "" And txtSizeCeiling3.Text = "" Then
 
                                  If (IsNumeric(txtSize2.Text) = True Or txtSize2.Text = "") And _
                                     (IsNumeric(txtSize3.Text) = True Or txtSize3.Text = "") And _
                                     (IsNumeric(txtSizeBack2.Text) = True Or txtSizeBack2.Text = "") And _
                                     (IsNumeric(txtSizeBack3.Text) = True Or txtSizeBack3.Text = "") And _
                                     (IsNumeric(txtSizeLeft2.Text) = True Or txtSizeLeft2.Text = "") And _
                                     (IsNumeric(txtSizeLeft3.Text) = True Or txtSizeLeft3.Text = "") And _
                                     (IsNumeric(txtSizeRight2.Text) = True Or txtSizeRight2.Text = "") And _
                                     (IsNumeric(txtSizeRight3.Text) = True Or txtSizeRight3.Text = "") And _
                                     (IsNumeric(txtSizeFloor2.Text) = True Or txtSizeFloor2.Text = "") And _
                                     (IsNumeric(txtSizeFloor3.Text) = True Or txtSizeFloor3.Text = "") And _
                                     (IsNumeric(txtSizeCeiling2.Text) = True Or txtSizeCeiling2.Text = "") And _
                                     (IsNumeric(txtSizeCeiling3.Text) = True Or txtSizeCeiling3.Text = "") Then
 
 
                                             Me.Hide
                                             outlong.Show
 
 
 
                                     Else
                                     MsgBox "Please enter numerical value for size.", vbOKOnly, "Invalid Data"
                                     End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient data."
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient data."
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
                    Else
                    MsgBox "Insufficient size data.", vbOKOnly, "Insufficient Data"
                    End If
 
 
 
                Else
                MsgBox "Please select construction material for walls, floor and ceiling.", vbOKOnly + vbExclamation, "Invalid Data"
                cboMaterial.SetFocus
                End If
 
 
        Else
                MsgBox "Length should be 6 times larger than Width", vbOKOnly + vbCritical, "Invalid Data"
                txtWidth.Text = ""
                txtWidth.SetFocus
        End If
 
 
 
        Else
            MsgBox "Please enter numerical value for height.", vbOKOnly + vbExclamation, "Invalid Data"
            txtHeight.Text = ""
            txtHeight.SetFocus
        End If
 
 
 
       Else
            MsgBox "Please enter numerical value for Width1.", vbOKOnly + vbExclamation, "Invalid Data"
 
            txtWidth.Text = ""
 
            txtWidth.SetFocus
         End If
 
 
        Else
            MsgBox "Please enter numerical value for length.", vbOKOnly + vbExclamation, "Invalid Data"
 
            txtLength.Text = ""
 
            txtLength.SetFocus
          End If

[debasisdas]

With the number of IF ...ELSE statement in your code , it is too much error prone.

Check again for any missing Key word.

[Guido Geurs]

If You want to use nested IFs, indent the code in a visible way like: see attached GIF
To check the IF...else...endif: put the conditions in 1 line.
Later you can split the line with " _"

But it's recommended not to use to much nested IFs: use simple If's like for your code:

Private Sub cmdResult_Click()
 
InputData
If IsNumeric(txtLength.Text) = False Then
   MsgBox "Please enter numerical value for length.", vbOKOnly + vbExclamation, "Invalid Data"
   txtLength.Text = ""
   txtLength.SetFocus
   Exit Sub
Else
   sngLength = Val(txtLength.Text)
End If
If IsNumeric(txtWidth.Text) = False Then
   MsgBox "Please enter numerical value for Width1.", vbOKOnly + vbExclamation, "Invalid Data"
   txtWidth.Text = ""
   txtWidth.SetFocus
   Exit Sub
Else
   sngWidth = Val(txtWidth.Text)
End If
If IsNumeric(txtHeight.Text) = True Then
   MsgBox "Please enter numerical value for height.", vbOKOnly + vbExclamation, "Invalid Data"
   txtHeight.Text = ""
   txtHeight.SetFocus
   Exit Sub
Else
   sngHeight = Val(txtHeight.Text)
End If
If sngLength <= 6 * sngWidth Then
   MsgBox "Length should be 6 times larger than Width", vbOKOnly + vbCritical, "Invalid Data"
   txtWidth.Text = ""
   txtWidth.SetFocus
   Exit Sub
Else
   sngVolume = sngLength * sngWidth * sngHeight
   Surface = area + areaback + arealeft + arearight + areafloor + areaceiling
End If
If cboMaterial.Text = "" And _
      cboMaterialBack.Text = "" And _
      cboMaterialLeft.Text = "" And _
      cboMaterialRight.Text = "" And _
      cboMaterialCeiling.Text = "" And _
      cboMaterialFloor.Text = "" And _
      cboMaterialOthers.Text = "" And _
      cboMaterial.ListIndex = 0 And _
      cboMaterialBack.ListIndex = 0 And _
      cboMaterialLeft.ListIndex = 0 And _
      cboMaterialRight.ListIndex = 0 And _
      cboMaterialFloor.ListIndex = 0 And _
      cboMaterialOthers.ListIndex = 0 And _
      cboMaterialFloor.ListIndex = 10 And _
      cboMaterialCeiling.ListIndex = 0 Then
   MsgBox "Please select construction material for walls, floor and ceiling.", vbOKOnly + vbExclamation, "Invalid Data"
   cboMaterial.SetFocus
   Exit Sub
End If
If cboMaterial2.Text <> "" And txtSize2.Text <> "" Or cboMaterial2.ListIndex = 0 Or cboMaterial2.Text = "" And txtSize2.Text = "" Then
...

[Oralloy]

winson,

You need to control the nesting of your "if" statements, as Guido observed; it will help tremendously when developing your code.

Also, your use of nested "if" statements to accomplish what is a "and" condition is not smart. For example, this code:

If A Or B Then
  If C Or D Then
    If E Or F Then
      '' do something
    End If
  End If
End If

Is actually a complex form of the expression

If (A Or B) And (C Or D) And (E of F) Then
  '' do something
End If

Now, to be fair, there are a lot of cases that look like this:

If A Or B Then
  If C Or D Then
    If E Or F Then
      '' do something on (A or B) and (C or D) and (E or F)
    Else
      '' do something on (A or B) and (C or D) and not (E or F)
    End If
  Else
    '' do something on (A or B) and not (C or D)
  End If
Else
  '' do something on not (A or B)
End If

Which is common when dealing with a series of gateing conditions to get to a highly guarded section of code. However, a (in my view) better way of writing such a structure is usually accomplished by inverting the conditions and keeping a single level of nesting:

If A or B Then
  '' do something on not (A or B)
ElseIf not (C Or D) Then
  '' do something on (A or B) and not (C or D)
ElseIf not (E Or F) Then
  '' do something on (A or B) and (C or D) and not (E or F)
Else
  '' do something on (A or B) and (C or D) and (E or F)
End If

Notice that the code structure is very simple and flat in the final example. What I did was put the failure actions first, and the guarded action last.

Luck!
Oralloy