switchboard not loading form

[Sheba]

hi, as per correspondence in this link: https://www.accessforums.net/forms/s...ems-46893.html


I manually created a switchboard form and then, put below code, in the On_Click event of each button. The code is supposed to open a form once the login ID passes clearance but it is not loading the form. What am I doing wrong...?

Develop and Administrator have AccessLevelID 1

Dim CatID As Long
Dim lUser As Long
Dim UserLevel As Long

If DLookup("AccessLevelID", "tblAccess", "UserID=" & Forms!frmLogin!cmbUser.Column(0) & "") <> 1 Then

If IsNull(DLookup("UserID", "tblAccess", "CategoryID=122 AND UserID=" & Forms!frmLogin!cmbUser.Column(0) & "")) Then

**If user not assigned to this category****
MsgBox "You are not authorized to view this form"
Cancel = True

Else

DoCmd.OpenForm "CardiacForm"
With Me

.DataEntry = True
.AllowEdits = True
.AllowDeletions = False
.AllowAdditions = True
.AllowFilters = False

End With

End If

End If

[June7]

Have you step debugged? Do the DLookups return expected values? Is the combobox value actually the UserID? Refer to link at bottom of my post for debugging guidelines.

The With Me code won't work. Me refers to form/report the code is behind, in this case the switchboard form, not the CardiacForm. If you want code behind switchboard form to modify CardiacForm, use:

With Forms!CardiacForm

Or

Set the UserLevel variable and use it to pass value to CardiacForm with OpenArgs

Do Cmd.OpenForm "CardiacForm", , , , , , UserLevel

Code in CardiacForm Open event:
If Me.OpenArgs <> 1 Then
Me.DataEntry = True
...
End If

[Missinglinq]

I believe this part of your code:

With Me
.DataEntry = True
.AllowEdits = True
.AllowDeletions = False
.AllowAdditions = True
.AllowFilters = False
End With

is actually referring to your switchboard form, not the form that is being opened, which I suspect is what you're actually trying to do. This may be returning focus to the switchboard, and I wonder if the form is actually being opened but is out of sight, behind the switchboard form.

Linq ;0)>