I keep getting an error of 'Block If w/o End If' but it looks to me like each one of my If statements has an Else and an End statement. What am I missing here that is causing the syntax to error?
Code:
Private Sub cmdbuttonOne_Click()
'Declaring Variables
Dim var1 As String, var2 As String, var3 As String
Dim var4 As String, var5 As String, var6 As String
Dim var7 As String, var8 As String, var9 As String
'Capturing Variables
If IsNull(Me!txtvar8) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar8.SetFocus
Exit Sub
Else
var8 = Me.txtvar8.Text
End If
If IsNull(Me!txtvar9) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar9.SetFocus
Exit Sub
Else
var9 = Me.txtvar9.Text
End If
If IsNull(Me!txtvar7) Then
MsgBox ""Please A Valid Input", vbOKOnly
Me.txtvar7.SetFocus
Exit Sub
Else
var7 = Me.txtvar7.Text
End If
If IsNull(Me!txtvar1) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar1.SetFocus
Exit Sub
Else
var1 = Me.txtvar1.Text
End If
If IsNull(Me!txtvar2) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar2.SetFocus
Exit Sub
Else
var2 = Me.txtvar2.Text
End If
If IsNull(Me!txtvar3) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar3.SetFocus
Exit Sub
Else
var3 = Me.txtvar3.Text
End If
If IsNull(Me!txtvar4) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar4.SetFocus
Exit Sub
Else
var4 = Me.txtvar4.Text
If IsNull(Me!txtvar5) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar5.SetFocus
Exit Sub
Else
var5 = Me.txtvar5.Text
End If
If IsNull(Me!txtvar6) Then
MsgBox "Please A Valid Input", vbOKOnly
Me.txtvar6.SetFocus
Exit Sub
Else
var6 = Me.txtvar6.Text
End If
End Sub