Close access

[netguy]

Hey folks I have a form 'modal' that loads when access is first opened and allows a user to login using a simple form. I want to be able to close the application if the user clicks on the x in the upper right corner of the form. I have already applied script to close application if the user presses the close/cancel button however is there a way to apply the same script to the native close x icon?

Private Sub Command0_Click()
DoCmd.Quit
End Sub

[netguy]

I thought OnClose event would work however even if the user uses the correct username and password the form is suppose to close and redirect to another form. However onClose closes closes the application. Its the dreadful close loop. I just want to restrict a user from going around the SIMPLE security I've created by closing the form out by clicking on the "x"

[amrut]

Put the same code in form's close event.

[netguy]

amrut - I tried that. Here's the code I use for simple security:

Not sure what code to use if they press the "x" and where to put it

This code is on a close button ive placed on the form:
Private Sub Command0_Click()
DoCmd.Quit
End Sub


This code is ran when selecting the login button. As you can see because I close the form then the DoCMD Quit would run even if the user successfully logs in


Private Sub Command1_Click()
If IsNull(Me.txtLoginID) Then
MsgBox "Please enter LoginID!", vbInformation, "LoginID Required"
Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "Please enter Password!", vbInformation, "Password Required"
Me.txtPassword.SetFocus
Else
'process the job
If (IsNull(DLookup("UserLogin", "tbl_users", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _
(IsNull(DLookup("Password", "tbl_users", "Password ='" & Me.txtPassword.Value & "'"))) Then
MsgBox "Incorrect Login or Password"

'ElseIf Me.txtPassword.Value = "password" Then
' MsgBox "Please change your password"
' DoCmd.Close


Else
DoCmd.Close
DoCmd.OpenForm "MAIN"
End If

End If
End Sub