You've nested your If's all wrong;
Code:
Private Sub cmdAddAddress_Click()
If DLookup("[AccessLevel]", "tblEmployees", "[EmployeeID_PK] = " & Forms!LoginForm!cboUser) = 1 Then
If IsNull(Me.cboStage) Then
MsgBox "Add Stage Number / Building Name First", vbOKOnly
Else
DoCmd.OpenForm "AddressName"
End If
If DLookup("[AccessLevel]", "tblEmployees", "[EmployeeID_PK] = " & Forms!LoginForm!cboUser) = 2 Then
If IsNull(Me.cboStage) Then
MsgBox "Add Stage Number / Building Name First", vbOKOnly
Else
DoCmd.OpenForm "AddressName"
If DLookup("[AccessLevel]", "tblEmployees", "[EmployeeID_PK] = " & Forms!LoginForm!cboUser) = 3 Then
If IsNull(Me.cboStage) Then
MsgBox "Add Stage Number / Building Name First", vbOKOnly
Else
DoCmd.OpenForm "AddressName"
If DLookup("[AccessLevel]", "tblEmployees", "[EmployeeID_PK] = " & Forms!LoginForm!cboUser) = 4 Then
MsgBox "You Do Not have Access", vbOKOnly
End If
If DLookup("[AccessLevel]", "tblEmployees", "[EmployeeID_PK] = " & Forms!LoginForm!cboUser) = 5 Then
MsgBox "You Do Not have Access", vbOKOnly
End If
End If
End If
End If
End If
End If
End Sub
Can you see where that goes wrong ?