Stop Subform From Loading

[Oxygen Potassium]

I have a subform that I do not want to load if the main form doesn't load. I'm using the coding below but get an error message saying "Compile error: Statement invalid outside Type block" and points to the line FinishedLoading As Boolean on the main form. I may just be a little bit off or maybe there might be a better method to accomplish this?

Coding on Main Form:

Private Sub Form_Load()

FinishedLoading As Boolean

Forms![Vendor Reporting Navigation].Visible = False
Dim pwd As String
pwd = InputBox("Enter Password?")


If pwd = "ABC123" Then
MsgBox "Password Accepted"
Else
MsgBox "Incorrect Password"
DoCmd.Close
End If

FinishedLoading = True

End Sub



Coding on SubForm:

Private Sub Form_Close()

If Not Forms("Maintenance Reports List").FinishedLoading Then
Exit Sub
End If

On Error Resume Next
DoCmd.RunMacro "Update Due Dates"
DoCmd.OpenForm "Duplicates for Master Report Tracking 2", acNormal

End Sub

[aytee111]

Add DIM in front of it.

[orange]

In Access subform loads before main form - that's the way it works.

[John_G]

I don't see what the issue is. If the main form doesn't load, then the subform won't load either. Entering an incorrect password closes the main form, which closes the subform too.
In any case, putting the check in the subform's On Close makes no sense - in order to close it, it had to be open anyway, no?

In answer to your original question, you forgot the "Dim" part: Dim FinishedLoading As Boolean

However, if you wast FinishedLoading to be accessible to other sub, you have to declare it as Public (not Dim), and you have to put the declaration at the top of the form code module, outside of all subs.

What you might do is have a separate login form which opens first, asks for the password, then opens your main form only if the passwoed is correct.

[orange]

You may get some additional ideas from this youtube video by Steve Bishop on UserAccess
or this one on Login form
Also, you may get more focused responses if you give readers a brief overview of your issue/opportunity in clear, simple English.