Very Small Code Problem

[ddrew]

Im getting a compile error Else wihout If, its highlighting the Else that I have coloured red, Im sure its realm simple!

    If Me.chkboxRegistar = True Then
    If Me.txt_ContactsCount = "0" Then
        DoCmd.OpenForm "frm_Contacts", acNormal, "", "", , acNormal
        MsgBox "You dont have anyone in your Contacts," & vbCrLf & "Therefore you have been taken to the Contacts Form", vbOKOnly
    Else

        DoCmd.OpenForm "frm_SetUp", acNormal, "", "", , acNormal
        DoCmd.Close acForm, Me.Name
[COLOR="Red"]Else[/COLOR]
          MsgBox "You must first register the product", vbOKOnly
    End If

 

[plog]

My guess is you need to put an End If statement after the nested one:

If Me.chkboxRegistar = True Then
 If Me.txt_ContactsCount = "0" Then
        DoCmd.OpenForm "frm_Contacts", acNormal, "", "", , acNormal
        MsgBox "You dont have anyone in your Contacts," & vbCrLf & "Therefore you have been taken to the Contacts Form", vbOKOnly
    Else
        DoCmd.OpenForm "frm_SetUp", acNormal, "", "", , acNormal
        DoCmd.Close acForm, Me.Name
    End If    
Else
          MsgBox "You must first register the product", vbOKOnly
End If

 

[gemma-the-husky]

nested if's can get hard to follow.

because the regstration test is not really part of the the "real" test - I often use goto's to get what I want. also, proper indentation is helpful. in your original post, it was a bit difficult to see which if/else/end if matched together.

this sort of thing.

If not chkboxRegistar Then 
 MsgBox "You must first register the product", vbOKOnly
 exit sub
End If   
 
If Me.txt_ContactsCount = "0" Then
        DoCmd.OpenForm "frm_Contacts", acNormal, "", "", , acNormal
        MsgBox "You dont have anyone in your Contacts," & vbCrLf & "Therefore you have been taken to the Contacts Form", vbOKOnly
Else
        DoCmd.OpenForm "frm_SetUp", acNormal, "", "", , acNormal
        DoCmd.Close acForm, Me.Name
End If