Missing one line of code

[jj1]

If Y = 2 Then
DoCmd.OpenForm "frm a"

Missing line of Code :What I want code to do here is (If button c is clicked on frm a then following should happen)


DoCmd.OpenForm "frm b"
Forms!frm b!txtUserID = X


Forms!frm b!txtUsername = txtUsername
Forms!frm b!combo1.Visible = False


As both forms gets open simultaneously and menu menu which is form a goes at the back of form b

[June7]

Those are the actual form names? Advise not to use spaces in naming convention. They will cause you a lot of frustruation.

I don't understand the issue. What exactly do you want?

[ranman256]

It looks to me you need the code behind BUTTON C_ ON CLICK on "frm A" to be

DoCmd.OpenForm "frm b"
Forms!frm b!txtUserID = X
Forms!frm b!txtUsername = txtUsername
Forms!frm b!combo1.Visible = False

[jj1]

I want to basically open the main menu and from main menu click button which opens a formB on which i want to make few combo boxes as invisible depending upon the level of permission the person has. So I have put above code in the Login form on Ok button but what's happening is its opening both the forms (main menu and formB together) and putting the formB on top instead of main menu. I hope i am able to explain you

[June7]

Where is the code that is opening formB at same time as main menu? If you don't want that to happen, then eliminate that code.

[jj1]

Here is my entire code
Dim X As Long
X = Nz(DLookup("UserID", "UserT", "Username='" & txtUsername & "' AND Password='" & txtPassword & "'"))
'MsgBox "" & X & ""
If X > 0 Then
Dim Y As Long
Y = Nz(DLookup("GroupID", "GroupXUsersT", "UserID='" & X & "'"))

'We have a valid user
If Y = 1 Then
DoCmd.OpenForm "frmmainmenu"
Forms!frmB!txtUserID = X
Forms!frmB!txtUsername = txtUsername
DoCmd.Close acForm, "LoginF"
End If
If Y = 2 Then
DoCmd.OpenForm "frmHomePage"
DoCmd.OpenForm "frmB"
Forms!frmB!txtUserID = X
Forms!frmB!txtUsername = txtUsername
Forms!frmB!combo1.Visible = False
DoCmd.Close acForm, "LoginF"

Please help

[jj1]

Can you also please see my entire code posted I think we are close

[June7]

Why don't you remove the line:

DoCmd.OpenForm "frmB"

[jj1]

Because from the frmB Permissions are checked
Forms!frmB!txtUserID = X
Forms!frmB!txtUsername = txtUsername

[June7]

If that code is behind the login form then that is why it is opening both forms. If you don't want to open frmB from the login form then don't have code there.

Otherwise, if you want frmHomePage to have focus then change the order of the code so it is opened last.