Opening Forms Via Criteria

[jlgray0127]

Hi!
I have a form that populates with the user who is logged in.
If the user is not on the user table, I want them to have to log their information into the User Table, in order to be in the form.

I run a query against the person logged into the PC against the table that contains the Database user's information. If the user is in the user table, I want the main menu form to open. If the user is NOT in the table, I want the data base to open the registration form.

The code below, is what I'm trying to use, but I'm a getting the error, Block If without End IF

I'm not sure where I'm going wrong. Please help with my coding.

Private Sub Form_Open(Cancel As Integer)
If [CWS] Is Null Then
MsgBox "New Users Must Register before proceeding! CWS, First and Last Name are Required to proceed.", vbOKOnly
docmnd.OpenForm "AdminRegisterUsersForm"
docmnd.closeform "AdminVerifyUsersForm"
Else
If [CWS] Is Not Null Then
docmnd.OpenForm "Main_Menu"




End If


End Sub

[JoeM]

You have two IF statements, and only one END IF.
You actually do not need the second IF at all. A value can only be Null or Not Null (there is no third option). So if does not meet the first check, you don't need to check the second thing, i.e.

Private Sub Form_Open(Cancel As Integer)

If [CWS] Is Null Then
    MsgBox "New Users Must Register before proceeding! CWS, First and Last Name are Required to proceed.", vbOKOnly
    DoCmd.OpenForm "AdminRegisterUsersForm"
    DoCmd.Close acForm, "AdminVerifyUsersForm"
Else
    DoCmd.OpenForm "Main_Menu"
End If

End Sub

Also, it is "DoCmd", not "Docmnd" (no "n") and "CloseForm" is not a valid command.

[jlgray0127]

Thank you, Joe.
This did not work, however. Running the code just as above, I get a compile Error: Method or data member not found.
The form this is applied to, is the AdminVerifyUsersForm, so wondering if it's because I'm trying to close the same form I'm running the code in, with the If method. Not really sure. Checked all my spelling this time, as well! Thanks for catching the Cmnd... lol... rookie mistake!
I tried taking out the close form line, to test this and received the error Object Required

I APPRECIATE YOUR HELP!!!!!!

[JoeM]

Here are some tricks to use to help debug some of your syntax.

First, try creating a Macro to do some of these commands (like opening and closing forms).
Once you get the Macro working properly, you can highlight it, go to the Database Tools menu and click on the "Convert Macros to Visual Basic" button. This will give you the exact VBA syntax you need to perform those actions.

Also, in debugging current VBA code, I would recommend commenting out certain lines, to see which ones work and which don't, to nail down exactly which line is causing your issues.

So, I recommend trying the first thing with your Open/Close form commands, and see if that gets it working properly.

[ssanfu]

"[CWS] Is Null" is the SQL syntax (I think).

You might want to try the VBA IsNull() function.

If IsNull([CWS]) Then